Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как выбрать уникальные значения значения в 1 столбце на каждом листе книги? / 2 сообщений из 2, страница 1 из 1
04.10.2013, 17:01
    #38417195
Как выбрать уникальные значения значения в 1 столбце на каждом листе книги?
Есть книга 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
17.10.2013, 22:14
    #38432047
lbppb
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как выбрать уникальные значения значения в 1 столбце на каждом листе книги?
грязный комплектовщик,

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


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