使用VBA在Excel中删除空行

Question

I am trying to delete empty rows in excel by using below code:

iRowLast = .Cells(.Rows.Count, iCol_Exp).End(xlUp).Row
Set r = .Range("A1:F48")
Set Z = ActiveSheet.Range("A1:Z50")

For i = iRowLast To 10 Step (-1)
    r.Rows(i).Replace What:=Chr(32), Replacement:="", LookAt:=xlPart
    If WorksheetFunction.CountA(r.Rows(i)) = 0 Then Z.Rows(i).Delete
Next

I am looking for empty cell and spaces as well and want to delete the row only if all the respective columns are empty or have spaces with out any actual data.

The problem in this code is it is also deleting spaces between data in excel sheet. Please provide suggestion how can I avoid that.

Answer 1

If you don't mind that the cells which have both data and leading/lagging spaces are modified (trimmed), then Siddharth's response is really neat. Another option is to check whether the cell is composed entirely of spaces ... something like ...

iRowLast = .Cells(.Rows.Count, iCol_Exp).End(xlUp).Row
Set r = .Range("A1:F48")
Set Z = ActiveSheet.Range("A1:Z50")

For i = iRowLast To 10 Step (-1)
    'r.Rows(i).Replace What:=Chr(32), Replacement:="", LookAt:=xlPart
    For Each vcell In r.Rows(i).Columns
        If Len(Replace(vcell, " ", "")) = 0 Then vcell = ""
    Next

    If WorksheetFunction.CountA(r.Rows(i)) = 0 Then Z.Rows(i).Delete
Next