Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe kopieer ik meerdere selecties of bereiken in Excel?

U hebt bijvoorbeeld een groot werkblad en u wilt nu alleen enkele geselecteerde bereiken kopiëren en naar andere werkbladen distribueren. Maar wanneer u de meerdere bereiken selecteert en op kopiëren klikt, verschijnt er een promptvenster om u eraan te herinneren "Dat commando kan niet worden gebruikt voor meerdere selecties." Hoe kopieer je in deze toestand snel meerdere geselecteerde bereiken? Hier zijn enkele trucs om deze taak op te lossen.


Kopieer meerdere geselecteerde bereiken met Klembord

Dankzij klembord, kunt u alle geselecteerde bereiken tegelijk in een ander bereik of werkblad plakken. Ga als volgt te werk:

1. Klikken Home > doc kopieer meerdere bereiken 09functie in het klembord groep om de klembord Brood.. Zie screenshot:

2. En kopieer vervolgens de geselecteerde bereiken die u een voor een nodig hebt. Tegelijkertijd zijn de gekopieerde bereiken verschenen in de klembord Brood. zie screenshot hierboven:

3. Selecteer de eerste cel van het doelbereik waarin u alle gekopieerde bereiken wilt plakken en klik op Plak alles knop in de klembord Paneel.

En dan zijn alle gekopieerde bereiken in het opgegeven bestemmingsbereik geplakt.

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

Het kan vervelend zijn om tientallen bladen uit verschillende werkmappen in één blad te combineren. Maar met Kutools voor Excel's Combineren (werkbladen en werkmappen) hulpprogramma, kunt u het voor elkaar krijgen met slechts enkele klikken! Gratis proefperiode van 30 dagen met volledige functionaliteit!
advertentie combineren bladen boeken 1

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

Kopieer meerdere geselecteerde bereiken met VBA-code

Met VBA-code kunt u ook meerdere geselecteerde bereiken kopiëren en in een ander werkblad plakken.

1. De Ctrl -toets en selecteer meerdere niet-aangrenzende bereiken die u wilt gebruiken.

2. pers anders + F11 toetsen tegelijkertijd openen Microsoft Visual Basic voor applicaties venster klikt Invoegen > Module, en voer de volgende code in de module in:

Optie Expliciete 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 als een bereik niet is geselecteerd If TypeName (Selection) <> "Range" Then MsgBox "Selecteer het bereik dat moet worden gekopieerd. Een meervoudige selectie is toegestaan." Exit Sub End If 'Bewaar de gebieden als afzonderlijke Range-objecten NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Bepaal linksboven cel in de meervoudige selectie 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) 'Haal het plakadres op Bij fout Hervat Volgende set PasteRange = Application.InputBox _ (Prompt: = "Specificeer de cel linksboven voor het plakken bereik: ", _ Titel: =" Kopieer meerdere selectie ", _ Type: = 8) Bij fout GoTo 0 'Afsluiten indien geannuleerd If TypeName (PasteRange) <>" Bereik "Dan Sub afsluiten' Zorg ervoor dat alleen de cel linksboven is gebruikt Set PasteRange = PasteRange.Range ("A1") 'Controleer plakbereik voor bestaande gegevens NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Gebieden (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Bereik (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset + SelAr (i) .Columns.Count - 1))) Volgende i 'Als het plakbereik niet leeg is, waarschuw gebruiker If NonEmptyCellCount <> 0 Then _ If MsgBox ("Overschrijf bestaande gegevens?", vbQuestion + vbYesNo, _ "Kopieer meervoudige selectie ") <> vbYes Exit Sub 'Kopieer en plak elk gebied For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Volgende i End Sub

3. Klik vervolgens op de lopen knop om de code uit te voeren.

4. En geef nu een cel op om de bereiken in de opening te plakken Kopieer meerdere selecties dialoogvenster en klik op het OK knop. Zie screenshot:


Kopieer snel meerdere geselecteerde bereiken uit één werkblad

Het Kopieer meerdere bereiken nut van Kutools for Excel kan u helpen snel meerdere bereiken uit het actieve werkblad te kopiëren. Ga als volgt te werk:

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

1. Selecteer de bereiken die u een voor een wilt gebruiken zonder de Ctrl -toets en klik vervolgens op Kutools > Kopieer bereiken. Zie screenshot:

2. In de Kopieer meerdere bereiken dialoogvenster, vink aan Alles optie van Plakken speciaal sectie en klik op de Oké bUtton. Zie screenshot hierboven:

Opmerking: Als u de rijhoogte en kolombreedte wilt behouden als het oorspronkelijke bereik, controleer dan Inclusief rijhoogte optie en Inclusief kolombreedte optie in het dialoogvenster Meerdere bereiken kopiëren.

3. En geef een cel op om de bereiken in het volgende promptvenster te plakken en klik op het OK knop.

En nu worden alle geselecteerde bereiken in de opgegeven cel geplakt met dezelfde rijhoogte en kolombreedte als de oorspronkelijke selecties.

Klik hier voor meer informatie over het hulpprogramma Meerdere bereiken kopiëren       

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu


Kopieer meerdere bereiken uit veel werkbladen / werkmappen

Kutools voor Excel biedt een andere Combineer werkbladen hulpprogramma om eenvoudig meerdere bereiken van veel werkbladen of veel werkmappen in Excel te kopiëren. Ga als volgt te werk:

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

1. klikken Kutools Plus > Combineren.

2. Controleer in het openingsvenster Werkbladen combineren - Stap 1 van 3 het Combineer meerdere werkbladen uit een werkmap in één werkblad optie en klik op de volgende knop.

3. Ga als volgt te werk in het dialoogvenster Werkbladen combineren - Stap 2 van 3:

(1) Selecteer de werkmap in het Werkboeklijst sectie en klik vervolgens op het Blader knop achter elk werkblad om het bereik van elk werkblad op te geven;
(2) Klik op het Toevoegen knop om andere werkmappen toe te voegen waaruit u bereiken wilt kopiëren, en herhaal vervolgens bovenstaande (1) om bereiken in de toegevoegde werkmap op te geven.
(3) Klik op het Klaar! knop.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

4. Vervolgens verschijnt er een dialoogvenster Kutools voor Excel en wordt gevraagd om een ​​combinatiescenario op te slaan. Klik op het Ja knop of Nee knop als je nodig hebt.

Tot dusver zijn alle opgegeven bereiken van meerdere werkbladen of werkmappen gekopieerd en in een nieuwe werkmap geplakt.


Demo: kopieer meerdere geselecteerde bereiken van één werkblad

Demo: kopieer meerdere geselecteerde bereiken uit veel werkmappen / werkbladen


Kutools for Excel bevat meer dan 300 handige tools voor Excel, gratis te proberen zonder beperking in 30 dagen. Download en gratis proef nu!

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    peter.habershon@eis2win.co.uk · 3 years ago
    Hi there,
    Great code but wondered how I can paste values rather than just paste?
    Thanks :)
  • To post as a guest, your comment is unpublished.
    Peter Habershon · 3 years ago
    Hi there,
    Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
    Thanks!
  • To post as a guest, your comment is unpublished.
    jacobkring@hotmail.com · 4 years ago
    Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 4 years ago
      Hi Jacob,
      Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
      https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
  • To post as a guest, your comment is unpublished.
    kmmanahan · 4 years ago
    Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
    Thanks so much in advance!
    • To post as a guest, your comment is unpublished.
      · 4 years ago
      Hi Katrina Manahan,

      Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
  • To post as a guest, your comment is unpublished.
    Steve O · 5 years ago
    Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful.
    Steve
  • To post as a guest, your comment is unpublished.
    David Hedin · 5 years ago
    Hi,
    Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010.

    Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
  • To post as a guest, your comment is unpublished.
    Yunivor · 5 years ago
    I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
  • To post as a guest, your comment is unpublished.
    M · 6 years ago
    Thank you SOOOOOO much - what a great site
  • To post as a guest, your comment is unpublished.
    Lyn Mc · 7 years ago
    Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
  • To post as a guest, your comment is unpublished.
    Abani Pattanayak · 7 years ago
    I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
    • To post as a guest, your comment is unpublished.
      David Hedin · 5 years ago
      In this case you can just select the rows and copy them as usual.
      • To post as a guest, your comment is unpublished.
        K Raj · 5 years ago
        How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)