Здравствуйте, форумчане. Всех с наступившем Новым годом! Помогите, пожалуйста, решить задачу. В одном столбце, в ячейках через запятую перечислены слова и словосочетания. В другом столбце, в ячейках записаны слова и словосочетания по отдельности. Нужно в ячейках первого столбца оставить только те слова и словосочетания, которые есть в ячейках другого столбца.
Здравствуйте, форумчане. Всех с наступившем Новым годом! Помогите, пожалуйста, решить задачу. В одном столбце, в ячейках через запятую перечислены слова и словосочетания. В другом столбце, в ячейках записаны слова и словосочетания по отдельности. Нужно в ячейках первого столбца оставить только те слова и словосочетания, которые есть в ячейках другого столбца.sergeyryabikin84
Sub u_549() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row b = Cells(Rows.Count, "b").End(xlUp).Row Range("a2:a" & a) = Evaluate("""(""&" & "a2:a" & a & "&"",)\""") For Each c In Range("b2:b" & b) d = ")" & c & ", (" e = c & "," Range("a2:a" & a).Replace What:=e, Replacement:=d Next Range("a2:a" & a).Replace What:="(*)", Replacement:="" Range("a2:a" & a).Replace What:=", \", Replacement:="" Application.ScreenUpdating = True End Sub
[/vba]
вдруг правильно [vba]
Код
Sub u_549() Application.ScreenUpdating = False a = Cells(Rows.Count, "a").End(xlUp).Row b = Cells(Rows.Count, "b").End(xlUp).Row Range("a2:a" & a) = Evaluate("""(""&" & "a2:a" & a & "&"",)\""") For Each c In Range("b2:b" & b) d = ")" & c & ", (" e = c & "," Range("a2:a" & a).Replace What:=e, Replacement:=d Next Range("a2:a" & a).Replace What:="(*)", Replacement:="" Range("a2:a" & a).Replace What:=", \", Replacement:="" Application.ScreenUpdating = True End Sub
Огромное спасибо всем. Задача решена. Использую вариант от Nic70y, хотя раньше с макросами дела не имел. Вариант от прохожий2019 при добавлении новых строк выдавал ошибку #ИМЯ? Решить не смог, возможно что-то делаю не так.
Огромное спасибо всем. Задача решена. Использую вариант от Nic70y, хотя раньше с макросами дела не имел. Вариант от прохожий2019 при добавлении новых строк выдавал ошибку #ИМЯ? Решить не смог, возможно что-то делаю не так.sergeyryabikin84
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
