Hoe kopieer je meerdere selecties of bereiken in Excel?

Met behulp van het Klembord kun je alle geselecteerde bereiken tegelijk plakken in een ander bereik of werkblad. Volg hiervoor de volgende stappen:

1. Klik op Start > in de Klembord groep om het Klembord Paneel.te openen. Zie screenshot:

2. Kopieer vervolgens de geselecteerde bereiken die je nodig hebt, één voor één. Tegelijkertijd verschijnen de gekopieerde bereiken al in het Klembord paneel. Zie bovenstaande screenshot:

3. Selecteer de eerste cel van het doelbereik waar je alle gekopieerde bereiken wilt plakken, en klik op de knop Alles Plakken in het Klembord paneel.

Alle gekopieerde bereiken zijn nu geplakt in het gespecificeerde doelbereik.

Combineer eenvoudig meerdere selecties van veel werkbladen/werkmappen in één werkblad/werkmap

Het kan tijdrovend zijn om tientallen tabellen uit verschillende werkmappen te combineren tot één tabel. Maar met Kutools voor Excel’s Combineer (werkbladen en werkmappen) hulpprogramma kun je dit doen met slechts enkele klikken!

Met VBA-code kun je ook meerdere geselecteerde bereiken kopiëren en plakken in elk ander werkblad.

1. Houd de Ctrl-toets ingedrukt en selecteer meerdere niet-aangrenzende bereiken die je wilt gebruiken.

2. Druk tegelijkertijd op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen, klik op Invoegen > Module, en voer de volgende code in in de Module:

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. Klik vervolgens op de knop Uitvoeren om de code uit te voeren.

4. Specificeer nu een cel om de bereiken in te plakken in het venster Kopieer Meerdere Selecties dialoogvenster, en klik op de OK knop. Zie screenshot:

Het hulpprogramma Kopieer Meerdere Bereiken van Kutools voor Excel helpt je om gemakkelijk meerdere bereiken van het actieve werkblad snel te kopiëren. Volg hiervoor de volgende stappen:

1. Selecteer de bereiken die je wilt gebruiken, één voor één, zonder de Ctrl toets ingedrukt te houden, en klik vervolgens op Kutools > Bereiken kopiëren. Zie screenshot:

2. Schakel in het dialoogvenster Kopieer Meerdere Bereiken de optie Alles aan in de sectie Plakken speciaal, en klik op de knop Ok. Zie bovenstaande screenshot:

Opmerking: Als je de rijhoogte en kolombreedte wilt behouden zoals in de originele bereiken, schakel dan de opties Rijhoogte opnemen en Kolombreedte opnemen in het dialoogvenster Kopieer Meerdere Bereiken in.

3. Specificeer een cel om de bereiken in te plakken in het volgende venster, en klik op de OK knop.

Nu zijn alle geselecteerde bereiken geplakt in de gespecificeerde cel met dezelfde rijhoogte en kolombreedte als de originele selecties.

Klik hier voor meer informatie over het hulpprogramma Kopieer Meerdere Bereiken       

Kutools voor Excel biedt een ander Combineer Werkbladen-hulpprogramma om gemakkelijk meerdere bereiken van veel werkbladen of werkmappen in Excel te kopiëren. Volg hiervoor de volgende stappen:

1. Klik op Kutools Plus > Combineer.

2. Schakel in het venster Combineer Werkbladen – Stap 1 van 3 de optie Combineer meerdere werkbladen uit een werkmap in één werkblad in, en klik op de Volgende knop.

3. Doe in het venster Combineer Werkbladen – Stap 2 van 3 het volgende:

(1) Selecteer de werkmap in de Werkmaplijst sectie, en klik vervolgens op de Bladeren knop achter elk werkblad om het bereik van elk werkblad te specificeren;
(2) Klik op de Toevoegen knop om andere werkmappen toe te voegen waaruit je bereiken wilt kopiëren, en herhaal stap (1) om bereiken in de toegevoegde werkmap te specificeren.
(3) Klik op de Voltooien knop.

4. Er verschijnt een Kutools voor Excel-venster waarin gevraagd wordt om het combinatiescenario op te slaan. Klik op de knop Ja of Nee, afhankelijk van je keuze.

Tot nu toe zijn alle gespecificeerde bereiken van meerdere werkbladen of werkmappen gekopieerd en geplakt in een nieuwe werkmap.