VBA Code:
' VBA Code to Remove Blank Rows from a Worksheet in Excel
Sub RemoveBlankRows()
Dim lastRow As Long
Dim i As Long
' Set the range of the worksheet
With Worksheets("Sheet1") ' Replace with the name of your worksheet
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Assumes column A for checking blankness
' Loop through each row in reverse order and delete if blank
For i = lastRow To 1 Step -1
If WorksheetFunction.CountA(.Rows(i)) = 0 Then
.Rows(i).Delete
End If
Next i
End With
MsgBox "Blank rows have been removed."
End Sub
Join Our Telegram Group
Join Our WhatsApp Group
