Note: The other languages of the website are Google-translated. Back to English
English English

Jak kopírovat více výběrů nebo rozsahů v aplikaci Excel?

Například máte velký list a nyní chcete zkopírovat pouze některé vybrané rozsahy a distribuovat je do jiných listů. Když ale vyberete více rozsahů a kliknete na kopírovat, zobrazí se dialogové okno s výzvou, které vám připomene „Tento příkaz nelze použít pro více výběrů.“ Jak v této podmínce rychle zkopírujete více vybraných rozsahů? Zde je několik triků, jak tento úkol vyřešit.


Zkopírujte více vybraných rozsahů pomocí schránky

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 Home > kopírování dokumentů více rozsahů 09 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í! Plná verze zkušební verze zdarma 30 dní!
ad kombinovat listy knihy 1

Kutools pro Excel - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now

Zkopírujte více vybraných rozsahů pomocí kódu VBA

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:


Rychle zkopírujte více vybraných rozsahů z jednoho listu

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

Kutools pro Excel - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now

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 - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now


Zkopírujte více rozsahů z mnoha listů / sešitů

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

Kutools pro Excel - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now

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 .

Kutools pro Excel - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now

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.


Ukázka: Zkopírujte více vybraných rozsahů z jednoho listu

Ukázka: Zkopírujte více vybraných rozsahů z mnoha sešitů / listů


Kutools pro Excel obsahuje více než 300 užitečných nástrojů pro Excel, můžete si je vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned!

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (14)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Chci vybrat řádky jako 1, 5,6,10, XNUMX, XNUMX. tak jak mohu zkopírovat tyto řádky???
Tento komentář byl moderátorem webu minimalizován
V tomto případě stačí vybrat řádky a zkopírovat je jako obvykle.
Tento komentář byl moderátorem webu minimalizován
Jak mohu zkopírovat buňku a1, e5, g2 a tak dále.... (více než 1000 buněk ve stejném sloupci) a vložit je do b1, f5, h2 (přímo do dalšího sloupce ve stejném řádku.)
Tento komentář byl moderátorem webu minimalizován
Výše uvedené vysvětlení možností kopírování více rozsahů je velmi užitečné - díky! Ke kopírování více řádků jsem použil možnost „schránka“. Musel vybrat každou skupinu po sobě jdoucích řádků a zkopírovat ji, přesunout se a vybrat další řádek nebo skupinu po sobě jdoucích řádků a zkopírovat ji atd.. Ale poté je to snadné, přejděte na místo, kam je chcete vložit, např. nový list, a klikněte na 'Vložit vše' ze schránky a všechny řádky se do ní zkopírují bez jakýchkoli mezer! Přesně to, co jsem chtěl - ještě jednou díky!
Tento komentář byl moderátorem webu minimalizován
Mockrát děkuji - skvělé stránky
Tento komentář byl moderátorem webu minimalizován
Zjistil jsem, že pokud máte otevřenou rovinu úloh Schránka, můžete zkopírovat více řádků jednoduše pomocí ctrl+C a vložit je v pořadí pomocí crtl+V pomocí Excelu 2007.
Tento komentář byl moderátorem webu minimalizován
Ahoj, je možné upravit kód tak, aby se zkopírované buňky daly vložit do jiného listu? Nyní se při pokusu o to zobrazí chybová zpráva "400". Používám Office 2010. Je také možné kopírovat tak, aby byly prázdné řádky odstraněny? Mám velký dokument a zkopíruji některé buňky se stovkami nezkopírovaných řádků mezi nimi. To vede k poměrně objemnému výstupu.
Tento komentář byl moderátorem webu minimalizován
Díky za kód, funguje perfektně. Tento zvláštní nedostatek funkcí v Excelu mě v minulosti mnohokrát zarazil. Obvykle je to nakonec rychlejší, ale v tomto případě mám 4000 individuálně barevně kódovaných buněk, takže jakékoli řešení by trvalo dlouho, takže jsem velmi vděčný. Steve
Tento komentář byl moderátorem webu minimalizován
Ahoj! Jak mohu použít stejný kód VBA výše, ale místo pouhého vkládání bych chtěl, aby se vložil speciálně pouze pro hodnoty. Tabulka, do které vkládám hodnoty (konstanty), je již naformátovaná a obsahuje součty (vzorce)
Díky moc v předstihu!
Tento komentář byl moderátorem webu minimalizován
Ahoj Katrino Manahan,

Otevřete okno Microsoft Visual Basic pro aplikace a vytvořte nový modul, stačí stisknout CTRL + V a vložit kód VBA přímo. Pořadová čísla před kódem nebudou vložena.
Tento komentář byl moderátorem webu minimalizován
Ahoj. Pěkný kód, funguje skvěle. Je možné upravit kód tak, aby bylo možné vložit/vložit řádek/rozsahy trhu vícekrát místo pouze jednou?
Tento komentář byl moderátorem webu minimalizován
Ahoj Jacob,
Možná tato funkce Vložit řádky nadpisů Kutools pro Excel může vyřešit váš problém.
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Skvělý příspěvek a kód VBA funguje perfektně. Je možné změnit kód tak, aby vložil speciální > hodnoty? Pokud ano, jak?
Díky!
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Skvělý kód, ale zajímalo by mě, jak mohu vložit hodnoty, nikoli jen vložit?
Díky :)
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění