So fügen Sie in Excel mehrere Blätter zu einem zusammen

Um unzählige Excel-Tabellendateien mit demselben Datenformat in einer Excel-Arbeitsmappe zusammenzuführen, um die anschließende Überprüfung, Datenextraktion, Analyse usw. zu erleichtern.

Dies muss in zwei Schritten erfolgen:

Der erste Schritt: Alle Excel-Tabellen zu einer Excel-Tabelle zusammenführen; der Inhalt der mehreren Tabellen wird gerade in A umgewandelt Tabelle und mehrere Blätter unten.

Schritt 2: Führen Sie mehrere Blätter in diesem Excel zu einem Blatt zusammen.

Erforderliche Basissoftware: Excel-Software mit VBA, Sie können Microsoft Office verwenden, das VBA enthält, oder Sie können die professionelle Version von inländischem WPS verwenden.

Die spezifischen Schritte werden unten beschrieben

Eine andere Tabelle wird zu einer Tabelle mit vielen Blättern zusammengeführt

1 Erstellen Sie eine neue Arbeitsmappe und nennen Sie sie Ihren zusammengeführten Namen.

2. Öffnen Sie diese Arbeitsmappe.

3. Klicken Sie mit der rechten Maustaste auf eine beliebige Arbeitsblattbeschriftung darunter und wählen Sie „Code anzeigen“. (Diese Schaltfläche von wps befindet sich unter den Entwicklungstools)

4. Fügen Sie den folgenden Code in das geöffnete VBA-Bearbeitungsfenster ein:

Sub Worksheet merge()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub

5. Schließen Sie das VBA-Bearbeitungsfenster.

6. Gehen Sie in Excel zu Extras---Makro---Makro, wählen Sie „Arbeitsblätter zwischen Arbeitsmappen zusammenführen“ und dann „Ausführen“.

7. Wählen Sie im geöffneten Dialogfenster die Arbeitsblätter aus, die Sie zusammenführen möchten. Wenn es mehrere sind, können Sie diese in einen Ordner legen und dann alle auswählen.

8. Warten. . . . OK!

2. Viele Blätter in einem Blatt zu einem Blatt zusammenführen

1. In einer Arbeitsmappe mit mehreren Blättern (z. B. nach dem Zusammenführen mehrerer Arbeitsmappen, n Blatt-Arbeitsmappe) , erstellen Sie ein neues Blatt

2. Klicken Sie mit der rechten Maustaste auf die neue Blattbezeichnung und wählen Sie „Code anzeigen“ (die Schaltfläche für WPS befindet sich unter den Entwicklungstools)

3, fügen Sie den folgenden Code ein im geöffneten VBA-Bearbeitungsfenster:

Sub Merge all worksheets under the current workbook ()

Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

Run, wait... Merged Danach erscheint eine Eingabeaufforderung .

Das obige ist der detaillierte Inhalt vonSo fügen Sie in Excel mehrere Blätter zu einem zusammen. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!