使用VBA实现Excel仅F9:N46范围自动更新批注的报错问题求助

问题原因 #

当编辑的单元格不在F9:N46范围内时，Intersect(Target, Range("F9:N46")) 会返回空对象（Nothing），直接对空对象执行For Each遍历就会触发运行时错误。

修改后代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Dim targetRng As Range
    
    ' 先判断编辑区域和目标范围是否有交集，无交集直接退出
    Set targetRng = Intersect(Target, Range("F9:N46"))
    If targetRng Is Nothing Then Exit Sub
    
    For Each c In targetRng
        If c.Comment Is Nothing And c.Value <> "" Then
            With c.AddComment
                .Visible = False
                .Text Application.UserName & ":" & Date & " - " & c.Value
            End With
    
        ElseIf Not c.Comment Is Nothing And c.Value <> "" Then
            c.Comment.Text Application.UserName & ":" & Date & " - " & c.Value & vbNewLine & c.Comment.Text
        ' 可选补充：单元格清空时自动删除批注
        ' ElseIf c.Value = "" And Not c.Comment Is Nothing Then
        '    c.Comment.Delete
        End If
    Next    
End Sub

改动说明 #

• 新增了交集非空判断逻辑，只要编辑的单元格不在F9:N46范围内，就直接退出事件过程，不会执行后续逻辑，从根源避免了报错。
• 完全保留了原有批注新增、历史内容追加的功能逻辑，原有使用体验不受影响。
• 可选补充的注释代码可以实现单元格内容清空时自动删除对应批注，有需要可以取消注释使用。

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