当ActiveCell为特定区域时退出Sub：宏执行异常排查

核心问题 #

你的代码存在两个关键错误，导致正常区域选中时宏无法执行：

1. 单元格比较逻辑错误：你用ActiveCell = Range("F1")是在比较单元格的值，而非判断是否选中了该单元格对象。如果选中的正常区域单元格值和F1/F2等单元格的值相同，就会触发Exit Sub，导致宏不运行。
2. Find方法的不稳定与冗余：Range("E:E").Find("TEXT")每次调用都会重新执行搜索，可能返回不同结果；同时你重复写了一次ActiveCell = Range("E:E").Find("TEXT").Offset(-3, 1)，且未处理找不到"TEXT"的情况（会引发错误）。

修正后的代码 #

Sub MACRO1()
    Dim forbiddenRng As Range
    Dim textCell As Range
    
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    
    ' 先找到TEXT所在单元格，处理找不到的情况
    Set textCell = Range("E:E").Find("TEXT", LookAt:=xlWhole)
    If Not textCell Is Nothing Then
        ' 构建禁止触发宏的单元格集合
        Set forbiddenRng = Union(Range("F1:F5"), _
                                textCell.Offset(-4, 1), _
                                textCell.Offset(-3, 1))
    Else
        ' 找不到TEXT时，仅禁止F1:F5
        Set forbiddenRng = Range("F1:F5")
    End If
    
    ' 判断当前选中单元格是否在禁止集合内
    If Not Intersect(ActiveCell, forbiddenRng) Is Nothing Then
        Exit Sub
    End If
    
    Call MACRO2
    Call MACRO3

    ActiveSheet.Protect
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 改用单元格对象判断：用Intersect(ActiveCell, forbiddenRng)判断选中单元格是否在禁止区域内，直接基于单元格位置而非值，逻辑更准确。
• 统一处理Find结果：先获取TEXT所在单元格，避免重复搜索；同时增加判断，防止找不到TEXT时触发错误。
• 合并禁止区域：用Union把所有禁止单元格合并成一个范围，简化判断逻辑。
• 恢复屏幕刷新：最后加Application.ScreenUpdating = True，避免工作表一直处于刷新关闭状态。

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