☰

Wie extrahiere ich Zellen aus mehreren Tabellenblättern mit demselben Format in eine neue Masterdatei?

tag-icon • tag-icon microsoft-excel worksheet-function
Wie extrahiere ich Zellen aus mehreren Tabellenblättern mit demselben Format in eine neue Masterdatei?

Ich habe 300 Excel-Dateien, jede mit genau demselben Format – 4 Arbeitsblätter in jeder Datei mit denselben Spalten-/Zeilenüberschriften. Ich versuche, Informationen aus ausgewählten Zellen jedes dieser 4 Arbeitsblätter (z. B. aus Zelle D26 in Arbeitsblatt A, aus Zelle D62 in Arbeitsblatt B usw.) aus allen 300 Excel-Dateien zu extrahieren und diese Daten in eine neue Master-Excel-Datei einzufügen, die die Informationen aus jeder der 300 Excel-Dateien enthält. Ist das möglich?

Antwort1

Es wurde wirklich schöner Code gepostetHierdas sollte mit ein paar Optimierungen das gewünschte Ergebnis liefern.

Gordon

Es müssen einige Änderungen vorgenommen werden, die gut kommentiert sind. Diese Zeilen erhalten alle Daten aus Spalte A in der Arbeitsmappe und kopieren sie in das Hauptblatt.

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

Stattdessen müssen Sie die Arbeitsblätter durchlaufen und die Bereiche, die Sie kopieren möchten, mit etwas wie diesem festlegen.

wbData.sheets(1).range("A2:A26").kopieren .Range("A" & NR)
NR = .Bereich("A" & .Zeilen.Anzahl).Ende(xlUp).Zeile + 1
wbData.sheets(2).range("A2:A62").kopieren .Range("A" & NR)
NR = .Bereich("A" & .Zeilen.Anzahl).Ende(xlUp).Zeile + 1
...

verwandte Informationen