Obsah
Odstranit prázdné řádky
Zjevným způsobem, jak odstranit prázdné řádky ze sady dat, je jednoduše data seřadit. Tím se prázdné řádky přesunou na konec dat a „odstraní“ je. Ale co když chcete odstranit prázdné řádky, ale nechcete data třídit? VBA.
Následující makro odstraní prázdné řádky bez jakéhokoli třídění (vypnutí aktualizace obrazovky bude rychlejší).
Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row To 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Then ActiveSheet.Rows (x) .Delete End Pokud Next End With End Sub
