删除包含空白值的特定范围内的行

Question

I'm trying to delete the rows in a specified cell range that contains blank values.

Tried this:

sub TestDeleteRow()
    Set exlTest = objExcel.Workbooks.Open(strPathExc)
    objExcel.Application.Visible = True

    objExcel.Sheets("FNR_CHECK").Range("E3:G13").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Msgbox "Rows deleted", vbOKOnly, "TA Balance Sheet"
end sub

I'm getting an error in the line

objExcel.Sheets("FNR_CHECK").Range("E3:G13").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Saying subscript out of range

Answer 1

Define a Range and use the SpecialCells() function to select blank cells within that range. Then, apply the EntireRow property to select and delete the rows.

For example, to delete the rows that have blanks in column A:

Const xlCellTypeBlanks = 4

objExcel.ActiveSheet.Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Answer 2

Here is small sub which will loop through the column A (Change it to your selected column) and it will first trim the cell value in case if you have space or anything and then it will delete the entire row if blank value is found.

Sub DeleteRowsThatLookEmpty()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim Rng As Range, ix As Long
    Set Rng = Intersect(Range("A:A"), ActiveSheet.UsedRange) 'You can specify the sheet you want and change the column
    For ix = Rng.Count To 1 Step -1
        If Trim(Replace(Rng.Item(ix).Text, Chr(160), Chr(32))) = "" Then
            Rng.Item(ix).EntireRow.Delete
        End If
    Next

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub