Исключить повторения чисел из строки
hatter
Дата: Понедельник, 08.10.2018, 16:15 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация:
0
±
Замечаний:
0% ±
Добрый день, подскажите пожалуйста, возможно ли каким-то образом оставить в ячейке не повторяющиеся номера телефонов?
Добрый день, подскажите пожалуйста, возможно ли каким-то образом оставить в ячейке не повторяющиеся номера телефонов? hatter
Ответить
Сообщение Добрый день, подскажите пожалуйста, возможно ли каким-то образом оставить в ячейке не повторяющиеся номера телефонов? Автор - hatter Дата добавления - 08.10.2018 в 16:15
Pelena
Дата: Понедельник, 08.10.2018, 16:32 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19513
Репутация:
4632
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
hatter
Дата: Понедельник, 08.10.2018, 16:44 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация:
0
±
Замечаний:
0% ±
Спасибо!
Ответить
Сообщение Спасибо! Автор - hatter Дата добавления - 08.10.2018 в 16:44
_Boroda_
Дата: Понедельник, 08.10.2018, 16:47 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16888
Репутация:
6611
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
По-моему там не совсем то - там сцепка уникальных из диапазона Такой вариант [vba]Код
Function Un(x, raz) With CreateObject("Scripting.Dictionary") For Each s In Split(x, raz) a = .Item(s) Next s Un = Join(.keys, raz & " ")) End With End Function
[/vba] *Добавил пробел после разделителя
По-моему там не совсем то - там сцепка уникальных из диапазона Такой вариант [vba]Код
Function Un(x, raz) With CreateObject("Scripting.Dictionary") For Each s In Split(x, raz) a = .Item(s) Next s Un = Join(.keys, raz & " ")) End With End Function
[/vba] *Добавил пробел после разделителя _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Сообщение отредактировал _Boroda_ - Понедельник, 08.10.2018, 16:49
Ответить
Сообщение По-моему там не совсем то - там сцепка уникальных из диапазона Такой вариант [vba]Код
Function Un(x, raz) With CreateObject("Scripting.Dictionary") For Each s In Split(x, raz) a = .Item(s) Next s Un = Join(.keys, raz & " ")) End With End Function
[/vba] *Добавил пробел после разделителя Автор - _Boroda_ Дата добавления - 08.10.2018 в 16:47
sboy
Дата: Понедельник, 08.10.2018, 17:50 |
Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Добрый день. В профиле версия Excel не указана, но думаю, что решение на Power Query лишним не будет
Добрый день. В профиле версия Excel не указана, но думаю, что решение на Power Query лишним не будет sboy
Яндекс: 410016850021169
Ответить
Сообщение Добрый день. В профиле версия Excel не указана, но думаю, что решение на Power Query лишним не будет Автор - sboy Дата добавления - 08.10.2018 в 17:50
Pelena
Дата: Понедельник, 08.10.2018, 19:10 |
Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19513
Репутация:
4632
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить