Как извлечь ячейки из нескольких электронных таблиц одного формата в новый мастер-файл

Question

У меня есть 300 файлов Excel, каждый из которых имеет одинаковый формат - 4 листа в каждом файле с одинаковыми заголовками столбцов / строк. Я пытаюсь извлечь информацию из выбранных ячеек каждой из этих 4-х рабочих таблиц (например, из ячейки D26 на листе A, из ячейки D62 на листе B и т.д.) Из всех 300 файлов Excel и поместить эти данные в новый мастер-файл Excel который содержит информацию из каждого из 300 файлов Excel. Это возможно?

Answer 1

Существует несколько действительно хороший кода размещен здесь , что должно делать то , что вы хотите с несколькими настройками.

Гордон

Необходимо будет внести некоторые изменения, которые хорошо прокомментированы. Эти строки получают все данные из столбца A в рабочей книге и копируют их на мастер-лист.

LR = Range("A" & Rows.Count).End(xlUp).Row  'Find last row
Range("A1:A" & LR).EntireRow.Copy .Range("A" & NR)

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

wbData.sheets(1).range("A2:A26").copy .Range("A" & NR)
NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
wbData.sheets(2).range("A2:A62").copy .Range("A" & NR)
NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
...