如何正确处理VBA错误91（对象变量或With块变量未设置）？尝试On Error Resume Next仍无法忽略错误

咱们先拆解下你代码里导致错误91仍弹出的核心问题：

• 错误处理块里多了个多余的End If，这会干扰错误逻辑的正常执行；
• 你捕获的错误编号是9，但SpecialCells找不到符合条件的单元格时，触发的是错误1004，所以原来的错误处理根本没生效；
• 当SpecialCells执行失败时，rng会处于未设置的状态（也就是Nothing），但你没在进入循环前检查这个状态，直接执行For Each ar In rng.Areas自然会触发错误91。

下面是两种可行的修复方案，你可以根据需求选择：

方案一：精准捕获特定错误（推荐） #

这种方式能明确处理SpecialCells的异常，同时不忽略其他潜在错误：

Private Sub CheckBox1_Click()
    Dim rng As Range, ar As Range
    Application.ScreenUpdating = False
    
    On Error GoTo errHandler
    ' 尝试获取常量单元格区域
    Set rng = ActiveSheet.ListObjects("test") _
        .Range.Offset(1).SpecialCells(xlCellTypeConstants)
    On Error GoTo 0 ' 重置错误处理，后续代码不再忽略错误
    
    ' 只有当rng成功设置时，才执行清理操作
    If Not rng Is Nothing Then
        For Each ar In rng.Areas
            ar.Value = Application.Trim(ar)
        Next ar
    End If
    
    ' 恢复屏幕更新并正常结束
    Application.ScreenUpdating = True
    Exit Sub

errHandler:
    ' 捕获SpecialCells找不到单元格的错误（错误号1004）
    If Err.Number = 1004 Then
        Set rng = Nothing ' 明确标记rng未设置
    Else
        ' 其他错误弹窗提示，方便排查
        MsgBox "发生未知错误：" & Err.Description, vbExclamation
    End If
    Resume Next ' 回到错误发生后的下一行继续执行
End Sub

方案二：简化错误忽略（适合快速场景） #

如果你只想快速跳过“找不到常量单元格”的情况，不需要额外提示，可以用更简洁的写法：

Private Sub CheckBox1_Click()
    Dim rng As Range, ar As Range
    Application.ScreenUpdating = False
    
    ' 临时忽略错误，执行SpecialCells操作
    On Error Resume Next
    Set rng = ActiveSheet.ListObjects("test") _
        .Range.Offset(1).SpecialCells(xlCellTypeConstants)
    On Error GoTo 0 ' 立即恢复正常错误处理
    
    ' 检查rng是否有效，有效才执行循环
    If Not rng Is Nothing Then
        For Each ar In rng.Areas
            ar.Value = Application.Trim(ar)
        Next ar
    End If
    
    Application.ScreenUpdating = True
End Sub

核心逻辑都是：确保只有当rng被成功设置为有效区域时，才执行后续的循环操作，从根源避免错误91的触发。

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