Копирование нескольких листов в один

Question

я провел некоторое время в поисках помощи в написании кода, чтобы скопировать соответствующие данные из нескольких листов в одном листе, но только один, что сделал что-то подобное, что я нашел здесь размещался: Find Match, Copy Row from Sheet1 and Insert Into Sheet2

Я пробовал адаптировать его в соответствии с моими потребностями, но я не очень хорошо разбираюсь в VBA, и я не мог заставить его делать то, что я хочу. Любая помощь будет принята с благодарностью.

У меня есть книга с четырьмя рабочими листами; Master, FescoMonthly, Schedule, и FescoData. Эти рабочие листы отправляются нам нашими клиентами, поэтому я могу их импортировать, но я не хочу менять их макеты, что является частью проблемы. Я хочу, чтобы макрос искал соответствующие номера счетчиков на каждом листе и скопировал определенную строку на новый рабочий лист под названием Combined.

В Master листе мне нужно скопировать все это из строки 5 вниз (в настоящее время 1982, но еще может быть добавлен) и столбцов A до F. ----- Колонка А метр номер

В Рабочий лист FescoMonthly Мне нужно скопировать строки 5 в нижнюю часть и столбцы A-H, сопоставляя идентичные номера счетчиков от столбца D (номер счетчика) до столбца A основного рабочего листа.

На листе Schedule Мне нужно скопировать строку 5 в нижнюю часть и столбцы А-D, сопоставив столбец А (номер счетчика) с столбцом А основного рабочего листа.

На листе FescoData Мне нужно скопировать строки 5 в нижнюю часть и столбцы А-С, сопоставив столбец А (номер счетчика) с столбцом А основного рабочего листа.

Если кто-то может помочь мне с совпадением и копированием Master и FescoMonthly Я думаю, что я мог бы выяснить, как делать остальные, и я мог бы перепроверить свою работу, чтобы убедиться, что я делаю это правильно.

Answer 1

набора SHT на лист, который имеет данные, которые вы хотите скопировать
набор трг на целевом лист
набора ColCount числа столбцов, чтобы скопировать

Set rng = sht.Range(sht.Cells(5, 1), sht.Cells(65536, 1).End(xlUp).Resize(, colCount)) 
' start at row 5, then get the last row with data, and then expand to the number of columns 
trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value 
' find last unused cell in first column, and copy the data there 

(использование 1048576 вместо 65536 в excel 2007 или новее)