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 FŐOLDAL > 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 Pane.

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

Unalmas lehet, ha a különféle munkafüzetek több tucat lapját egyetlen lapra egyesíti. De a Kutools for Excel programmal Kombinálás (munkalapok és munkafüzetek) segédprogram, csak néhány kattintással végezheti el! 30 napos teljes funkciós ingyenes próba!

Kutools for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! Szerezd meg most

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:

A Több tartomány másolása hasznossága Kutools for Excel 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 for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! 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 Mind 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 for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! Szerezd meg most

A Kutools for Excel egy másikat nyújt 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 for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! 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 for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! Szerezd meg most

4. Ezután megjelenik egy Kutools for excel párbeszédpanel, amely kombinációs forgatókönyv mentését kéri. Kattintson a gombra 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.