删除表格空行时触发Error 1004：Range对象的Delete方法失败

问题场景 #

运行VBA代码删除表格中无数据的行时，触发如下错误：

Error 1004 Method "delete" of object "range" failed.

涉及的VBA代码片段：

Dim row As Range
With ws_IAD
    lastrow = tbl_IAD.Range.Rows(tbl_IAD.Range.Rows.count).row
    With tbl_IAD.DataBodyRange
        .SpecialCells(xlCellTypeBlanks).Rows.Delete
    End With
End With

错误原因及修复方案 #

核心问题点 #

1. 无空白单元格时直接报错：如果表格数据区域内没有空白单元格，SpecialCells(xlCellTypeBlanks)会直接抛出1004错误，因为找不到目标区域。
2. 空行判断逻辑错误：原代码选中的是所有空白单元格，而非整行完全空白的行，直接删除这些单元格所在行可能引发Range对象操作冲突。

修正后的代码 #

Dim targetTbl As ListObject
Dim rowIndex As Long

Set targetTbl = tbl_IAD ' 绑定目标表格对象

' 先判断表格是否存在数据行，避免空对象错误
If Not targetTbl.DataBodyRange Is Nothing Then
    ' 从最后一行往前遍历，防止删除行导致索引错乱
    For rowIndex = targetTbl.DataBodyRange.Rows.Count To 1 Step -1
        ' 用CountA判断整行是否无任何数据
        If Application.WorksheetFunction.CountA(targetTbl.DataBodyRange.Rows(rowIndex)) = 0 Then
            targetTbl.ListRows(rowIndex).Delete ' 直接删除表格行对象，更稳定
        End If
    Next rowIndex
End If

代码说明 #

• 先校验DataBodyRange是否存在，避免表格无数据时触发空对象错误。
• 从后往前遍历行，防止删除行后前面的行索引移位，导致漏删或误删。
• 用CountA函数精准判断整行是否无数据，确保只删除真正的空行。
• 使用表格原生的ListRows.Delete方法操作，比直接操作Range更符合Excel表格对象的规范，稳定性更高。

内容的提问来源于stack exchange，提问作者craig crowhurst