Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Оставить в ячейках только слова из списка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Оставить в ячейках только слова из списка (Формулы/Formulas)
Оставить в ячейках только слова из списка
sergeyryabikin84 Дата: Понедельник, 09.01.2023, 15:31 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, форумчане. Всех с наступившем Новым годом!
Помогите, пожалуйста, решить задачу. В одном столбце, в ячейках через запятую перечислены слова и словосочетания. В другом столбце, в ячейках записаны слова и словосочетания по отдельности. Нужно в ячейках первого столбца оставить только те слова и словосочетания, которые есть в ячейках другого столбца.
К сообщению приложен файл: 7202049.xls(30.5 Kb)
 
Ответить
СообщениеЗдравствуйте, форумчане. Всех с наступившем Новым годом!
Помогите, пожалуйста, решить задачу. В одном столбце, в ячейках через запятую перечислены слова и словосочетания. В другом столбце, в ячейках записаны слова и словосочетания по отдельности. Нужно в ячейках первого столбца оставить только те слова и словосочетания, которые есть в ячейках другого столбца.

Автор - sergeyryabikin84
Дата добавления - 09.01.2023 в 15:31
Nic70y Дата: Понедельник, 09.01.2023, 16:45 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8005
Репутация: 1949 ±
Замечаний: 0% ±

Excel 2010
вдруг правильно
[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
[/vba]
К сообщению приложен файл: 9999.xls(38.5 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениевдруг правильно
[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
[/vba]

Автор - Nic70y
Дата добавления - 09.01.2023 в 16:45
прохожий2019 Дата: Понедельник, 09.01.2023, 21:00 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 271 ±
Замечаний: 0% ±

365 Beta Channel
[vba]
Код
=LET(x;ТЕКСТРАЗД(A2;;", ");ОБЪЕДИНИТЬ(", ";;ФИЛЬТР(x;СЧЁТЕСЛИ($B$2:$B$5;x))))
[/vba]
К сообщению приложен файл: 7202049.xlsx(11.4 Kb)
 
Ответить
Сообщение[vba]
Код
=LET(x;ТЕКСТРАЗД(A2;;", ");ОБЪЕДИНИТЬ(", ";;ФИЛЬТР(x;СЧЁТЕСЛИ($B$2:$B$5;x))))
[/vba]

Автор - прохожий2019
Дата добавления - 09.01.2023 в 21:00
sergeyryabikin84 Дата: Вторник, 10.01.2023, 12:01 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Огромное спасибо всем. Задача решена.
Использую вариант от Nic70y, хотя раньше с макросами дела не имел.
Вариант от прохожий2019 при добавлении новых строк выдавал ошибку #ИМЯ? Решить не смог, возможно что-то делаю не так.
 
Ответить
СообщениеОгромное спасибо всем. Задача решена.
Использую вариант от Nic70y, хотя раньше с макросами дела не имел.
Вариант от прохожий2019 при добавлении новых строк выдавал ошибку #ИМЯ? Решить не смог, возможно что-то делаю не так.

Автор - sergeyryabikin84
Дата добавления - 10.01.2023 в 12:01
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Оставить в ячейках только слова из списка (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2023 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!