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:

Možnost 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 pokud není vybrán rozsah 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 left left buňka ve vícenásobném výběru 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 left left cell for the paste range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) Při chybě GoTo 0 'Konec, pokud je zrušeno Pokud TypeName (PasteRange) <>" Rozsah "Pak Konec Sub' Ujistěte se, že je pouze buňka vlevo nahoře used Set PasteRange = PasteRange.Range ("A1") 'Zkontrolovat rozsah vložení pro existující data NonEmptyCellCount = 0 Pro i = 1 Na NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Oblasti (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset + SelA (i) .Columns.Count - 1))) Další i 'Pokud rozsah vložení není prázdný, varovat uživatele 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:

Projekt 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 Zobrazit 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.