Wie kopiert man mehrere Auswahlen oder Bereiche in Excel?

Mit Hilfe der Zwischenablage können Sie alle ausgewählten Bereiche gleichzeitig in einen anderen Bereich oder ein anderes Arbeitsblatt einfügen. Gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Start > in der Zwischenablage Gruppe, um den Zwischenablage Bereich.anzuzeigen. Siehe Screenshot:

2. Kopieren Sie dann die ausgewählten Bereiche, die Sie benötigen, einzeln. Gleichzeitig werden die kopierten Bereiche im Zwischenablage -Bereich angezeigt. Siehe obigen Screenshot:

3. Wählen Sie die erste Zelle des Zielbereichs aus, in den Sie alle kopierten Bereiche einfügen möchten, und klicken Sie auf die Schaltfläche Alles einfügen im Zwischenablage -Bereich.

Dann wurden alle kopierten Bereiche in den angegebenen Zielbereich eingefügt.

Kombinieren Sie ganz einfach mehrere Auswahlen aus vielen Arbeitsblättern/Arbeitsmappen in ein einzelnes Arbeitsblatt/Arbeitsmappe

Es kann mühsam sein, Dutzende von Blättern aus verschiedenen Arbeitsmappen in ein Blatt zusammenzuführen. Aber mit Kutools für Excel’s Konsolidieren (Arbeitsblätter und Arbeitsmappen) Funktion können Sie dies mit nur wenigen Klicks erledigen!

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

1. Halten Sie die Strg-Taste gedrückt und wählen Sie mehrere nicht angrenzende Bereiche aus, die Sie verwenden möchten.

2. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen, klicken Sie auf Einfügen > Modul, und 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 if a range is not selected
If TypeName(Selection) < > "Range" Then
MsgBox "Select the range to be copied. A multiple selection is allowed."
Exit Sub
End If
' Store the areas as separate Range objects
NumAreas = Selection.Areas.Count
ReDim SelAreas(1 To NumAreas)
For i = 1 To NumAreas
Set SelAreas(i) = Selection.Areas(i)
Next
' Determine the upper left cell in the multiple selection
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)
' Get the paste address
On Error Resume Next
Set PasteRange = Application.InputBox _
(Prompt:="Specify the upper left cell for the paste range:", _
Title:="Copy Mutliple Selection", _
Type:=8)
On Error GoTo 0
' Exit if canceled
If TypeName(PasteRange) < > "Range" Then Exit Sub
' Make sure only the upper left cell is used
Set PasteRange = PasteRange.Range("A1")
' Check paste range for existing data
NonEmptyCellCount = 0
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
NonEmptyCellCount = NonEmptyCellCount + _
Application.CountA(Range(PasteRange.Offset(RowOffset, ColOffset), _
PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count - 1, _
ColOffset + SelAreas(i).Columns.Count - 1)))
Next i
' If paste range is not empty, warn user
If NonEmptyCellCount < > 0 Then _
If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _
"Copy Multiple Selection") < > vbYes Then Exit Sub
' Copy and paste each area
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
SelAreas(i).Copy PasteRange.Offset(RowOffset, ColOffset)
Next i
End Sub

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

4. Geben Sie jetzt eine Zelle an, in die die Bereiche im sich öffnenden Dialogfeld Mehrere Auswahlen kopieren eingefügt werden sollen, und klicken Sie auf die Schaltfläche OK . Siehe Screenshot:

Die Funktion Mehrere Bereiche kopieren von Kutools für Excel kann Ihnen helfen, ganz einfach mehrere Bereiche vom aktiven Arbeitsblatt schnell zu kopieren. Gehen Sie bitte wie folgt vor:

1. Wählen Sie die Bereiche, die Sie nacheinander verwenden möchten, ohne dabei die Strg -Taste gedrückt zu halten, und klicken Sie dann auf Kutools > Bereiche kopieren. Siehe Screenshot:

2. Aktivieren Sie im Dialogfeld Mehrere Bereiche kopieren die Option Alle im Abschnitt Inhalte einfügen, und klicken Sie auf die Schaltfläche OK. Siehe obigen Screenshot:

Hinweis: Wenn Sie die Zeilenhöhe und Spaltenbreite wie bei den ursprünglichen Bereichen beibehalten möchten, aktivieren Sie bitte die Option Zeilenhöhe einschließen und die Option Spaltenbreite einschließen im Dialogfeld Mehrere Bereiche kopieren.

3. Geben Sie eine Zelle an, in die die Bereiche im folgenden Dialogfeld eingefügt werden sollen, und klicken Sie auf die Schaltfläche OK .

Jetzt werden alle ausgewählten Bereiche in die angegebene Zelle mit der gleichen Zeilenhöhe und Spaltenbreite wie bei den ursprünglichen Auswahlen eingefügt.

Klicken Sie hier für weitere Informationen zur Funktion Mehrere Bereiche kopieren       

Kutools für Excel bietet eine weitere Funktion zum Kombinieren von Arbeitsblättern, um ganz einfach mehrere Bereiche von vielen Arbeitsblättern oder Arbeitsmappen in Excel zu kopieren. Gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools Plus > Kombinieren.

2. Aktivieren Sie im sich öffnenden Dialogfeld Kombinieren von Arbeitsblättern – Schritt 1 von 3 bitte die Option Mehrere Arbeitsblätter aus einer Arbeitsmappe in ein Arbeitsblatt kombinieren und klicken Sie auf die Schaltfläche Weiter .

3. Im Dialogfeld Kombinieren von Arbeitsblättern – Schritt 2 von 3 gehen Sie bitte wie folgt vor:

(1) Wählen Sie die Arbeitsmappe im Abschnitt Arbeitsmappenliste aus, und klicken Sie dann auf die Schaltfläche Durchsuchen hinter jedem Arbeitsblatt, um den Bereich aus jedem Arbeitsblatt anzugeben;
(2) Klicken Sie auf die Schaltfläche Hinzufügen , um andere Arbeitsmappen hinzuzufügen, aus denen Sie Bereiche kopieren möchten, und wiederholen Sie oben genannte Schritte (1), um Bereiche in der hinzugefügten Arbeitsmappe anzugeben.
(3) Klicken Sie auf die Schaltfläche Fertig .

4. Dann erscheint ein Dialogfeld von Kutools für Excel und fragt, ob Sie das Kombinationsszenario speichern möchten. Klicken Sie je nach Bedarf auf die Schaltfläche Ja oder Nein.

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