Kombinieren Sie einfach mehrere Arbeitsblätter / Arbeitsmappen zu einem Arbeitsblatt / einer Arbeitsmappe

Mit dem folgenden VBA-Code können Sie auf einfache Weise eine Liste aus den angegebenen Zellen über mehrere Arbeitsblätter hinweg erstellen. Sie können wie folgt vorgehen:

Schritt 1: Wählen Sie die angegebene Zelle aus, aus der Sie Ihre Liste erstellen möchten. In unserem Fall wählen wir die Zelle E6 aus.

Schritt 2: Drücken Sie Andere + F11 Klicken Sie gleichzeitig auf die Tasten, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen Insert > Modulund fügen Sie dann den folgenden Code in das Modulfenster ein.

VBA: Erstellen Sie eine Liste aus denselben Zellen über mehrere Blätter hinweg

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Schritt 3: Drücken Sie F5 Taste oder klicken Sie auf Führen Sie Schaltfläche, um diese VBA auszuführen.

Anschließend werden alle Werte aus der angegebenen Zelle in allen Arbeitsblättern in ein neues Arbeitsblatt mit dem Namen KutoolsforExcel kopiert. Siehe Screenshot:

Dieser VBA füllt die Liste in ein neues Arbeitsblatt, und die Werte in der Liste sind statisch und ändern sich nicht mit den ursprünglichen Werten.

Manchmal möchten Sie jedoch die Liste in den angegebenen Bereich füllen und verlangen, dass die Listenwerte immer mit den ursprünglichen Werten in den angegebenen Zellen übereinstimmen. Um diese Anforderungen zu erfüllen, sollten Sie die folgende Methode ausprobieren.

Diese Methode wird eingeführt Kutools for Excel Dynamisch auf Arbeitsblätter verweisen Dienstprogramm zum Erstellen einer dynamischen Liste aus denselben Zellen über mehrere Arbeitsblätter hinweg.

Schritt 1: Wählen Sie den Bereich aus, in dem Sie die dynamische Liste füllen möchten, und klicken Sie auf Kutoolen > Mehr > Dynamisch auf Arbeitsblätter verweisen.

Schritt 2: Im sich öffnenden Dialogfeld Arbeitsblattreferenzen füllen,

(1) Klicken Sie auf Auftrag ausfüllen und wählen Sie einen Fülltyp aus der Dropdown-Liste aus. In unserem Fall wählen wir Zelle für Zelle vertikal füllen;

(2) In der Formel füllen Geben Sie im Feld die Zellenadresse an, aus der Sie eine dynamische Liste erstellen möchten, und klicken Sie dann auf Zahnscheiben Taste im nun erscheinenden Bestätigungsfenster nun wieder los.  um die Formel zu sperren.

(3) Klicken Sie auf Füllbereich .

Jetzt sehen Sie, dass die Werte in den angegebenen Zellen in allen Arbeitsblättern in den angegebenen Bereich gefüllt sind (siehe Abbildung unten):

Wenn sich die ursprünglichen Werte ändern, werden die entsprechenden Werte in dieser angegebenen Liste automatisch geändert.

Wie fülle ich dieselbe Zelle aus verschiedenen Blättern automatisch in ein Blatt in Excel aus?