4 snadné způsoby, jak rychle odstranit více prázdných nebo prázdných řádků v aplikaci Excel

Odebrání více prázdných nebo prázdných řádků v Excelu je nezbytné při čištění dat před analýzou, sestavováním nebo prezentací. Prázdné řádky mohou narušit integritu dat, komplikovat výpočty a zatemňovat přehledy. Tato příručka představuje čtyři jednoduché metody, jak efektivně eliminovat tato prázdná místa a zajistit, aby vaše data zůstala nepřetržitá a byla snadno spravovatelná.

• Odstraňte prázdné řádky pomocí příkazu Přejít na speciální (4 kroky)
• Snadno odstraňte prázdné řádky v rozsahu/listu/sešitu pomocí Kutools (1 krok)
• Odstraňte prázdné řádky pomocí kódu VBA (4 kroky)
• Odstraňte prázdné řádky pomocí pomocného sloupce a funkce Filtr (7 kroků)
• Stáhněte si ukázkový soubor

Nyní proveďte následující kroky k odstranění prázdných řádků pomocí funkce „Přejít na speciální“:

1. Vyberte rozsah, ze kterého chcete odstranit prázdné řádky, klikněte na kartu „Domů“ a poté ve skupině „Úpravy“ klikněte na „Najít a vybrat“ > „Přejít na speciální“.

2. V Dialog "Přejít na speciální" zaškrtněte volbu "Blanks".

3. Klikněte na "OK", nyní jsou vybrány všechny prázdné buňky ve výběru.

4. Klikněte na kartu „Domů“, ve skupině „Buňky“ klikněte na „Odstranit“ > „Odstranit řádky listu“.

Nyní byly řádky s prázdnými buňkami odstraněny.

Pokud potřebujete rychlou a bezchybnou metodu k odstranění všech prázdných řádků z výběru, aktivního listu, vybraných listů nebo celého sešitu, zvažte použití nástroje "Odstranit prázdné řádky" z "Kutools pro Excel". Tento nástroj zjednodušuje úlohu a umožňuje odstranit prázdné řádky jediným kliknutím, čímž se vyhnete použití složitějších metod.

Klikněte na „Kutools“ > „Odstranit“ > „Odstranit prázdné řádky“ a poté v rozbalovacím seznamu vyberte jednu operaci, kterou potřebujete.

1. Stiskněte "Alt" + "F11" pro aktivaci okna "Microsoft Visual Basic for Applications".

2. Klikněte na "Vložit" > "Modul" pro vytvoření nového skriptu "Modul", zkopírujte a vložte níže uvedený kód do skriptu.

VBA: Odstraňte prázdné řádky

Sub DeleteBlankRows()
'Update 20190107
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For I = xRows To 1 Step -1
    If Application.WorksheetFunction.CountA(WorkRng.Rows(I)) = 0 Then
        WorkRng.Rows(I).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Stisknutím klávesy "F5" spusťte kód a poté vyberte rozsah, který používáte k odstranění prázdných řádků v dialogovém okně "KutoolsforExcel".

4. Klikněte na "OK". Nyní byly prázdné řádky ve výběru odstraněny.

1. Vložte jeden sloupec před rozsah dat, vezměte vložení sloupce A jako instanci a poté zadejte následující vzorec do A3 pro spojení dat v řádku 3, viz snímek obrazovky:

=B3&C3&D3

Tip: Pokud jsou vaše data přes sloupce B3 až N, upravte vzorec na =B3&C3&D3&E3&…&N3.

2. Potom vyplňte vzorec do buněk přetažením úchytu automatického vyplnění dolů.

3. Poté klikněte na „Data“ > „Filtr“.

4. Poté klikněte na "ikonu Filtr" v pomocném sloupci, zaškrtněte možnost "Blanks" pouze v rozevíracím seznamu. Viz snímek obrazovky:

5. Klikněte na "OK", všechny prázdné řádky byly odfiltrovány.

6. Vyberte filtrované řádky, kliknutím na „Domů“ > „Odstranit“ > „Odstranit řádky listu“ odstraňte prázdné řádky.

7. Poté znovu klikněte na „Data“ > „Filtr“ pro deaktivaci funkce „Filtr“.

Kliknutím stáhnete ukázkový soubor