Přejít k hlavnímu obsahu

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 Domů > 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 pro bezplatnou plně funkční zkušební verzi za 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 a více funkcí, které musíte mít v Excelu, 30denní bezplatná zkušební verze odtud

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


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 snižuje stovky kliknutí myší každý den!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
=Filter(A:A,A:A<>"")
This comment was minimized by the moderator on the site
Array formula Works fine on text
but don't work on numbers.
This comment was minimized by the moderator on the site
Not working on Numbers !!!
Works fine on text !!!
Please guide
This comment was minimized by the moderator on the site
Thanks for the great tips! I am using the Find & Select feature, but it's taking a long time because my spreadsheet contains 70 columns and 450k rows. Is there a way to fasten the process?
This comment was minimized by the moderator on the site
When i select and copy only non-blank cells, how can i then paste it somewhere else with keeping the same empty ranges between them?
This comment was minimized by the moderator on the site
These tools delete the blank cells and compress the row. I want the format to be retained, including the spaces, but I do not want empty cells to overwrite cells containing existing data. i.e. I want to add the new, copied, cells in a column onto an existing column.
This comment was minimized by the moderator on the site
Hi #abc I have used your formula =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMAL L(IF('List of Overdue items'!A$1:A$15 00"",ROW('List of Overdue items'!A$1:A$15 00)),ROWS('List of Overdue items'!B$1:B2)) ))) I have data in one Worksheet and want to copy that data into another worksheet (same doc). Can you help?
This comment was minimized by the moderator on the site
Is there a way to make the macro work when referencing between different sheets?
This comment was minimized by the moderator on the site
This formula is absolutely amazing, thank you. Unfortunately it breaks when trying to copy from another sheet, is there a workaround?
This comment was minimized by the moderator on the site
correct the references when using the formula between different sheets. It does work. =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX('List of Overdue items'!A:A,SMALL(IF('List of Overdue items'!A$1:A$1500"",ROW('List of Overdue items'!A$1:A$1500)),ROWS('List of Overdue items'!B$1:B2)))))
This comment was minimized by the moderator on the site
thanks for the super formula: =LOOKUP("zzzzz",CHOOSE({1,2},"",INDEX(A:A,SMALL(IF($A$1:$A$15"",ROW($A$1:$A$15)),ROWS($B$1:B1)))))
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations