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

Вход

Регистрация

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

 

= Мир MS Excel/Исключить повторения чисел из строки - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Исключить повторения чисел из строки
hatter Дата: Понедельник, 08.10.2018, 16:15 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 0 ±
Замечаний: 0% ±

Добрый день, подскажите пожалуйста, возможно ли каким-то образом оставить в ячейке не повторяющиеся номера телефонов?
К сообщению приложен файл: 6173096.xlsx (9.1 Kb)
 
Ответить
СообщениеДобрый день, подскажите пожалуйста, возможно ли каким-то образом оставить в ячейке не повторяющиеся номера телефонов?

Автор - hatter
Дата добавления - 08.10.2018 в 16:15
Pelena Дата: Понедельник, 08.10.2018, 16:32 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19513
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Посмотрите готовое решение


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Посмотрите готовое решение

Автор - Pelena
Дата добавления - 08.10.2018 в 16:32
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]

*Добавил пробел после разделителя
К сообщению приложен файл: 6173096_2.xlsm (15.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
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 лишним не будет
К сообщению приложен файл: 6546791.xlsx (20.6 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
В профиле версия Excel не указана, но думаю, что решение на Power Query лишним не будет

Автор - sboy
Дата добавления - 08.10.2018 в 17:50
Pelena Дата: Понедельник, 08.10.2018, 19:10 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19513
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
там не совсем то

Ошиблась, не ту ссылку дала
http://www.excelworld.ru/board....-1-0-48


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
там не совсем то

Ошиблась, не ту ссылку дала
http://www.excelworld.ru/board....-1-0-48

Автор - Pelena
Дата добавления - 08.10.2018 в 19:10
  • Страница 1 из 1
  • 1
Поиск:

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