S pomočjo odložišče, lahko vse izbrane obsege hkrati prilepite v drug obseg ali delovni list. Naredite naslednje:

1. Kliknite Domov > v odložišče skupina za prikaz odložišče kruh.. Oglejte si posnetek zaslona:

2. Nato posamično kopirajte izbrane obsege, ki jih potrebujete. Hkrati so bili kopirani obsegi prikazani v odložišče kruh. glej posnetek zaslona zgoraj:

3. Izberite prvo celico ciljnega obsega, v katerega boste prilepili vse kopirane obsege, in kliknite Prilepi vse gumb v odložišče Podokno.

Nato so bili vsi kopirani obsegi prilepljeni v navedeni ciljni obseg.

Preprosto združite več izbir iz številnih delovnih listov / delovnih zvezkov v en sam delovni list / delovni zvezek

Morda je dolgočasno kombinirati na desetine listov iz različnih delovnih zvezkov v en list. Toda s Kutools za Excel Združite (delovni listi in delovni zvezki) pripomoček, lahko to storite z nekaj kliki!

S kodo VBA lahko kopirate tudi več izbranih obsegov in jih prilepite v kateri koli drug delovni list.

1. Drži Ctrl tipko in izberite več nesosednjih obsegov, ki jih želite uporabiti.

2. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduliin v modul vnesite naslednjo kodo:

Možnost Izrecno podkopiranjeMultipleSelection () 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 IntegerCame InCerge Dim NonEmptyCell če obseg ni izbran. Če TypeName (Selection) <> "Range" Potem MsgBox "Izberite obseg, ki ga želite kopirati. Dovoljena je večkratna izbira." Exit Sub End If 'Shrani območja kot ločena predmeta Range NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Določite zgoraj levo celica v večkratnem izboru TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 do NumAreas If SelAreas (i) .Row <TopRow then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Potem LeftCol = SelAreas (i). Stolpec Naslednja nastavitev UpperLeft = Celice (TopRow, LeftCol) 'Pridobi naslov prilepitve Na napako Nadaljuj Naslednja nastavitev PasteRange = Application.InputBox _ (Prompt: = "Določite zgornjo levo celico za prilepitev range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) On Error GoTo 0 'Exit if canceled If TypeName (PasteRange) <>" Range "Then Exit Sub' Prepričajte se, da je le zgornja leva celica uporabljeno Set PasteRange = PasteRange.Range ("A1") 'Preveri obseg lepljenja za obstoječe podatke NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Območja (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - Colset. (i) .Columns.Count - 1))) Naprej i 'Če obseg lepljenja ni prazen, opozorite uporabnika If NonEmptyCellCount <> 1 Potem _ Če MsgBox ("Prepiši obstoječe podatke?", vbQuestion + vbYesNo, _ "Kopiraj večkratni izbor ") <> vbDa Nato zapustite pod 'Kopiraj in prilepi vsako območje za i = 0 v NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i). Stolpec - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Naprej i End Sub

3. Nato kliknite na Run za zagon kode.

4. In zdaj, prosimo, določite celico, da prilepite obsege v odprtino Kopiraj več izbir pogovorno okno in kliknite OK . Oglejte si posnetek zaslona:

O Kopirajte več razponov uporabnost Kutools za Excel vam lahko pomaga hitro kopirati več obsegov iz aktivnega delovnega lista. Naredite naslednje:

1. Izberite obsege, ki jih želite uporabiti enega za drugim, ne da bi držali tipko Ctrl in nato kliknite Kutools > Obsegi kopiranja. Oglejte si posnetek zaslona:

2. v Kopirajte več razponov pogovorno okno, preverite vsi možnost od Prilepite posebno in kliknite V redu button. Oglejte si zgornji posnetek zaslona:

Opomba: Če želite ohraniti višino vrstice in širino stolpca kot prvotna obsega, preverite Vključno z višino vrstice možnost in Vključno s širino stolpca v pogovornem oknu Kopiraj več obsegov.

3. In določite celico, v katero boste prilepili obsege, v naslednje pozivno polje in kliknite OK gumb.

Zdaj bodo vsi izbrani obsegi prilepljeni v določeno celico kot enaka višina vrstice in širina stolpca kot prvotne izbire.

Kliknite tukaj za več informacij o pripomočku Copy Multiple Ranges       

Kutools za Excel ponuja še eno Združite delovne liste pripomoček za enostavno kopiranje več obsegov z več delovnih listov ali številnih delovnih zvezkov v Excelu. Naredite naslednje:

1. klik Kutools Plus > Združite.

2. V uvodnem pogovornem oknu Combine Worksheets - Step 1 of 3 preverite Več delovnih listov iz delovnega zvezka združite v en delovni list in kliknite na Naslednji gumb.

3. V pogovornem oknu Združite delovne liste - korak 2 od 3 naredite spodaj:

(1) Izberite delovni zvezek v Seznam delovnih zvezkov in nato kliknite Brskanje gumb za vsakim delovnim listom, da določite obseg vsakega delovnega lista;
(2) Kliknite Dodaj gumb, da dodate druge delovne zvezke, iz katerih boste kopirali obsege, in nato ponovite zgoraj (1), da določite obsege v dodanem delovnem zvezku.
(3) Kliknite Konec gumb.

4. Nato se odpre pogovorno okno Kutools for excel in zahteva shranjevanje kombinacije scenarijev. Kliknite Da gumb ali Ne gumb, kot ga potrebujete.

Do zdaj so bili vsi določeni obsegi iz več delovnih listov ali delovnih zvezkov kopirani in prilepljeni v nov delovni zvezek.