Excel VBA高亮选中单元格：移除On Error Resume Next的优化方案及疑问

好的，咱们来一步步解决你的两个问题：

一、不用On Error Resume Next的更优实现 #

原代码里用On Error Resume Next，本质是为了跳过第一次运行时xLastRng未赋值（是Nothing）导致的错误。其实更靠谱的做法是通过逻辑判断提前规避错误，代码不仅更安全，可读性也更强。

优化后的完整代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 先把需要监控的高亮区域合并成一个变量，代码更简洁
    Dim highlightRanges As Range
    Set highlightRanges = Union(Me.Range("range_name"), Me.Range("range_name2"), Me.Range("range_name3"))
    
    ' 判断当前选中区域是否在目标范围内
    If Not Intersect(Target, highlightRanges) Is Nothing Then
        Static xLastRng As Range
        
        ' 高亮当前选中的单元格
        Target.Interior.ColorIndex = 6
        
        ' 只有当xLastRng是有效的区域时，才清除之前的高亮
        If Not xLastRng Is Nothing Then
            xLastRng.Interior.ColorIndex = xlColorIndexNone
        End If
        
        ' 更新记录的最后选中区域
        Set xLastRng = Target
    Else
        ' 可选逻辑：如果选中了目标区域外的单元格，清除之前的高亮（不需要的话可以删掉）
        If Not xLastRng Is Nothing Then
            xLastRng.Interior.ColorIndex = xlColorIndexNone
            Set xLastRng = Nothing
        End If
    End If
End Sub

优化点说明 #

• 把多个监控区域合并成highlightRanges变量，避免重复写Union逻辑，代码更整洁
• 通过If Not xLastRng Is Nothing Then的判断，从根源上避免了“未设置对象变量”的错误，完全不需要依赖错误跳过语句
• 新增的Else分支可以处理选中目标区域外的情况，让高亮逻辑更完整（你可以根据自己的需求选择保留或删除）

二、关于On Error Resume Next的错误捕获影响 #

你猜的完全没错！On Error Resume Next会对后续代码的错误处理产生很大影响：

• 在执行这个语句之后，直到当前过程结束，或者你主动用On Error GoTo 0恢复默认错误处理，所有的运行时错误都会被自动跳过——既不会弹出错误提示，也不会触发其他错误捕获逻辑
• 举个例子：如果后续代码里不小心引用了一个不存在的单元格，或者出现了类型不匹配的错误，这些问题会被直接忽略，程序继续执行，很容易留下隐藏的bug，排查起来特别麻烦
• 所以除非你明确知道某一行代码会出现特定错误，且确定可以安全跳过，否则尽量不要用On Error Resume Next——用逻辑判断规避错误才是更稳健的做法

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