Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как удалить дубли фраз внутри ячейки?
 
#1
16.07.2022 00:10:47
Доброго времени суток!

Требуется удалить дубли фраз внутри ячеек, разделенными запятыми.
Файл-пример с коротким фрагментом прилагаю!
Спасибо за помощь!
 
 
 
#2
16.07.2022 00:18:30
UDF
Код
Function Удалить_дубли_в_ячейке(r)
    Dim i, sl, u: Set sl = CreateObject("Scripting.Dictionary")
    u = Split(r, ", ")
    For i = 0 To UBound(u)
        sl(u(i)) = 0
    Next i
    Удалить_дубли_в_ячейке = Join(sl.keys, ", ")
End Function
 
 
 
#3
16.07.2022 00:28:19
Александр Моторин, что с этим делать?
 
 
 
#4
16.07.2022 00:31:59
efendi, вставить данный код в свой файл (нажать Alt+F11, меню Insert - Module, Ctrl+V в правое окно) и сохранить файл с расширением XLSM. А потом в ячейке В2 написать =Удалить_дубли_в_ячейке(A2)
Таким образом мы создали свою функцию на языке VBA и назвали её Удалить_дубли_в_ячейке и теперь её можно вводить в любую ячейку на любом листе в этом файле. См. файл

Изменено: New - 16.07.2022 00:50:50
 
 
 
#5
16.07.2022 00:42:47
New, большое спасибо, всё работает!
 
 
 
#6
16.07.2022 00:48:35
да мне-то за что, это Александру спасибо, он функцию (быстрее меня) написал )
Я лишь дал инструкцию, как этой функцией пользоваться
P.S. Вы куда-нибудь себе запишите ту инструкцию, вы часто задаёте вопросы на форуме и если вам дадут код VBA не в файле (как Александр, а такое часто бывает), чтобы вы могли воспользоваться этим кодом в своём файле.
Изменено: New - 16.07.2022 00:50:07
 
 
 
#7
16.07.2022 00:49:48
New, и Александру тоже спасибо :)
 
 
 
#8
16.07.2022 08:30:22
Если поставите себе Excel поновее. то:
Код
=ОБЪЕДИНИТЬ(", ";1;УНИК(ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ((A2);",";"</i><i>")&"</i></j>";"//i")))
 
 
 
#9
16.07.2022 11:26:30
Тимофеев, в какой версии Excel появились эти функции?
 
 
 
#10
16.07.2022 11:27:25
в 21 все есть точно
 
 
 
#11
18.07.2022 08:47:54
Можете ещё ТУТ почитать
 
 
 
Страницы: 1
Наверх