Mit Hilfe von Zwischenablagekönnen Sie alle ausgewählten Bereiche gleichzeitig in einen anderen Bereich oder ein anderes Arbeitsblatt einfügen. Bitte gehen Sie wie folgt vor:

1. Klicken Sie Start > der Zwischenablage Gruppe, um die anzuzeigen Zwischenablage Brot.. Siehe Screenshot:

2. Kopieren Sie dann die ausgewählten Bereiche, die Sie benötigen, nacheinander. Gleichzeitig wurden die kopierten Bereiche in der angezeigt Zwischenablage Brot. siehe Screenshot oben:

3. Wählen Sie die erste Zelle des Zielbereichs aus, in den Sie alle kopierten Bereiche einfügen möchten, und klicken Sie auf Alle einfügen Knopf im Zwischenablage Feld.

Anschließend wurden alle kopierten Bereiche in den angegebenen Zielbereich eingefügt.

Kombinieren Sie einfach mehrere Auswahlen aus vielen Arbeitsblättern / Arbeitsmappen zu einem einzigen Arbeitsblatt / Arbeitsmappe

Es kann mühsam sein, Dutzende von Blättern aus verschiedenen Arbeitsmappen zu einem Blatt zu kombinieren. Aber mit Kutools für Excel Kombinieren (Arbeitsblätter und Arbeitsmappen) Dienstprogramm, können Sie es mit nur wenigen Klicks erledigen!

Mit VBA-Code können Sie auch mehrere ausgewählte Bereiche kopieren und in ein anderes Arbeitsblatt einfügen.

1. Halten der Ctrl Geben Sie mehrere nicht benachbarte Bereiche ein und wählen Sie sie aus, die Sie verwenden möchten.

2. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Anwendungen Klicken Sie im Fenster Insert > Modulund geben Sie den folgenden Code in das Modul ein:

Option Explicit Sub CopyMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As Integer Dim NonEmptyCellCount As Integer 'Exit Wenn kein Bereich ausgewählt ist Wenn TypeName (Auswahl) <> "Bereich", dann MsgBox "Wählen Sie den zu kopierenden Bereich aus. Eine Mehrfachauswahl ist zulässig." Unterende beenden Wenn 'Bereiche als separate Bereichsobjekte speichern NumAreas = Selection.Areas.Count ReDim SelAreas (1 bis NumAreas) Für i = 1 bis NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Bestimmen Sie oben links Zelle in der Mehrfachauswahl TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 To NumAreas If SelAreas (i) .Row <TopRow Then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Then LeftCol = SelAreas (i) .Column Next Set UpperLeft = Cells (TopRow, LeftCol) 'Paste-Adresse bei Fehler abrufen Resume Next Set PasteRange = Application.InputBox _ (Prompt: = "Geben Sie die obere linke Zelle für das Einfügen an Bereich: ", _ Titel: =" Mehrfachauswahl kopieren ", _ Typ: = 8) Bei Fehler Gehe zu 0 'Beenden, wenn abgebrochen Wenn Typname (PasteRange) <>" Bereich ", dann Sub beenden' Stellen Sie sicher, dass nur die obere linke Zelle vorhanden ist used Set PasteRange = PasteRange.Range ("A1") 'Einfügebereich auf vorhandene Daten prüfen NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Bereiche (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Bereich (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset + (i) .Columns.Count - 1))) Weiter i 'Wenn der Einfügebereich nicht leer ist, warnen Sie den Benutzer. Wenn NonEmptyCellCount <> 0 Dann _ Wenn MsgBox ("Vorhandene Daten überschreiben?", vbQuestion + vbYesNo, _ "Mehrfachauswahl kopieren ") <> vbYes Beenden Sie dann Sub 'Kopieren Sie jeden Bereich und fügen Sie ihn ein. For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Weiter i End Sub

3. Klicken Sie dann auf Run Schaltfläche, um den Code auszuführen.

4. Und jetzt geben Sie bitte eine Zelle an, um die Bereiche in die Öffnung einzufügen Mehrfachauswahl kopieren Klicken Sie auf das Dialogfeld OK Taste. Siehe Screenshot:

Das Mehrere Bereiche kopieren Nutzen von Kutools for Excel kann Ihnen helfen, schnell mehrere Bereiche aus dem aktiven Arbeitsblatt zu kopieren. Bitte gehen Sie wie folgt vor:

1. Wählen Sie die Bereiche, die Sie verwenden möchten, einzeln aus, ohne die Taste gedrückt zu halten Ctrl Taste und klicken Sie dann auf Kutoolen > Bereiche kopieren. Siehe Screenshot:

2. In dem Mehrere Bereiche kopieren Dialogfeld überprüfen Alles Option von Inhalte einfügen Abschnitt und klicken Sie auf Okay button. Siehe Screenshot oben:

Hinweis: Wenn Sie die Zeilenhöhe und Spaltenbreite als ursprüngliche Bereiche beibehalten möchten, überprüfen Sie dies bitte Einschließlich Reihenhöhe Option und Einschließlich Spaltenbreite Option im Dialogfeld Mehrere Bereiche kopieren.

3. Geben Sie im folgenden Eingabeaufforderungsfeld eine Zelle zum Einfügen der Bereiche an und klicken Sie auf OK .

Und jetzt werden alle ausgewählten Bereiche mit der gleichen Zeilenhöhe und Spaltenbreite wie die ursprüngliche Auswahl in die angegebene Zelle eingefügt.

Klicken Sie hier, um weitere Informationen zum Dienstprogramm "Mehrere Bereiche kopieren" zu erhalten       

Kutools für Excel bietet eine weitere Arbeitsblätter kombinieren Dienstprogramm zum einfachen Kopieren mehrerer Bereiche aus vielen Arbeitsblättern oder Arbeitsmappen in Excel. Bitte gehen Sie wie folgt vor:

1 Klicken Kutoolen Plus > Kombinieren.

2. Aktivieren Sie im sich öffnenden Dialogfeld Arbeitsblätter kombinieren - Schritt 1 von 3 das Kontrollkästchen Kombinieren Sie mehrere Arbeitsblätter aus der Arbeitsmappe zu einem Arbeitsblatt Option und klicken Sie auf Weiter .

3. Gehen Sie im Dialogfeld Arbeitsblätter kombinieren - Schritt 2 von 3 wie folgt vor:

(1) Wählen Sie die Arbeitsmappe in der Arbeitsmappenliste Klicken Sie dann auf Entdecken Schaltfläche hinter jedem Arbeitsblatt, um den Bereich von jedem Arbeitsblatt anzugeben;
(2) Klicken Sie auf Verwenden Sie Klicken Sie auf die Schaltfläche, um weitere Arbeitsmappen hinzuzufügen, aus denen Sie Bereiche kopieren möchten, und wiederholen Sie den Vorgang oben (1), um Bereiche in der hinzugefügten Arbeitsmappe anzugeben.
(3) Klicken Sie auf Endziel .

4. Dann erscheint ein Dialogfeld von Kutools for Excel und fordert Sie auf, das Kombinationsszenario zu speichern. Bitte klicken Sie auf Ja Knopf oder Nein Taste nach Bedarf.

Bisher wurden alle angegebenen Bereiche aus mehreren Arbeitsblättern oder Arbeitsmappen kopiert und in eine neue Arbeitsmappe eingefügt.