[vba] Excel VBA - Delete empty rows

sub foo()
  dim r As Range, rows As Long, i As Long
  Set r = ActiveSheet.Range("A1:Z50")
  rows = r.rows.Count
  For i = rows To 1 Step (-1)
    If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
  Next
End Sub

Option Explicit

Sub Sample()
    Dim i As Long
    Dim DelRange As Range

    On Error GoTo Whoa

    Application.ScreenUpdating = False

    For i = 1 To 50
        If Application.WorksheetFunction.CountA(Range("A" & i & ":" & "Z" & i)) = 0 Then
            If DelRange Is Nothing Then
                Set DelRange = Range("A" & i & ":" & "Z" & i)
            Else
                Set DelRange = Union(DelRange, Range("A" & i & ":" & "Z" & i))
            End If
        End If
    Next i

    If Not DelRange Is Nothing Then DelRange.Delete shift:=xlUp
LetsContinue:
    Application.ScreenUpdating = True

    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub

Option Explicit

Sub Sample()
    Dim i As Long
    Dim DelRange As Range

    On Error GoTo Whoa

    Application.ScreenUpdating = False

    For i = 1 To 50
        If Application.WorksheetFunction.CountA(Range("A" & i & ":" & "Z" & i)) = 0 Then
            If DelRange Is Nothing Then
                Set DelRange = Rows(i)
            Else
                Set DelRange = Union(DelRange, Rows(i))
            End If
        End If
    Next i

    If Not DelRange Is Nothing Then DelRange.Delete shift:=xlUp
LetsContinue:
    Application.ScreenUpdating = True

    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume LetsContinue
End Sub

Examples related to vba

• Copy filtered data to another sheet using VBA • Better way to find last used row • Check if a value is in an array or not with Excel VBA • Creating an Array from a Range in VBA • Excel: macro to export worksheet as CSV file without leaving my current Excel sheet • VBA: Convert Text to Number • What's the difference between "end" and "exit sub" in VBA? • Rename Excel Sheet with VBA Macro • Extract Data from PDF and Add to Worksheet • Quicker way to get all unique values of a column in VBA?

Examples related to excel

• Python: Pandas pd.read_excel giving ImportError: Install xlrd >= 0.9.0 for Excel support • Converting unix time into date-time via excel • How to increment a letter N times per iteration and store in an array? • 'Microsoft.ACE.OLEDB.16.0' provider is not registered on the local machine. (System.Data) • How to import an Excel file into SQL Server? • Copy filtered data to another sheet using VBA • Better way to find last used row • Could pandas use column as index? • Check if a value is in an array or not with Excel VBA • How to sort dates from Oldest to Newest in Excel?