Excel VBA Worksheet_Change事件监控求助：I11-I20单元格联动实现

先说说你原代码的几个问题，这也是导致报错和只能单行处理的核心原因：

1. 对象未设置错误：你直接用Intersect(Target, A) > 900做数值比较，但Intersect返回的是Range对象，不能直接和数值对比；而且没判断这个交集是否存在（比如用户修改的不是I11时，Intersect会返回Nothing，直接操作就会触发那个报错）。
2. 仅支持单行：代码里只指定了Range("I11")，自然只能处理这一行的内容。
3. 逻辑与需求不符：原代码的条件判断和你说的需求搞反了，而且先清空K列再设公式的顺序也不合理。
4. 事件处理不严谨：EnableEvents的位置不对，且没有错误恢复机制——万一代码报错，事件会一直处于关闭状态，后续的工作表变更事件都会失效。

下面是修正后的完整代码，直接放到你对应的工作表模块里就能用：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义要监控的单元格范围：I11到I20
    Dim monitorRange As Range
    Set monitorRange = Me.Range("I11:I20")
    
    ' 用来遍历每个触发修改的单元格
    Dim cell As Range
    
    ' 先关闭事件触发，避免设置公式时再次触发Change事件造成循环
    Application.EnableEvents = False
    
    ' 添加错误捕获，确保不管出什么错，事件都能恢复
    On Error GoTo ErrorHandler

    ' 检查用户修改的单元格是否在我们监控的范围内
    If Not Intersect(Target, monitorRange) Is Nothing Then
        ' 遍历所有符合条件的单元格（支持批量选中修改）
        For Each cell In Intersect(Target, monitorRange)
            ' 先判断单元格内容是不是数字，避免非数值输入报错
            If IsNumeric(cell.Value) Then
                If cell.Value < 900 Then
                    ' 小于900时，给对应K列设置公式，引用同行的J列
                    cell.Offset(0, 2).Formula = "=" & cell.Offset(0, 1).Address(False, False)
                ElseIf cell.Value > 900 Then
                    ' 大于900时，清空对应K列，允许手动输入
                    cell.Offset(0, 2).ClearContents
                End If
                ' 如果需要处理等于900的情况，在这里加Else分支就行
            End If
        Next cell
    End If

ErrorHandler:
    ' 不管有没有错误，都要恢复事件触发
    Application.EnableEvents = True
    ' 如果有错误，弹出提示告诉用户
    If Err.Number <> 0 Then
        MsgBox "运行出错：" & Err.Description, vbExclamation
    End If
End Sub

代码的关键改进点： #

• 批量处理支持：监控范围设为I11:I20，不管用户改单个还是多个单元格，都能正常处理。
• 避免对象错误：先判断Intersect(Target, monitorRange)是不是Nothing，确保只处理我们关心的单元格。
• 动态公式引用：用cell.Offset(0,1).Address获取同行J列的地址，不用硬编码行号，更灵活通用。
• 数值校验：用IsNumeric过滤非数值输入，防止下拉选项里有文本时触发报错。
• 安全的事件处理：错误捕获机制确保EnableEvents一定会恢复，不会影响后续的工作表操作。

注意事项： #

• 代码必须放在对应的工作表模块里（右键工作表标签→查看代码，粘贴进去），不能放在标准模块。
• 如果需要处理等于900的情况，在ElseIf后面加Else分支即可，比如保持现有内容或者设置特定值。
• 确保I列的下拉选项都是数值类型，否则非数值内容会被跳过处理。

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