powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как выбрать уникальные значения значения в 1 столбце на каждом листе книги?
2 сообщений из 2, страница 1 из 1
Как выбрать уникальные значения значения в 1 столбце на каждом листе книги?
    #38417195
Есть книга Excel с кучей листов, кот-ю нужно раскидать на несколько книг.
Число книг равно числу уникальных значений 1 столбца по совокупности всех листов книги.
Думаю получить сначала список всех уникальных значений(перечень принципалов), а потом циклом для каждой строки из списка вложенным циклом по каждому листу формировать книгу для каждого принципала из списка.
Пара вопросов:
1. Как получить список уникальных значений для все хлистов? Для единственного раньше я использовал такой код:
Код: vbnet
1.
2.
3.
Sub Макрос1()
    Range("A1:A20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True
End Sub


Если последовательно копировать циклом на промежуточный лист, то кроме самих значений будут и названия столбца.
2. Вообще идея с получить сначала список всех уникальных значений(перечень принципалов), а потом циклом для каждой строки из списка вложенным циклом по каждому листу формировать книгу для каждого принципала из списка. концептуально верная?
...
Рейтинг: 0 / 0
Как выбрать уникальные значения значения в 1 столбце на каждом листе книги?
    #38432047
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
грязный комплектовщик,

Пробежаться по всем листам и скопировать данные в один столбец, а дальше уникальные или сделать внутренним запросом sql, последнее пожалуй сложнее.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как выбрать уникальные значения значения в 1 столбце на каждом листе книги?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]