So extrahieren Sie bestimmte Spaltendaten aus mehreren Excel-Dateien mit etwa 200 Dateien und fassen sie in einer neuen Datei zusammen

Wie man bestimmte Spalten aus vielen etwa 200 Excel-Dateien extrahiert und in einer neuen zusammenfasst

Halten Sie nach dem Ausführen von Excel die Alt-Taste gedrückt und drücken Sie nacheinander f11, i, m

Fügen Sie den Code unten ein, nehmen Sie die erforderlichen Änderungen vor und drücken Sie F5, um die zusammenfassenden Ergebnisse im aktuellen Arbeitsblatt zu erhalten.

Untertest()

c = Array(1, 3, 5, 7, 8)

p = "d: das Verzeichnis, in dem sich die Zusammenfassungsdatei befindet" 'Ändern Sie es entsprechend der tatsächlichen Situation. Achten Sie darauf, das letzte nicht zu verpassen

f = Dir(p & "*.xlsx")

Setzen Sie ns = ActiveSheet

Machen Sie bis f = ＂＂

Set wb = Workbooks.Open(p & f)

Für i = 0 bis 4

n = n + 1

ns.Cells(2, n).Resize(144).Value = wb.Sheets(＂Room 1＂).Cells(2, c).Resize(144).Value

Weiter

wb.Close False

f = Dir

Schleife

End Sub

Extrahieren Sie Daten aus mehreren Excel-Tabellen im gleichen Format

Eigentümer, ich denke, was Sie tun, ist machbar. Mönche wagen es nicht zu lügen, und ich wage es nicht zu lügen, selbst wenn ich kein Mönch werde!

Wenn Sie diese Gelegenheit nicht aufgeben möchten, würde ich es gerne versuchen. Bitte hallo und hinterlassen Sie mir eine Nachricht.

Antwort: lxlzmh2002 – Großer Magier Level 8 2009-8-19 04:40

============================================== === =======================

Inhaber, heute habe ich jemandem geholfen, ein VBA-Programm zum Zusammenführen mehrerer Tabellen zu schreiben. Mir ist plötzlich eingefallen, dass ich einen ähnlichen Beitrag gesehen habe, also habe ich Ihren Beitrag gefunden und werde ihn noch einmal beantworten:

Der VBA-Code lautet wie folgt:

Dim sht As Worksheet

Dim rs As Long, js As Long, ds As Long

Dim i As Integer

Bei Fehler Fortsetzung fortsetzen

Set sht = Sheets („Zusammenfassung“)

Wenn Err.Number = 0, dann

Blätter („Zusammenfassung“). Auswählen

ActiveSheet.Range(＂A1＂).CurrentRegion.ClearContents

Sonst

Sheets.Add before:=Sheets(1)

ActiveSheet.Name = "Zusammenfassung"

Ende wenn

Sheets(2).Range(＂1:1＂).Copy Sheets（＂Summary＂）.Range(＂A1＂)

Für i = 2 To Sheets.Count

ds = Sheets("Summary").Range("A65536").End(xlUp).Row + 1

rs = Sheets(i).Range(＂A65536＂).End(xlUp).Row

js = Sheets(i).Range(＂A1＂).End(xlToRight).Column

Mit Laken(i)

.Auswählen

.Range(Cells(2, 1), Cells(rs, js)).Copy Sheets("Summary").Cells(ds, 1)

Ende mit

Weiter

Blätter („Zusammenfassung“). Auswählen

Der obige Code wird wie folgt verwendet:

Makro aufzeichnen: Menü „Extras“ -> Makro -> Makro aufzeichnen -> Benennen Sie das Makro im Feld „Makroname“ -> Legen Sie eine Tastenkombination fest, geben Sie unter „Tastenkombination“ einen Buchstaben ein -> Starten Sie die Aufnahme nach Bestätigung Makro.

Makro bearbeiten: Nachdem Sie mit der Aufnahme begonnen haben, können Sie direkt die Stopptaste drücken und dann das Makro bearbeiten (Extras->Makro->Makro (M)->Wählen Sie das gerade erstellte Makro aus->Klicken Sie auf die Schaltfläche „Bearbeiten“) rechts -> Öffnen Sie die Makrobearbeitungsoberfläche -> Löschen Sie den gesamten Inhalt zwischen Sub XXX und End Sub -> Fügen Sie dann den obigen Programmcode ein -> Klicken Sie auf die Schaltfläche „Speichern“ in der Symbolleiste -> Menü „Datei“ -> > Schließen Sie und kehren Sie zu MicorSoft Excel zurück

Makro ausführen: Drücken Sie die Tastenkombination, die Sie gerade festgelegt haben (Strg+dieser Buchstabe), oder wählen Sie den Makronamen über das Menü „Extras“ -> Makro -> Makro (M) -> im Fenster aus und drücken Sie die Taste Schaltfläche „Ausführen“, um das Makro auszuführen .

============================================== === =================

Funktionsbeschreibung dieses VBA-Codes:

1. Nach der Ausführung des VBA-Codes fügt das Programm ein Arbeitsblatt mit dem Namen „Zusammenfassung“ hinzu.

2. Verwenden Sie die erste Zeile von Blatt1 (es macht keinen Sinn, sie Blatt1 zu nennen, das Programm kennt den Namen selbst) als erste Zeile der „Zusammenfassung“-Tabelle.

3. Fügen Sie dann alle Zeilen und Spalten ab der zweiten Zeile im Arbeitsblatt mit Ausnahme der Tabelle „Zusammenfassung“ anhängend zur Tabelle „Zusammenfassung“ hinzu (die erste Zeile gilt normalerweise als Titel)

4. Der Anhängevorgang entspricht dem Kopieren und Einfügen, ist jedoch viel schneller als das manuelle Kopieren und Einfügen. Man kann sagen, dass er im Handumdrehen abgeschlossen ist. Und wenn Sie es einmal mit der Tastenkombination ausführen, werden alle Arbeitsblätter einmal zusammengefasst.

Sie werden wissen, ob es funktioniert oder nicht, sobald Sie es ausprobieren. Wenn Sie Fragen zur Verwendung dieses Codes haben, hallo bitte ~~~~~

Das obige ist der detaillierte Inhalt vonSo extrahieren Sie bestimmte Spaltendaten aus mehreren Excel-Dateien mit etwa 200 Dateien und fassen sie in einer neuen Datei zusammen. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!