VBA删除A列空单元格所在行 无空值时宏报错的解决方法

你使用的SpecialCells(xlCellTypeBlanks)方法有固有特性：当指定查找范围内不存在符合条件的单元格时，会直接抛出「运行时错误'1004'：未找到单元格」，这就是A列全为非空值时代码中断的原因。另外原代码多次使用Select选中对象的写法不仅运行效率低，在非当前激活工作表执行时还容易出现额外的选择类错误。

推荐直接用错误捕获的方式处理，写法简洁、执行效率高，适配大数据量场景：

Sub 删除A列空值对应行()
    ' 关闭屏幕更新，提升大文件下的运行速度
    Application.ScreenUpdating = False
    
    ' 临时屏蔽错误，避免找不到空单元格时代码中断
    On Error Resume Next
    ' 直接定位A列空单元格、删除对应整行，无需选中对象
    Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    ' 立刻恢复默认错误捕获逻辑，避免屏蔽其他真实错误
    On Error GoTo 0
    
    Application.ScreenUpdating = True
End Sub

如果希望逻辑更直观，也可以先判断空单元格区域是否存在，再执行删除操作：

Sub 删除A列空值对应行()
    Dim blankRng As Range
    Application.ScreenUpdating = False
    
    On Error Resume Next
    Set blankRng = Columns("A:A").SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    ' 仅当成功匹配到空单元格时执行删除
    If Not blankRng Is Nothing Then
        blankRng.EntireRow.Delete
        Set blankRng = Nothing
    End If
    
    Application.ScreenUpdating = True
End Sub

注意：不要全程开启On Error Resume Next，否则代码运行中出现其他语法、逻辑错误时会被直接跳过，很难排查问题。

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