Jak vybrat neprázdné buňky v rozsahu v aplikaci Excel?
Řekněme, že v rozsahu existuje mnoho nesousedících prázdných buněk a nyní musíte vybrat všechny buňky s obsahem v současnosti. Jak snadno vybrat všechny nevyplněné buňky v aplikaci Excel snadno? Existuje několik triků, jak to vyřešit.
- Pomocí funkce Přejít na speciální vyberte neprázdné buňky v rozsahu
- Vyberte neprázdné buňky v rozsahu pomocí VBA
- Vyberte neprázdné buňky v rozsahu pomocí Kutools pro Excel (pouze jeden krok)
Pomocí funkce Přejít na speciální vyberte neprázdné buňky v rozsahu
Funkce Přejít na speciální nám může pomoci vybrat neprázdné buňky ve vybraném rozsahu pomocí následujících kroků.
1. Vyberte rozsah, ze kterého vyberete všechny neprázdné buňky, a stiskněte F5 Klíč k otevření dialogového okna Přejít na. Poté klikněte na ikonu Speciální tlačítko pro otevření dialogového okna Přejít na speciální.
Poznámka: Můžete také otevřít Přejít na speciální dialogové okno přímo kliknutím na Home > Najít a vybrat > Přejít na speciální.
2. V dialogovém okně Přejít na speciální zaškrtněte políčko Konstanty volba, Čísla volba, text volba, Logika možnost a chyby a klepněte na tlačítko OK .
Nyní uvidíte, že v zadaném rozsahu jsou vybrány pouze neprázdné buňky s obsahem. Viz níže screenshoty:
Jedním kliknutím vyberete všechny neprázdné buňky v rozsahu v aplikaci Excel
Kutools pro Excel Vyberte neprázdné buňky nástroj vám pomůže rychle vybrat všechny neprázdné buňky ze zvoleného rozsahu pouhým jedním kliknutím.

Vyberte neprázdné buňky v rozsahu pomocí VBA
Zde poskytujeme makro VBA pro výběr všech neprázdných buněk ze zadaného rozsahu. Postupujte prosím následovně:
1. zmáčkni Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.
2, Klepněte na tlačítko Vložit > Modula poté vložte následující kód VBA do okna otevíracího modulu.
VBA: Vyberte neprázdné buňky z rozsahu
Sub SelectNonBlankCells()
Dim Rng As Range
Dim OutRng As Range
Dim InputRng As Range
Dim xTitle As String
On Error Resume Next
xTitle = Application.ActiveWindow.RangeSelection.Address
Set InputRng = Application.InputBox("Range :", "KutoolsforExcel", xTitle, Type:=8)
Set InputRng = Application.Intersect(InputRng, Application.ActiveSheet.UsedRange)
For Each Rng In InputRng
If Not Rng.Value = "" Then
If OutRng Is Nothing Then
Set OutRng = Rng
Else
Set OutRng = Application.Union(OutRng, Rng)
End If
End If
Next
If Not (OutRng Is Nothing) Then
OutRng.Select
End If
End Sub
3. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA.
4. V úvodním dialogovém okně zadejte rozsah, ve kterém vyberete pouze neprázdné buňky, a klikněte na OK .
Nyní jsou všechny neprázdné buňky okamžitě vybrány v určeném rozsahu.
Vyberte neprázdné buňky v rozsahu pomocí Kutools pro Excel
Kutools pro Excel Vyberte neprázdné buňky nástroj umožňuje vybrat všechny neprázdné buňky z určitého rozsahu pouhým jedním kliknutím.
Kutools pro Excel - Obsahuje více než 300 užitečných nástrojů pro Excel. Plná zkušební verze zdarma 30-den, není potřeba kreditní karta! Zkušební verze zdarma hned teď!
Vyberte rozsah, který vyberete pouze neprázdné buňky, a klikněte na Kutools > vybrat > Vyberte neprázdné buňky.
Nyní jsou najednou vybrány všechny neprázdné buňky ve specifikovaném rozsahu.
Kutools pro Excel - Obsahuje více než 300 užitečných nástrojů pro Excel. Plná zkušební verze zdarma 30-den, není potřeba kreditní karta! Get It Now
Ukázka: vyberte neprázdné buňky v rozsahu v aplikaci Excel
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-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

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!
