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

Jak kopírovat a vložit pouze neprázdné buňky v aplikaci Excel?

Většina z nás může být tímto problémem postižena, když zkopírujeme seznam dat, která obsahují nějaké prázdné buňky, a potom je vložíme do jiného sloupce, prázdné buňky se také vloží. To je velmi nepříjemné, když nepotřebujeme mezery a chceme vložit pouze neprázdné buňky. Jak bychom v tomto případě mohli rychle a pohodlně zkopírovat a vložit pouze neprázdné buňky v aplikaci Excel? Zde je několik rychlých triků, jak to vyřešit:

Zkopírujte a vložte pouze neprázdné buňky pomocí příkazu Přejít na speciální

Zkopírujte a vložte pouze neprázdné buňky pomocí funkce Filtr

Zkopírujte a vložte pouze neprázdné buňky pomocí vzorce pole

Zkopírujte a vložte pouze neprázdné buňky s kódem VBA

Zkopírujte a vložte pouze neprázdné buňky pomocí programu Kutools pro Excel dobrý nápad3


šipka modrá pravá bublina Zkopírujte a vložte pouze neprázdné buňky pomocí příkazu Přejít na speciální

S Přejít na speciální příkaz, můžete nejprve vybrat všechna data a poté je zkopírovat a vložit na jiné místo.

1. Vyberte svůj seznam dat, která chcete použít.

doc-copy-only-nonblanks1

2. Pak klikněte na tlačítko Home > Najít a vybrat > Přejít na speciální, viz screenshot:

doc-copy-only-nonblanks1

3. V Přejít na speciální v dialogovém okně zaškrtněte Konstanty možnost, viz screenshot:

doc-copy-only-nonblanks1

4. Pak klikněte na tlačítko OKa v seznamu byly vybrány pouze buňky hodnot.

doc-copy-only-nonblanks1

5. A potom zkopírujte a vložte data do požadovaného umístění. A byly vloženy pouze neprázdné hodnoty buněk. Viz screenshot:

doc-copy-only-nonblanks1

Poznámka: Tato metoda je k dispozici pouze pro konstanty, neaplikuje se na buňky vzorce.


šipka modrá pravá bublina Zkopírujte a vložte pouze neprázdné buňky pomocí funkce Filtr

Projekt Filtr Funkce vám pomůže nejprve filtrovat neprázdné buňky a poté je můžete podle potřeby zkopírovat a vložit do jiných buněk.

2, klikněte Data > Filtr, viz screenshot:

pouze kopie dokumentu nonblanks6

3. Poté klikněte na rozevírací tlačítko v pravém rohu buňky ve vybraném seznamu a zrušte zaškrtnutí políčka Blanks možnost v rozevírací nabídce. Viz screenshot:
doc-copy-only-nonblanks1

4. A pak klikněte na tlačítko OK, všechny neprázdné buňky byly odfiltrovány, jak ukazuje následující snímek obrazovky:

doc-copy-only-nonblanks1

5. Nakonec můžete filtrovaná data zkopírovat a vložit na libovolné místo, které potřebujete.

Poznámka: Tímto způsobem se projeví hodnoty i vzorce.


Vyberte neprázdné buňky najednou

Klikněte a získejte plně funkční zkušební verzi do 30 dnů!
doc kutools vybrat neprázdné buňky

šipka modrá pravá bublina Zkopírujte a vložte pouze neprázdné buňky pomocí vzorce pole

Chcete-li zkopírovat a vložit pouze neprázdné buňky, můžete také použít následující vzorec pole.

1. Kromě svých údajů zadejte do prázdné buňky následující vzorec:

=LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15<>"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))

doc-copy-only-nonblanks1

Poznámka: Ve výše uvedeném vzorci, A1: A15 je seznam dat, který chcete použít. Můžete jej podle potřeby změnit.

2. Pak stiskněte tlačítko Shift + Ctrl + Enter klíče dohromady a poté vyberte buňku B1 a přetáhněte úchyt výplně do rozsahu, ve kterém chcete tento vzorec obsahovat, a všechny neprázdné hodnoty buňky byly extrahovány. Viz screenshot:

doc-copy-only-nonblanks1

3. Jelikož se jedná o vzorce, měli byste je při kopírování na jiné místo zkopírovat a vložit jako hodnoty.

Poznámka: Tento vzorec je k dispozici pouze pro konstanty, neaplikuje se na buňky vzorce.


šipka modrá pravá bublina Zkopírujte a vložte pouze neprázdné buňky s kódem VBA

Pokud vás zajímá kód VBA, můžete dokončit tento úkol spuštěním následujícího kódu.

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Zkopírujte a vložte pouze neprázdné buňky v aplikaci Excel

Sub PasteNotBlanks()
'Update 20140325
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
If InputRng.Columns.Count > 1 Then
    MsgBox "Please select one column."
    Exit Sub
End If
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
InputRng.SpecialCells(xlCellTypeConstants).Copy Destination:=OutRng.Range("A1")
End Sub

3. Pak stiskněte tlačítko F5 Po spuštění tohoto kódu se zobrazí výzva, která vám připomene výběr rozsahu dat, který chcete použít. Viz screenshot:

doc-copy-only-nonblanks1

4. A pak klikněte na tlačítko OK, vyskočí další okno s výzvou, které vám umožní vybrat buňku pro vložení dat.

doc-copy-only-nonblanks1

5. klikněte OK k dokončení tohoto kódu a do zadané polohy byly vloženy pouze neprázdné hodnoty buněk.

Poznámka: Tento kód je k dispozici pouze pro konstanty.


šipka modrá pravá bublina Zkopírujte a vložte pouze neprázdné buňky pomocí programu Kutools pro Excel

Existuje mnohem jednodušší způsob než výše? Samozřejmě, Kutools pro Excel's Vyberte neprázdnou buňkuNástroj vám pomůže nejprve vybrat neprázdné buňky a poté je zkopírovat a vložit.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. Vyberte oblast buněk a klepněte na Kutools > vybrat > Vyberte neprázdné buňky. Viz snímek obrazovky:
doc vyberte neprázdnou buňku 2

2. Poté jsou vybrány neprázdné buňky, stiskněte Ctrl + C Chcete-li je zkopírovat, vyberte buňku, do které chcete odeslat výsledek, stiskněte Ctrl + V vložit vybrané neprázdné buňky. Viz screenshot:
doc vyberte neprázdnou buňku 3

šipka modrá pravá bublina Zkopírujte a vložte pouze neprázdnou buňku

Kutools pro Excel: 300+ funkcí, které musíte mít v Excelu, 30denní bezplatná zkušební verze odtud

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 (11)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
díky za super vzorec: =LOOKUP("zzzzz",CHOOSE({1,2}"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1: $A$15)),ROWS($B$1:B1)))))
Tento komentář byl moderátorem webu minimalizován
Tento vzorec je naprosto úžasný, děkuji. Bohužel se při pokusu o kopírování z jiného listu rozbije, existuje nějaké řešení?
Tento komentář byl moderátorem webu minimalizován
opravte odkazy při použití vzorce mezi různými listy. Funguje to. =LOOKUP("zzzzz",CHOOSE({1,2}","INDEX('Seznam položek po splatnosti'!A:A,SMALL(IF('Seznam položek po splatnosti'!A$1:A$1500"", ROW('Seznam položek po splatnosti'!A$1:A$1500)),ROWS('Seznam položek po splatnosti'!B$1:B2)))))
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak zajistit, aby makro fungovalo při odkazování mezi různými listy?
Tento komentář byl moderátorem webu minimalizován
Ahoj #abc, použil jsem tvůj vzorec =LOOKUP("zzzzz",CHOOSE({1,2}","INDEX('Seznam položek po splatnosti'!A:A,SMAL L(IF('Seznam položek po splatnosti') !A$1:A$15 00"",ROW('Seznam položek po splatnosti'!A$1:A$15 00)),ROWS('Seznam položek po splatnosti'!B$1:B2)) ))) Mám data v jeden list a chcete tato data zkopírovat do jiného listu (stejný dokument). Můžete pomoci?
Tento komentář byl moderátorem webu minimalizován
Tyto nástroje odstraní prázdné buňky a zkomprimují řádek. Chci, aby byl zachován formát včetně mezer, ale nechci, aby prázdné buňky přepisovaly buňky obsahující existující data. tj. chci přidat nové, zkopírované buňky ve sloupci do existujícího sloupce.
Tento komentář byl moderátorem webu minimalizován
Když vyberu a zkopíruji pouze neprázdné buňky, jak je pak mohu vložit někam jinam, aby mezi nimi zůstaly stejné prázdné rozsahy?
Tento komentář byl moderátorem webu minimalizován
Díky za skvělé tipy! Používám funkci Najít a vybrat, ale trvá to dlouho, protože moje tabulka obsahuje 70 sloupců a 450 XNUMX řádků. Existuje způsob, jak proces urychlit?
Tento komentář byl moderátorem webu minimalizován
Nefunguje na Numbers!!!
Na textu funguje dobře!!!
Prosím průvodce
Tento komentář byl moderátorem webu minimalizován
Vzorec pole Funguje dobře s textem
ale nepracujte na číslech.
Tento komentář byl moderátorem webu minimalizován
=Filtr(A:A,A:A<>"")
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í