Ugrás a tartalomra

Hogyan másolhat több választást vagy tartományt az Excelben?

Például van egy nagy munkalapja, és most csak néhány kijelölt tartományt szeretne átmásolni és más munkalapokra terjeszteni. De amikor kiválasztja a több tartományt, és rákattint a másolás gombra, megjelenik egy párbeszédpanel, amely emlékezteti Önt: "Ez a parancs nem használható több választásnál." Ebben az állapotban hogyan másolhat gyorsan több kijelölt tartományt? Íme néhány trükk a feladat megoldásához.


Több kiválasztott tartomány másolása a vágólapra

A rendszer segítségével a vágólap, az összes kijelölt tartományt beillesztheti egyszerre egy másik tartományba vagy munkalapba. Kérjük, tegye a következőket:

1. Kattints Kezdőlap > doc több tartomány 09 másolása a vágólap csoportot a vágólap Üvegtábla.. Lásd a képernyőképet:

2. Ezután egyesével másolja át a kiválasztott tartományokat. Ugyanakkor a másolt tartományok megjelentek a vágólap Üvegtábla. lásd a fenti képernyőképet:

3. Válassza ki a céltartomány első celláját, ahová beilleszti az összes másolt tartományt, majd kattintson a gombra Mindent beilleszt gombot a vágólap Ablak.

Ezután az összes másolt tartomány beillesztésre került a megadott céltartományba.

Könnyedén egyesítheti a sok munkalap / munkafüzet többszörös kiválasztását egyetlen munkalapba / munkafüzetbe

Fárasztó lehet több tucat különböző munkafüzet lapot egyetlen lapba egyesíteni. De a Kutools for Excel segítségével Kombinálás (munkalapok és munkafüzetek) segédprogram, csak néhány kattintással végezheti el!


ad kombinációs lapok könyvek 1

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

Több kiválasztott tartomány másolása VBA kóddal

A VBA kóddal több kijelölt tartományt is átmásolhat és beilleszthet bármely más munkalapba.

1. Holding a Ctrl gombot, és válassza ki a használni kívánt több nem szomszédos tartományt.

2. nyomja meg más + F11 gombok egyidejűleg megnyitni a Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modulok, és írja be a következő kódot a modulba:

Opció Explicit Sub CopyMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i as Integer Dim TopRow Long, LeftCol Integer Dim RowOffset Long, ColOffset As Integer Dim NonEmptyCellCount As ha nincs kiválasztva egy tartomány, ha a TypeName (Selection) <> "Range", akkor MsgBox "Válassza ki a másolandó tartományt. Többszörös kijelölés megengedett." Exit Sub End If 'Tárolja a területeket külön Range objektumokként NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Határozza meg a bal felsőt cella a többszörös kijelölésben 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) .Rovat <LeftCol Ezután LeftCol = SelAreas (i). Oszlop Következő beállítása UpperLeft = Cellák (TopRow, LeftCol) 'A beillesztési cím beolvasása Hiba esetén Folytatás Következő beállítás PasteRange = Application.InputBox _ (Prompt: = "Adja meg a paszta bal felső celláját range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) On GoTo 0 'Exit, ha törlődik, ha TypeName (PasteRange) <>" Range ", majd Exit Sub" Győződjön meg arról, hogy csak a bal felső cella van használt Set PasteRange = PasteRange.Range ("A1") 'A meglévő adatok beillesztési tartományának ellenőrzése NonEmptyCellCount = 0 For i = 1 To = NumAreas To RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Területek (i). Oszlop - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ Colone - 1, _ Colour (i) .Columns.Count - 0)))) Következő i 'Ha a beillesztési tartomány nem üres, figyelmeztesse a felhasználót, ha NonEmptyCellCount <> 1 Akkor _ Ha MsgBox ("Felülírja a meglévő adatokat?", vbQuestion + vbYesNo, _ "Többszörös kijelölés másolása ") <> vbYes Ezután lépjen ki a Sub 'alból. Másolja és illessze be az egyes területeket, mert i = XNUMX a NumAreas-hoz RowOffset = SelAreas (i). Sor - TopRow ColOffset = SelAreas (i). Oszlop - LeftCol SelAreas (i). Másolás PasteRange.Offset ( RowOffset, ColOffset) Next i End Sub

3. Ezután kattintson a futás gombot a kód futtatásához.

4. Most kérjük, adjon meg egy cellát a tartományok beillesztéséhez a nyílásba Többszörös kijelölés másolása kattintson a gombra OK gomb. Lásd a képernyőképet:


Gyorsan másolhat több kiválasztott tartományt egy munkalapról

Az Több tartomány másolása hasznossága Kutools az Excel számára segítségével gyorsan másolhat több tartományt az aktív munkalapról. Kérjük, tegye a következőket:

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

1. Válassza ki egyenként a használni kívánt tartományokat anélkül, hogy lenyomná a Ctrl gombra, majd kattintson a gombra Kutools > Másolási tartományok. Lásd a képernyőképet:

2. Az Több tartomány másolása párbeszédpanelen ellenőrizze Minden termék lehetőség a Speciális beillesztés szakaszban, és kattintson a Oké button. Lásd a fenti képernyőképet:

Jegyzet: Ha meg akarja tartani a sor magasságát és oszlopszélességét, mint az eredeti, kérjük, ellenőrizze A magasságot is beleértve lehetőség és Az oszlopszélességet is beleértve opciót a Több tartomány másolása párbeszédpanelen.

3. És adjon meg egy cellát a tartományok beillesztéséhez a következő parancssorba, majd kattintson a gombra OK gombot.

És most az összes kiválasztott tartomány be lesz illesztve a megadott cellába, az eredeti kijelölésekkel megegyező sormagassággal és oszlopszélességgel.

Kattintson ide a Többszörös tartományok másolása segédprogramról       

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most


Több tartomány másolása sok munkalapról / munkafüzetből

A Kutools for Excel egy másikat kínál Kombinálja a munkalapokat segédprogram segítségével számos tartományt sok munkalapról vagy sok munkafüzetről egyszerűen másolhat az Excel programba. Kérjük, tegye a következőket:

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

1. kettyenés Kutools Plus > Kombájn.

2. A Megnyitó munkalapok kombinálása - 1/3. Lépés párbeszédpanelen ellenőrizze a Kombinálja a munkafüzet több munkalapját egy munkalapba opciót, és kattintson a Következő gombot.

3. A Munkalapok kombinálása - 2/3 lépés párbeszédpanelen tegye a következőket:

(1) Válassza ki a munkafüzetet a Munkafüzetek listája szakaszra, majd kattintson a gombra Tallózás gomb az egyes munkalapok mögött az egyes munkalapok tartományának megadásához;
(2) Kattintson a gombra hozzáad gomb további munkafüzetek hozzáadásához, amelyekből a tartományokat átmásolja, majd ismételje meg a fentieket (1) a tartományok megadásához a hozzáadott munkafüzetben.
(3) Kattintson a gombra befejez gombot.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Szerezd meg most

4. Ezután megjelenik egy Kutools for Excel párbeszédpanel, és a kombinációs forgatókönyv mentését kéri. Kérjük kattintson a Igen gombot vagy Nem gombot, amire szüksége van.

Eddig a több munkalap vagy munkafüzet összes megadott tartományát átmásolták és beillesztették egy új munkafüzetbe.


Bemutató: Több kijelölt tartomány másolása egy munkalapról

Bemutató: Több kiválasztott tartomány másolása sok munkafüzetből / munkalapból


Kutools az Excel számára: Több mint 300 praktikus eszköz a keze ügyében! Kezdje el a 30 napos ingyenes próbaidőszakot funkciók korlátozása nélkül. Töltse le most!

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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