сведение таблиц в excel
Автор Илья Александрович задал вопрос в разделе Прочее компьютерное
Сведение двух таблиц в одну. Excel и получил лучший ответ
Ответ от Алексей Матевосов (AlexM)[гуру]
В каждой таблице на Лист1 и Лист2 в столбце А - код, в В - наименование, в С - количество Данные с первой строки. Код программы Вставить в Module1 проекта VBA Sub Macros() Set ws1 = Worksheets("Лист1") Set ws2 = Worksheets("Лист2") Set ws3 = Worksheets("Лист3") ws1.Cells.Copy (ws3.Cells) i = 1: j = 1 While ws2.Cells(i, 1) <> "" While ws3.Cells(j, 1) <> "" If ws3.Cells(j, 4) = "" Then ws3.Cells(j, 4) = 0 If ws2.Cells(i, 1) = ws3.Cells(j, 1) Then ws3.Cells(j, 4) = ws2.Cells(i, 3) GoTo ff End If j = j + 1 Wend ws3.Cells(j, 1) = ws2.Cells(i, 1) ws3.Cells(j, 2) = ws2.Cells(i, 2) ws3.Cells(j, 3) = 0 ws3.Cells(j, 4) = ws2.Cells(i, 3) ff: j = 1 i = i + 1 Wend End Sub Запустить макрос. В результате будет создана таблица на Лист3 (должен быть в книге до запуска макроса) в А - код, в В - наименование, в С количество из таблицы с Лист1 и D - количество из таблицы с Лист2
Предложу вариант без макроса, Таблицы нужно скопировать одна под одной, в правом столбце в каждой ячеке прописать название таблицы (у меня таблицы 1 и 2) и построить сводную таблицу. Пример в файле по ссылке <a rel="nofollow" href="http://files.mail.ru/E0