Xóa tất cả dòng trống bằng VBA trong Excel

1. Cách nhanh nhất (dùng SpecialCells)

Sub DeleteBlankRows()
    On Error Resume Next
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
End Sub