VBA Workbook_SheetChange事件：仅触发指定工作表指定列执行宏

核心结论 #

Workbook_SheetChange事件会在任意工作表的任意单元格内容变更时触发，要实现仅"main"工作表B列变更时执行Next宏，完全可以通过对事件传入的参数做判断实现，无需覆盖参数值。

初始代码报错原因 #

你之前的代码错误在于：

• Sh = "main"：Sh是事件传入的Worksheet对象，不能直接赋值字符串；且这里逻辑应该是判断当前触发事件的工作表是否为"main"，而非重新赋值。
• Target = Sh.Range("B:B")：Target是事件传入的Range对象，代表触发变更的单元格范围，不能直接赋值；逻辑应该是判断Target是否落在B列范围内，而非覆盖它。

正确实现代码 #

将以下代码放入ThisWorkbook模块中：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 禁用事件防止循环触发（若Next宏修改单元格会再次触发事件）
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 确保出错时恢复事件
    
    ' 判断条件：当前工作表是"main"，且变更区域与B列有交集
    If Sh.Name = "main" And Not Intersect(Target, Sh.Range("B:B")) Is Nothing Then
        Next ' 执行目标宏（VBA中调用无参子过程无需括号）
    End If

Cleanup:
    Application.EnableEvents = True ' 恢复事件
End Sub

代码逻辑说明 #

1. 事件触发判断：
   • Sh.Name = "main"：确认触发事件的是目标工作表
   • Not Intersect(Target, Sh.Range("B:B")) Is Nothing：检查变更的单元格范围（Target）是否与B列有重叠，支持批量修改（比如一次性粘贴多个单元格到B列的情况）
2. 事件安全处理：
   • Application.EnableEvents = False：避免Next宏中若有修改单元格的操作时，重复触发SheetChange事件
   • On Error GoTo Cleanup：确保即使代码出错，也能恢复事件启用状态，防止后续事件失效

你第二次尝试代码的问题 #

你第二次的代码中Set Sh = Worksheets("main")和Set Target = Sh.Range("B:B")直接覆盖了事件传入的参数，导致无论哪个单元格变更，都会执行Next宏，失去了判断逻辑。正确的做法是基于传入的参数做条件判断，而非重新赋值。

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