Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrovat  \/ 
x

or

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 Domovská stránka > 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

Společnost 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 Ok 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 tlačítko.

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ší tlačítko.

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 tlačítko.

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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    peter.habershon@eis2win.co.uk · 2 years ago
    Hi there,
    Great code but wondered how I can paste values rather than just paste?
    Thanks :)
  • To post as a guest, your comment is unpublished.
    Peter Habershon · 2 years ago
    Hi there,
    Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
    Thanks!
  • To post as a guest, your comment is unpublished.
    jacobkring@hotmail.com · 3 years ago
    Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 3 years ago
      Hi Jacob,
      Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
      https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
  • To post as a guest, your comment is unpublished.
    kmmanahan · 3 years ago
    Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
    Thanks so much in advance!
    • To post as a guest, your comment is unpublished.
      · 3 years ago
      Hi Katrina Manahan,

      Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
  • To post as a guest, your comment is unpublished.
    Steve O · 5 years ago
    Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful.
    Steve
  • To post as a guest, your comment is unpublished.
    David Hedin · 5 years ago
    Hi,
    Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010.

    Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
  • To post as a guest, your comment is unpublished.
    Yunivor · 5 years ago
    I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
  • To post as a guest, your comment is unpublished.
    M · 6 years ago
    Thank you SOOOOOO much - what a great site
  • To post as a guest, your comment is unpublished.
    Lyn Mc · 6 years ago
    Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
  • To post as a guest, your comment is unpublished.
    Abani Pattanayak · 6 years ago
    I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
    • To post as a guest, your comment is unpublished.
      David Hedin · 5 years ago
      In this case you can just select the rows and copy them as usual.
      • To post as a guest, your comment is unpublished.
        K Raj · 4 years ago
        How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)