如何让Excel VBA单元格批注代码仅在指定工作表（Sheet3）运行？

嘿，我懂你遇到的这个糟心事儿——明明把代码绑定在Sheet3的模块里，结果整个工作簿的工作表都跟着受影响。别着急，问题其实出在几个关键的引用上，咱们来把它改对：

问题根源 #

你代码里用了ActiveSheet和Application.Range：

• ActiveSheet指的是当前正在激活的工作表，不管你是不是在Sheet3，只要触发Worksheet_Calculate事件，它就会操作当前活跃的表
• Application.Range同样会默认使用当前活跃工作表的范围，这就导致代码跑到其他工作表上执行了

修改后的代码 #

把这两个引用换成工作表模块专属的Me（代表当前模块对应的Sheet3），就能严格限定操作范围了：

Private Sub Worksheet_Calculate()
    ' 用Me代替ActiveSheet，仅操作当前工作表（Sheet3）的已用区域
    Me.UsedRange.ClearComments
    Dim targetRng As Range, commentSrcRng As Range
    Dim strPrefix As String 'string Prefix
    ' 用Me.Range代替Application.Range，限定范围在Sheet3内
    Set targetRng = Me.Range("D16,D18,D20,D22,D24,D26,D28,D30,D32,D34,D36,D38")
    Set commentSrcRng = targetRng.Offset(0, 1)
    Dim cel As Range
    Dim i As Long
    i = 1
    For Each cel In targetRng
        If cel <> "" Then
            cel.AddComment
            cel.Comment.Visible = False
            cel.Comment.Shape.TextFrame.AutoSize = True
            cel.Comment.Text strPrefix & commentSrcRng.Cells(i)
        End If
        i = i + 2
    Next
End Sub

额外小提醒 #

• 确认代码确实保存在Sheet3的代码模块里（右键Sheet3标签→查看代码，粘贴在这里，不要放在ThisWorkbook或标准模块）
• 另外注意循环里的i = i + 2：如果你的commentSrcRng是每个目标单元格右侧紧邻的单元格，那应该改成i = i + 1才会一一对应，不过看你说代码运行基本正常，应该是你的数据源有特殊的隔行逻辑，这个根据你的实际需求调整就好

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