S pomocí Schránka, můžete všechny vybrané rozsahy vložit najednou do jiného rozsahu nebo listu. Postupujte prosím následovně:

1, klikněte Domů > v Schránka skupina pro zobrazení Schránka Chléb.. Viz snímek obrazovky:

2. A poté zkopírujte vybrané rozsahy, které potřebujete, jeden po druhém. Zároveň se zkopírované rozsahy objevily v Schránka Chléb. viz screenshot výše:

3. Vyberte první buňku cílového rozsahu, do které vložíte všechny zkopírované rozsahy, a klikněte Vložit vše tlačítko v Schránka Podokno.

A pak byly všechny zkopírované rozsahy vloženy do zadaného cílového rozsahu.

Snadno kombinujte více výběrů z mnoha listů / sešitů do jednoho listu / sešitu

Může být zdlouhavé kombinovat desítky listů z různých sešitů do jednoho listu. Ale s programem Kutools pro Excel Kombinovat (pracovní listy a sešity) nástroj, můžete to udělat pomocí několika kliknutí!

S kódem VBA můžete také zkopírovat více vybraných rozsahů a vložit je do jakéhokoli jiného listu.

1. Podržte tlačítko Ctrl a vyberte několik nesousedících rozsahů, které chcete použít.

2. lis Další + F11 současně otevřete klávesu Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modula do modulu zadejte následující kód:

Option Explicit
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 if a range is not selected
If TypeName(Selection) < > "Range" Then
MsgBox "Select the range to be copied. A multiple selection is allowed."
Exit Sub
End If
' Store the areas as separate Range objects
NumAreas = Selection.Areas.Count
ReDim SelAreas(1 To NumAreas)
For i = 1 To NumAreas
Set SelAreas(i) = Selection.Areas(i)
Next
' Determine the upper left cell in the multiple selection
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)
' Get the paste address
On Error Resume Next
Set PasteRange = Application.InputBox _
(Prompt:="Specify the upper left cell for the paste range:", _
Title:="Copy Mutliple Selection", _
Type:=8)
On Error GoTo 0
' Exit if canceled
If TypeName(PasteRange) < > "Range" Then Exit Sub
' Make sure only the upper left cell is used
Set PasteRange = PasteRange.Range("A1")
' Check paste range for existing data
NonEmptyCellCount = 0
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
NonEmptyCellCount = NonEmptyCellCount + _
Application.CountA(Range(PasteRange.Offset(RowOffset, ColOffset), _
PasteRange.Offset(RowOffset + SelAreas(i).Rows.Count - 1, _
ColOffset + SelAreas(i).Columns.Count - 1)))
Next i
' If paste range is not empty, warn user
If NonEmptyCellCount < > 0 Then _
If MsgBox("Overwrite existing data?", vbQuestion + vbYesNo, _
"Copy Multiple Selection") < > vbYes Then Exit Sub
' Copy and paste each area
For i = 1 To NumAreas
RowOffset = SelAreas(i).Row - TopRow
ColOffset = SelAreas(i).Column - LeftCol
SelAreas(i).Copy PasteRange.Offset(RowOffset, ColOffset)
Next i
End Sub

3. Poté klikněte na tlačítko Běh tlačítko pro spuštění kódu.

4. A teď prosím specifikujte buňku pro vložení rozsahů do otvoru Kopírovat vícenásobný výběr dialogové okno a klikněte na OK knoflík. Viz screenshot:

Auto Zkopírujte více rozsahů užitečnost Kutools pro Excel vám pomůže snadno rychle zkopírovat více rozsahů z aktivního listu. Postupujte prosím následovně:

1. Vyberte rozsahy, které chcete použít jeden po druhém, aniž byste drželi Ctrl klíč a potom klepněte na Kutools > Kopírovat rozsahy. Viz snímek obrazovky:

2. V Zkopírujte více rozsahů v dialogovém okně zaškrtněte Vše možnost od Vložte speciální a klepněte na tlačítko Dobře button. Viz snímek obrazovky výše:

Poznámka: Pokud chcete zachovat výšku řádku a šířku sloupce jako původní rozsahy, zkontrolujte Včetně výšky řádku možnost a Včetně šířky sloupce v dialogovém okně Kopírovat více rozsahů.

3. Do následujícího řádku výzvy zadejte buňku, do které chcete vložit rozsahy, a klikněte na OK .

A nyní budou všechny vybrané rozsahy vloženy do zadané buňky se stejnou výškou řádku a šířkou sloupce jako původní výběry.

Kliknutím sem zobrazíte další informace o nástroji Kopírovat více rozsahů       

Kutools pro Excel poskytuje další Zkombinujte pracovní listy nástroj pro snadné kopírování více rozsahů z mnoha listů nebo mnoha sešitů v aplikaci Excel. Postupujte prosím následovně:

1. cvaknutí Kutools Plus > Kombinovat.

2. V úvodním dialogovém okně Kombinovat pracovní listy - krok 1 ze 3 zkontrolujte prosím Zkombinujte více listů ze sešitu do jednoho listu a klepněte na tlačítko další .

3. V dialogovém okně Kombinovat pracovní listy - krok 2 ze 3 postupujte takto:

(1) Vyberte sešit v Seznam sešitů v části a poté klikněte na ikonu Procházet tlačítko za každým listem k určení rozsahu od každého listu;
(2) Klikněte na přidat Tlačítko pro přidání dalších sešitů, ze kterých budete kopírovat rozsahy, a poté opakujte výše (1) pro určení rozsahů v přidaném sešitu.
(3) Klikněte na úprava .

4. Poté vyjde dialogové okno Kutools pro Excel a požádá o uložení scénáře kombinace. Klikněte prosím na Ano nebo Ne tlačítko, jak potřebujete.

Dosud byly všechny zadané rozsahy z více listů nebo sešitů zkopírovány a vloženy do nového sešitu.