☰

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

tag-icon • tag-icon microsoft-excel worksheet-function
как извлечь ячейки из нескольких электронных таблиц с одинаковым форматом в новый главный файл

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

решение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
...

Связанный контент