Wie kopiere ich mehrere Auswahlen oder Bereiche in Excel?
Sie haben beispielsweise ein großes Arbeitsblatt und möchten jetzt nur einige ausgewählte Bereiche kopieren und auf andere Arbeitsblätter verteilen. Wenn Sie jedoch mehrere Bereiche auswählen und auf Kopieren klicken, wird ein Dialogfeld angezeigt, in dem Sie daran erinnert werden, dass dieser Befehl nicht für mehrere Bereiche verwendet werden kann. Wie kopieren Sie in diesem Zustand schnell mehrere ausgewählte Bereiche? Hier sind einige Tricks, mit denen Sie diese Aufgabe lösen können.
- Kopieren Sie mehrere ausgewählte Bereiche mit der Zwischenablage
- Kopieren Sie mehrere ausgewählte Bereiche mit VBA-Code
- Kopieren Sie mehrere ausgewählte Bereiche aus einem Arbeitsblatt
- Kopieren Sie mehrere Bereiche aus vielen Arbeitsblättern / Arbeitsmappen
Kopieren Sie mehrere ausgewählte Bereiche mit der Zwischenablage
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 Home > 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!
Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt
Kopieren Sie mehrere ausgewählte Bereiche mit VBA-Code
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 Führen Sie 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:
Kopieren Sie schnell mehrere ausgewählte Bereiche aus einem Arbeitsblatt
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:
Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt
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 Alle 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.
Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt
Kopieren Sie mehrere Bereiche aus vielen Arbeitsblättern / Arbeitsmappen
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:
Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt
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 Speichern 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 .
Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt
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.
Demo: Kopieren Sie mehrere ausgewählte Bereiche aus einem Arbeitsblatt
Demo: Kopieren Sie mehrere ausgewählte Bereiche aus vielen Arbeitsmappen / Arbeitsblättern
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!