Анонимный вопрос
10 месяцев назад
4 308

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

1 человек оценил этот вопрос
Интересный вопрос
Лучший ответ
Мы смотрим на бизнес через цифры и знаем, как получить максимум пользы.

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

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, ",").

61
Написать комментарий

0/140Ответ не может быть меньше 140 символов