Копирование данных из одной книги в другу с помощью словаря

[IgorGO]

представьте, у Вас нет компьютера, нет Ecxel, у Вас есть несколько листов (бумаги) на которых записано некоторое количество данных, листы расчерчены на строки и колонки, данные находятся в ячейках на пересечении этих строк и колонок. никакие фильтры, формулы на листе бумаги не работают...
а еще у Вас есть неограниченное количество расчерченных на строки и колонки пустых листов
и вот теперь вопрос какие данные из исходных листов должно попасть в пустые листы, что необходимо получить в итоге (возможно что-то нужно сложить в промежуточные (расчетные) листы, а может и нет)))

[IgorGO]

и еще - я не разбираюсь в программировании и не понимаю что это такое:

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
Application.StatusBar = "Обработка... " & i
If Cells(i, 6) Like "*ЛЛЛ*" Then Cells(i, 15) = "Л"
If Cells(i, 6) Like "*ККК*" Then Cells(i, 15) = "К"

поэтому наличие таких записей в обьяснениях бесполезно и даже очень вредно, потому что жутко отвлекает от понимания сути задачи

[Hugo121]

Сообщение от IgorGO

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1

- тут может таиться подвох (или подстава) кстати... Но на конкретном листе с конкретными данными можно и так, но это неуниверсально.

[Gulnara20]

Выложила другой пример

Есть две книги Excel

Книга "База" - лист "Инфо"
- здесь подробная информация по организациям

Книга "Информация за день" - Лист "отчет" - отчет формируемый исходя из ежедневных данных на который необходимо добавить информацию сравнив наименование - столбец "Name" (2 столбец - желтым цветом) из книги "База" лист "Инфо" по следующим колонкам "ADDRESS", "SUPPORT", "CONTROLER" в столбцы 4,5,6 в этом же листе "отчет" их листа "Инфо" книги "База"(выделено красным, 9,10,16 столбец)

подскажите пож-та как это реализовать c помощью макроса

(к сожалению я не такой знаток Excel VBA, а access пользоваться нельзя)

[Hugo121]

Записываете рекордером как протягиваете 3 раз ВПР(), затем копипастите весь диапазон назад как значения, выключаете запись макроса - получаете код.
Если данных не сотни тысяч - вполне рабочий вариант.
А так вообще тут работа для массивов и словарей...

[Gulnara20]

С помощью ВПР и упрощенного макроса это и сейчас. А мне хотелось как раз с помощью массивов и словарей!

[IgorGO]

отлично все обьяснено! жаль, что не понятно что делать (осталось 4 вопроса)
1. откуда берем данные?
2. куда складываем?
3. что сравниваем, выполнение какого условия - это сигнал для копирования?
4. что именно копируем с исходных?

и 1 вопрос не по-существу: Вам вообще интересно решение этой задачи или Вам по-барабану поймет-ли ее кто-нибудь и поможет решить?

[Gulnara20]

1. откуда берем данные? - берем данные из листа "инфо" книга "база"
2. куда складываем? - добавляем данные в лист "отчет" книга "информация за день"
3. что сравниваем, выполнение какого условия - это сигнал для копирования ? - сравниваем столбец "name" в листе "отчет" со столбцом "name" на листе "инфо"; при совпадении необходимо добавить информацию, в случае если не нашло совпадения - оставлять пустыми, если найдено, то:
4. что именно копируем с исходных? - копировать информацию по данному значению "address ", "support", "kontroler" в соответственно 4,5,6 столбец на лист "отчет" книга "информация за день"

и 1 вопрос не по-существу: Вам вообще интересно решение этой задачи или Вам по-барабану поймет-ли ее кто-нибудь и поможет решить?
Да, извините не знаю как объяснить. И мне не по- барабану. В примере я вроде выделила то что сравнивается и то что надо вставить если найдено. Поможете?

[IgorGO]

допустим в строке 6 отчет видим ООО "АГРОТОРГ"
обращаемся к База Инфо и там видим порядка 270 раз ООО "АГРОТОРГ"
КАКОЙ ИЗ 270 ВАРИАНТОВ подходит нам?
какой из этих адресов подходит Вам?

ПЕРВОМАЙСКАЯ УЛ. Д. 18 СОРТАВАЛА RU
УЛ.ЖУКОВСКОГО Д. 57 Г. ПЕТРОЗАВОДСК RU
УЛ.КАРЕЛЬСКАЯ Д. 16 СОРТАВАЛА RU
УЛ.МАРШАЛА МЕРЕЦКОВА Д. 11 Г. ПЕТРОЗАВОДСК RU
УЛ.ПРОМЫШЛЕННАЯ Д. 32 СОРТАВАЛА RU
УЛ.ТОРНЕВА Д. 13 Г. ПЕТРОЗАВОДСК RU
11-Я ЛИНИЯ ВО Д.38 Г. САНКТ-ПЕТЕРБУРГ RU
17-Я ЛИНИЯ ВО Д.12 Г. САНКТ-ПЕТЕРБУРГ RU
2 МУРИНСКИЙ ПР. Д.10, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
25-ГО ОКТЯБРЯ УЛ. Д. 21 Г. ОСТРОВ RU
7-ГО НОЯБРЯ УЛ. Д.72А Г. СЕБЕЖ RU
АВИАКОНСТРУКТОРОВ ПР. Д.32 Г. САНКТ-ПЕТЕРБУРГ RU
АВИАКОНСТРУКТОРОВ УЛ. Д.49 Г. САНКТ-ПЕТЕРБУРГ RU
АВИАКОНСТРУКТОРОВ УЛ., Д.35 К.Г. САНКТ-ПЕТЕРБУРГ RU
АНГЛИЙСКИЙ ПР. Д.16 Г. САНКТ-ПЕТЕРБУРГ RU
АНТИКАЙНЕНА УЛ. Д.2/3 Г. КОСТАМУКША RU
АНТИКАЙНЕНА УЛ. Д.20 Г. КОСТАМУКША RU
Б.ПОРОХОВСКАЯ УЛ. Д.50 Г. САНКТ-ПЕТЕРБУРГ RU
БАБУШКИНА УЛ. Д.9 Г. САНКТ-ПЕТЕРБУРГ RU
БАЙКОНУРСКАЯ УЛ. Д.28 Г. САНКТ-ПЕТЕРБУРГ RU
БАЙКОНУРСКАЯ УЛ. Д.9, К.2 Г. САНКТ-ПЕТЕРБУРГ RU
БЕГОВАЯ УЛ. Д.3, ЛИТ.А Г. САНКТ-ПЕТЕРБУРГ RU
БЕЛГРАДСКАЯ УЛ. Д.28, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
БЕЛЫ КУНА УЛ. Д.24, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
БЕРИНГА УЛ. Д.23, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
БОГАТЫРСКИЙ ПР. Д.10 Г. САНКТ-ПЕТЕРБУРГ RU
БОГАТЫРСКИЙ ПР. Д.4 Г. САНКТ-ПЕТЕРБУРГ RU
БОГАТЫРСКИЙ ПР. Д.66, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
БОГАТЫРСКИЙ ПРОСП. Д.63 Г. САНКТ-ПЕТЕРБУРГ RU
БОЛЬШЕВИКОВ ПР. Д.21 Г. САНКТ-ПЕТЕРБУРГ RU
БОЛЬШЕВИКОВ ПР. Д.83 Г. САНКТ-ПЕТЕРБУРГ RU
БРЯНЦЕВА УЛ. Д.19 Г. САНКТ-ПЕТЕРБУРГ RU
БУДАПЕШТСКАЯ УЛ. Д.19 Г. САНКТ-ПЕТЕРБУРГ RU
БУДАПЕШТСКАЯ УЛ. Д.33 Г. САНКТ-ПЕТЕРБУРГ RU
БУДАПЕШТСКАЯ УЛ. Д.49 Г. САНКТ-ПЕТЕРБУРГ RU
БУРЦЕВА УЛ. Д.23 Г. САНКТ-ПЕТЕРБУРГ RU
БУХАРЕСТСКАЯ УЛ. Д.132 Г. САНКТ-ПЕТЕРБУРГ RU
БУХАРЕСТСКАЯ УЛ. Д.144 Г. САНКТ-ПЕТЕРБУРГ RU
БУХАРЕСТСКАЯ УЛ. Д.158 Г. САНКТ-ПЕТЕРБУРГ RU
БУХАРЕСТСКАЯ УЛ. Д.23 Г. САНКТ-ПЕТЕРБУРГ RU
БУХАРЕСТСКАЯ УЛ. Д.31 Г. САНКТ-ПЕТЕРБУРГ RU
ВАРШАВСКАЯ УЛ. Д.23, К.4 Г. САНКТ-ПЕТЕРБУРГ RU
ВАРШАВСКАЯ УЛ. Д.25/2 Г. САНКТ-ПЕТЕРБУРГ RU
ВЕРНОСТИ ПР. Д.10 Г. САНКТ-ПЕТЕРБУРГ RU
ВЕТЕРАНОВ ПР. Д.166 Г. САНКТ-ПЕТЕРБУРГ RU
ВИТЕБСКИЙ ПР. Д.41 Г. САНКТ-ПЕТЕРБУРГ RU
ВЛАДИМИРСКАЯ УЛ. Д. 1 ДЕР. РОДИНА RU
ВО, МАЛЫЙ ПР. Д.52 Г. САНКТ-ПЕТЕРБУРГ RU
ВО, СРЕДНИЙ ПР. Д.39/42 Г. САНКТ-ПЕТЕРБУРГ RU
ВОРОШИЛОВА УЛ., Д.3 К.1, ЛИТ.АГ. САНКТ-ПЕТЕРБУРГ RU
ГАВАНСКАЯ УЛ. Д.45 Г. САНКТ-ПЕТЕРБУРГ RU
ГАГАРИНА УЛ. Д. 4 Г. ПСКОВ RU
ГАГАРИНА УЛ. Д.31 Г. ОПОЧКА RU
ГЕНЕРАЛА СИМОНЯКА УЛ. Д.9 Г. САНКТ-ПЕТЕРБУРГ RU
ГЕНЕРАЛА ФРОЛОВА УЛ. Д.10 Г. ПЕТРОЗАВОДСК RU
ГОНЧАРНАЯ УЛ. Д.1 Г. ВОЛОГДА RU
ГРАЖДАНСКИЙ ПР. Д.105 Г. САНКТ-ПЕТЕРБУРГ RU
ГРАЖДАНСКИЙ ПР. Д.84 Г. САНКТ-ПЕТЕРБУРГ RU
ДАЛЬНЕВОСТОЧНЫЙ ПР. Д.30 Г. САНКТ-ПЕТЕРБУРГ RU
ДАЛЬНЕВОСТОЧНЫЙ ПР. Д.42/2 Г. САНКТ-ПЕТЕРБУРГ RU
ДЕР. БОРИСОВИЧИ Г. ПСКОВ RU
ДИМИТРОВА УЛ. Д.22, К.2 Г. САНКТ-ПЕТЕРБУРГ RU
ДОБЛЕСТИ УЛ. Д.28 Г. САНКТ-ПЕТЕРБУРГ RU
ДУДКО УЛ. Д.18 Г. САНКТ-ПЕТЕРБУРГ RU
ДУНАЙСКИЙ ПР. Д.44 Г. САНКТ-ПЕТЕРБУРГ RU
ДЫБЕНКО УЛ. Д.14/1 Г. САНКТ-ПЕТЕРБУРГ RU
ЕГОРОВА УЛ. Д. 10 ПСКОВСКАЯ ОБЛ., ПГТ. ДЕДОВRU
ЕСЕНИНА УЛ. Д.22 Г. САНКТ-ПЕТЕРБУРГ RU
ЕСЕНИНА УЛ. Д.5 Г. САНКТ-ПЕТЕРБУРГ RU
ЖЕЛЕЗНОДОРОЖНАЯ УЛ., Д.3 ПСКОВСКАЯ ОБЛ., ПГТ. ПЛЮССRU
ЖЕНИ ЕГОРОВОЙ УЛ. Д.4, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
ЗАЙЦЕВА УЛ. Д.23 Г. САНКТ-ПЕТЕРБУРГ RU
ЗАМШИНА УЛ. Д.28 Г. САНКТ-ПЕТЕРБУРГ RU
ЗАРЕЧНАЯ УЛ. Д.1А ПОС. ВЯРТСИЛЯ RU
ЗВЕЗДНАЯ УЛ. Д.16 Г. САНКТ-ПЕТЕРБУРГ RU
ИВАНОВСКАЯ УЛ. Д.6 Г. САНКТ-ПЕТЕРБУРГ RU
ИЛЬЮШИНА УЛ. Д.3/1 Г. САНКТ-ПЕТЕРБУРГ RU
ИНДУСТРИАЛЬНЫЙ ПР. Д.10 Г. САНКТ-ПЕТЕРБУРГ RU
ИНДУСТРИАЛЬНЫЙ ПР. Д.27 Г. САНКТ-ПЕТЕРБУРГ RU
ИНДУСТРИАЛЬНЫЙ ПР. Д.30/23 Г. САНКТ-ПЕТЕРБУРГ RU
ИНДУСТРИАЛЬНЫЙ ПРОСП. Д.35 Г. САНКТ-ПЕТЕРБУРГ RU
ИСКРОВСКИЙ ПР. Д.7 Г. САНКТ-ПЕТЕРБУРГ RU
К. МАРКСА УЛ. Д.29 Г. КАДНИКОВ RU
КАЛИНИНА УЛ. Д.62 Г. ОСТРОВ RU
КАН.ГРИБОЕДОВА НАБ. Д.122 Г. САНКТ-ПЕТЕРБУРГ RU
КАРАВАЕВСКАЯ УЛ. Д.24 Г. САНКТ-ПЕТЕРБУРГ RU
КАРЛА МАРКСА УЛ. Д. 14 Г. ДНО RU
КИРОВА УЛ. Д.78 Г. ВОЛОГДА RU
КОЗЛЕНСКАЯ УЛ., Д.63 Г. ВОЛОГДА RU
КОЛЛОНТАЙ УЛ. Д.25,КОРП3 Г. САНКТ-ПЕТЕРБУРГ RU
КОЛЛОНТАЙ УЛ. Д.41 Г. САНКТ-ПЕТЕРБУРГ RU
КОМЕНДАНТСКИЙ ПР. Д.24 Г. САНКТ-ПЕТЕРБУРГ RU
КОМЕНДАНТСКИЙ ПР. Д.38 Г. САНКТ-ПЕТЕРБУРГ RU
КОММУНАЛЬНАЯ УЛ. Д. 16 А Г. ОПОЧКА RU
КОММУНАЛЬНАЯ УЛ. Д. 18 Г. ПСКОВ RU
КОММУНЫ УЛ. Д.50 Г. САНКТ-ПЕТЕРБУРГ RU
КОМПОЗИТОРОВ УЛ. Д.5 Г. САНКТ-ПЕТЕРБУРГ RU
КОНДРАТЬЕВСКИЙ ПР. Д.48 Г. САНКТ-ПЕТЕРБУРГ RU
КОНДРАТЬЕВСКИЙ ПР. Д.62, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
КОНЕВА УЛ. Д.25 Г. ВОЛОГДА RU
КОРАБЛЕСТРОИТЕЛЕЙ УЛ. Д.30 Г. САНКТ-ПЕТЕРБУРГ RU
КОРОЛЕВА УЛ. Д.46, К.2 Г. САНКТ-ПЕТЕРБУРГ RU
КОСМОНАВТОВ ПР. Д.29, К.7 Г. САНКТ-ПЕТЕРБУРГ RU
КОСТЮШКО УЛ. Д.38 Г. САНКТ-ПЕТЕРБУРГ RU
КОТИНА УЛ. Д.3 Г. САНКТ-ПЕТЕРБУРГ RU
КРАСНОПУТИЛОВСКАЯ УЛ. Д.66 Г. САНКТ-ПЕТЕРБУРГ RU
КУЗНЕЦОВСКАЯ УЛ. Д.11 Г. САНКТ-ПЕТЕРБУРГ RU
КУЛЬТУРЫ ПР. Д.22 Г. САНКТ-ПЕТЕРБУРГ RU
КУЛЬТУРЫ ПР. Д.25 Г. САНКТ-ПЕТЕРБУРГ RU
КУПЧИНСКАЯ УЛ. Д.1/5 Г. САНКТ-ПЕТЕРБУРГ RU
КУПЧИНСКАЯ УЛ. Д.32 Г. САНКТ-ПЕТЕРБУРГ RU
ЛАЗАРЕВА БУЛ. Д.8 Г. КОСТОМУКША RU
ЛА-РОШЕЛЬ НАБ. Д.17 Г. ПЕТРОЗАВОДСК RU
ЛЕНИНА ПЛ. Д.8 Г. САНКТ-ПЕТЕРБУРГ RU
ЛЕНИНГРАДСКАЯ УЛ. Д. 150 Г. ВОЛОГДА RU
ЛЕНИНСКАЯ УЛ. Д. 25 ПСКОВСКАЯ ОБЛ., С. СЕРЕДКАRU
ЛЕНИНСКИЙ ПР. Д.122 Г. САНКТ-ПЕТЕРБУРГ RU
ЛЕНИНСКИЙ ПР. Д.156 Г. САНКТ-ПЕТЕРБУРГ RU
ЛЕНИНСКИЙ ПР. Д.71 Г. САНКТ-ПЕТЕРБУРГ RU
ЛЕНИНСКИЙ ПР. Д.98 Г. САНКТ-ПЕТЕРБУРГ RU
ЛЕНСКАЯ УЛ. Д.6/2 Г. САНКТ-ПЕТЕРБУРГ RU
ЛЕРМОНТОВА УЛ. Д.10 ПОС. ПУШКИНСКИЕ ГОРЫ RU
ЛЕРМОНТОВСКИЙ ПР. Д.9 Г. САНКТ-ПЕТЕРБУРГ RU
ЛЕТЧИКА ПИЛЮТОВА УЛ. Д.11, К.4Г. САНКТ-ПЕТЕРБУРГ RU
ЛУНАЧАРСКОГО ПР. Д.80 Г. САНКТ-ПЕТЕРБУРГ RU
ЛУНАЧАРСКОГО ПР. Д.86/4 Г. САНКТ-ПЕТЕРБУРГ RU
ЛУНАЧАРСКОГО УЛ. Д.52, К.1 Г. САНКТ-ПЕТЕРБУРГ RU
ЛУНАЧАРСКОГО УЛ. Д.60 Г. САНКТ-ПЕТЕРБУРГ RU
М.БАЛКАНСКАЯ УЛ. Д.31 Г. САНКТ-ПЕТЕРБУРГ RU

[Gulnara20]

прошу еще раз извинений, поторопишься... (несколько разных задач).
Прилагаю очищенный пример.