Mehrere Arbeitsblätter zu einem zusammenfassen (Microsoft Excel)
Wenn Sie Arbeitsmappen mit identisch strukturierten Daten auf jedem Arbeitsblatt erhalten, sind Sie möglicherweise an einer Möglichkeit interessiert, die mehreren Arbeitsblätter zu einem einzigen großen Arbeitsblatt zu kombinieren.
Das Konzept für die Kondensation ist recht einfach: Sie müssen lediglich die Daten aus dem zweiten und den folgenden Arbeitsblättern in die erste leere Zeile des ersten Arbeitsblatts kopieren. Excel enthält kein Tool, mit dem Sie dies automatisch tun können, aber es ist ein großartiger Kandidat für ein Makro. Denken Sie jedoch daran, dass die Struktur jedes Arbeitsblatts, das Sie komprimieren, identisch sein sollte.
Das folgende Makro durchläuft alle Arbeitsblätter und kombiniert die Daten zu einem neuen Arbeitsblatt, das am Anfang der Arbeitsmappe hinzugefügt wird.
Sub Combine() Dim J As Integer Dim s As Worksheet On Error Resume Next Sheets(1).Select Worksheets.Add ' add a sheet in first place Sheets(1).Name = "Combined" ' copy headings Sheets(2).Activate Range("A1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("A1") For Each s In ActiveWorkbook.Sheets If s.Name <> "Combined" Then Application.GoTo Sheets(s.Name).[a1] Selection.CurrentRegion.Select ' Don't copy the headings Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select Selection.Copy Destination:=Sheets("Combined"). _ Cells(Rows.Count, 1).End(xlUp)(2) End If Next End Sub
Wenn das Makro fertig ist, enthält das erste Blatt in der Arbeitsmappe mit dem Namen Kombiniert alle Daten aus den anderen Arbeitsblättern. Die anderen Arbeitsblätter bleiben unverändert.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (8884) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: