Нужен макрос по выборке уникальных сочетаний двух столбцов

Пользователь

Сообщений: 3280 Регистрация: 24.12.2012

05.04.2010 17:37:48

Выгрузка из 1-с дает данные в типа таком виде.
Очень нужен макрос (видимо) котроый соберет все уникальные сочетания Произв-Отдел на листе "отчет!" со всех прочих листов (Не "отчет!"), скопирует их на лист "Отчет!" как значения (в оригинале будут формулы) и отсортирует их.
Пример в файле.
Надо делал так сцепил А и В на всех листах скопировал в колонку отобрал уникальные из сцепленных ..отсортировал.
Спасибо

Прикрепленные файлы

post_114406.xls (23.5 КБ)

lapink2000 Пользователь Сообщений: 2186 Регистрация: 01.01.2013	#2 05.04.2010 18:09:21 Такой вариант. Прикрепленные файлы post_114424.xls (50.5 КБ) KL

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 05.04.2010 18:14:22 вот ещё вариант: http://excelvba.ru/XL_Files/Sample__05-04-2010__20-14-02.zip Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	#4 06.04.2010 09:21:11 {quote}{login=KL}{date=05.04.2010 06:09}{thema=}{post}Такой вариант.{/post}{/quote} Спасибо но сводная наверно не устроит, нужен просто уникальный список сочетаний формулы потом к нему буду лепить.

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	#5 06.04.2010 09:22:37 {quote}{login=EducatedFool}{date=05.04.2010 06:14}{thema=}{post}вот ещё вариант: http://excelvba.ru/XL_Files/Sample__05-04-2010__20-14-02.zip{/post}{/quote} Спасибо EducatedFool но у меня провайдер блокирует доступ у этому ресурсу , просто так не прилепите или на почту.

Guest Гость	#6 06.04.2010 09:31:54 Забираем. Z. Прикрепленные файлы post_114560.zip (13.21 КБ)

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	#7 06.04.2010 09:37:50 Спасибо огромное это то что нужно, в это момент.

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	#8 06.04.2010 09:52:15 Только на реальных данных в этой строке на Ме ругается. Sub Cl() Me.Range(Me.Range("a6"), Me.Range("a" & Me.Rows.Count)).Resize(, 2).ClearContents ' очистка End Sub

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	#9 06.04.2010 10:06:04 Там еще в тексте главного макроса много Ме может проще их активировать в примере EducatedFool они работают без вопросов.

Читают тему