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 > 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!

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 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:

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       

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:

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.

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.