Ga naar hoofdinhoud

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 09 in de 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!


advertentie combineren bladen boeken 1

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! 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

De 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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! 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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! 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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

1. klikken Koetools 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 Finish knop.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! 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: Ruim 300 handige tools binnen handbereik! Start vandaag nog uw gratis proefperiode van 30 dagen zonder functiebeperkingen. Nu downloaden!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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 honderden muisklikken voor u elke dag!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there,
Great code but wondered how I can paste values rather than just paste?
Thanks :)
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Thank you SOOOOOO much - what a great site
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
This comment was minimized by the moderator on the site
In this case you can just select the rows and copy them as usual.
This comment was minimized by the moderator on the site
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.)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations