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

Вход

Регистрация

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

 

= Мир MS Excel/Уникальные записи из списка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Уникальные записи из списка (Макросы/Sub)
Уникальные записи из списка
Stormy Дата: Среда, 03.12.2014, 12:23 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Добрый день, уважаемые.
Помогите решить задачу.
Нужно выбрать уникальные записи по названию фирмы, имени и номеру телефона и сохранить их в отдельную таблицу для дальнейшей работы. Ума не приложу с какого бока подступить.
В одной фирме могут работать 2 человека с именем Вася , но у них разные номера телефонов. В двух разных фирмах может быть 1 человек с одним и тем же номеров телефона.
Как выбрать уникальные записи?
К сообщению приложен файл: 4268612.xls (28.5 Kb)

Место для рекламы.
 
Ответить
СообщениеДобрый день, уважаемые.
Помогите решить задачу.
Нужно выбрать уникальные записи по названию фирмы, имени и номеру телефона и сохранить их в отдельную таблицу для дальнейшей работы. Ума не приложу с какого бока подступить.
В одной фирме могут работать 2 человека с именем Вася , но у них разные номера телефонов. В двух разных фирмах может быть 1 человек с одним и тем же номеров телефона.
Как выбрать уникальные записи?
Автор - Stormy
Дата добавления - 03.12.2014 в 12:23
buchlotnik Дата: Среда, 03.12.2014, 12:46 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
обсуждалось тут: извлечение уникальных
сделал по аналогии
Код
=ИНДЕКС(C$6:C$29;НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ(СЦЕПИТЬ($C$6:$C$29;$D$6:$D$29;$E$6:$E$29);СЦЕПИТЬ($C$6:$C$29;$D$6:$D$29;$E$6:$E$29);0)=СТРОКА($A$1:$A$24);СТРОКА($A$1:$A$24));СТРОКА(A1)))

т.е. делаем конкатенацию и ищем номера уникальных строк
К сообщению приложен файл: 9238754.xls (32.5 Kb)


Сообщение отредактировал buchlotnik - Среда, 03.12.2014, 12:49
 
Ответить
Сообщениеобсуждалось тут: извлечение уникальных
сделал по аналогии
Код
=ИНДЕКС(C$6:C$29;НАИМЕНЬШИЙ(ЕСЛИ(ПОИСКПОЗ(СЦЕПИТЬ($C$6:$C$29;$D$6:$D$29;$E$6:$E$29);СЦЕПИТЬ($C$6:$C$29;$D$6:$D$29;$E$6:$E$29);0)=СТРОКА($A$1:$A$24);СТРОКА($A$1:$A$24));СТРОКА(A1)))

т.е. делаем конкатенацию и ищем номера уникальных строк
Автор - buchlotnik
Дата добавления - 03.12.2014 в 12:46
DJ_Marker_MC Дата: Среда, 03.12.2014, 12:53 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Еще два варианта на выбор в файле)))
К сообщению приложен файл: marker.xls (35.5 Kb)
 
Ответить
СообщениеЕще два варианта на выбор в файле)))
Автор - DJ_Marker_MC
Дата добавления - 03.12.2014 в 12:53
Stormy Дата: Среда, 03.12.2014, 13:41 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
buchlotnik, DJ_Marker_MC,
Спасибо. Но мне почему-то кажется, что без ВБА тут не обойтись.
Ведь нужно будет получить список примерно такого вида:
Марс Иван 55555
Марс Иван 44444
Нестле Иван 55555

Место для рекламы.
 
Ответить
Сообщениеbuchlotnik, DJ_Marker_MC,
Спасибо. Но мне почему-то кажется, что без ВБА тут не обойтись.
Ведь нужно будет получить список примерно такого вида:
Марс Иван 55555
Марс Иван 44444
Нестле Иван 55555
Автор - Stormy
Дата добавления - 03.12.2014 в 13:41
Pelena Дата: Среда, 03.12.2014, 13:54 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Расширенным фильтром ещё можно
К сообщению приложен файл: 2369879.xls (26.5 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеРасширенным фильтром ещё можно
Автор - Pelena
Дата добавления - 03.12.2014 в 13:54
Stormy Дата: Среда, 03.12.2014, 13:58 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
DJ_Marker_MC, Pelena,
Фильтром получилось, но Маркера вариант более удобен.

Место для рекламы.
 
Ответить
СообщениеDJ_Marker_MC, Pelena,
Фильтром получилось, но Маркера вариант более удобен.
Автор - Stormy
Дата добавления - 03.12.2014 в 13:58
buchlotnik Дата: Среда, 03.12.2014, 14:03 | Сообщение № 7
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
Ведь нужно будет получить список примерно такого вида:
Марс Иван 55555
Stormy, почему же сразу VBA? просто формула более жуткой будет. Или я чего-то не догоняю?
К сообщению приложен файл: 7770922.xls (38.0 Kb)


Сообщение отредактировал buchlotnik - Среда, 03.12.2014, 14:14
 
Ответить
Сообщение
Цитата
Ведь нужно будет получить список примерно такого вида:
Марс Иван 55555
Stormy, почему же сразу VBA? просто формула более жуткой будет. Или я чего-то не догоняю?
Автор - buchlotnik
Дата добавления - 03.12.2014 в 14:03
SLAVICK Дата: Среда, 03.12.2014, 14:16 | Сообщение № 8
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Просто сводную по этим полям без доп. столбцов :D
А чтобы было в виде списка - в свойствах - повторять все подписи элементов :)
К сообщению приложен файл: 4268612.xlsx (13.3 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Среда, 03.12.2014, 14:20
 
Ответить
СообщениеПросто сводную по этим полям без доп. столбцов :D
А чтобы было в виде списка - в свойствах - повторять все подписи элементов :)
Автор - SLAVICK
Дата добавления - 03.12.2014 в 14:16
Stormy Дата: Четверг, 04.12.2014, 07:57 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
buchlotnik,
Все верно. Ваша правда, можно без ВБА при чем оказалось куча способов.
Всем спасибо за потраченное время и приведенные примеры

Место для рекламы.
 
Ответить
Сообщениеbuchlotnik,
Все верно. Ваша правда, можно без ВБА при чем оказалось куча способов.
Всем спасибо за потраченное время и приведенные примеры
Автор - Stormy
Дата добавления - 04.12.2014 в 07:57
Wasilich Дата: Суббота, 06.12.2014, 08:21 | Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата Stormy, 04.12.2014 в 07:57, в сообщении № 9
Ваша правда, можно без ВБА
Но, если сильно хочется:
[vba]
Код
Range("C6:E29").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G6"), Unique:=True
[/vba]
 
Ответить
Сообщение
Цитата Stormy, 04.12.2014 в 07:57, в сообщении № 9
Ваша правда, можно без ВБА
Но, если сильно хочется:
[vba]
Код
Range("C6:E29").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G6"), Unique:=True
[/vba]
Автор - Wasilich
Дата добавления - 06.12.2014 в 08:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Уникальные записи из списка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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