Как в Excel удалить повторяющиеся слова в ячейке (слова перечислены через точку с запятой)?

Анонимный вопрос
  · 13,7 K
tDots.ru4,8K
Мы смотрим на бизнес через цифры и знаем, как получить максимум пользы.   · tdots.ru

Убрать дубли из текстовой строки можно с помощью вот такого макроса:

Sub DeleteDuplicatesFromString()

Dim c As Range, x

With CreateObject("scripting.dictionary")

For Each c In Selection

.RemoveAll

For Each x In Split(c)

.Item(x) = 0

Next

c = Join(.keys)

Next

End With

End Sub

Выделяете диапазон ячеек и запускаете макрос. По умолчанию в данном случае разделителем выступает пробел (то есть макрос удалит все дубли среди списка значений строки, разделенных пробелом). Если разделитель другой, то в макросе в функции Split(c) добавьте через запятую этот разделитель, например, Split(c, ",").

Комментировать ответ…
Ещё 1 ответ

Скопировать текст в ячейке-вставить в ворд-выделить -вставка- преобразовать в таблицу с одним столбцом-перенести эту таблицу в эксель-выделить - удалить дубликаты

Комментировать ответ…
Вы знаете ответ на этот вопрос?
Поделитесь своим опытом и знаниями
Войти и ответить на вопрос