使用Excel VBA添加批注时触发‘Object variable or With block variable not set’错误

错误原因 #

报错行Range("J2").Comment.Visible = False触发问题的核心是单元格J2的Comment对象未被正确初始化：

• 当J2单元格已存在批注时，AddComment方法会执行失败，导致Range("J2").Comment返回Nothing，此时访问其Visible属性就会触发“未设置对象变量”的错误。
• 录制宏生成的代码未处理“单元格已有批注”的场景，这是录制宏代码的典型局限性。

修复方案 #

方案1：先清理已有批注再添加新内容 #

修改Macro1代码，先判断单元格是否存在批注，存在则删除后再执行添加操作：

Sub Macro1()
    Dim targetCell As Range
    Set targetCell = Range("J2")
    
    ' 检查并删除已有批注
    If Not targetCell.Comment Is Nothing Then
        targetCell.Comment.Delete
    End If
    
    ' 添加新批注并设置属性
    targetCell.AddComment
    targetCell.Comment.Visible = False
    targetCell.Comment.Text Text:="qsd"
    
    Range("L8").Select ' 若无需选中单元格可删除此行
End Sub

方案2：复用已有批注仅更新内容 #

如果希望保留原有批注框架，仅修改批注文本，可使用以下代码：

Sub Macro1()
    Dim targetCell As Range
    Set targetCell = Range("J2")
    
    ' 批注不存在则创建，存在则直接修改内容
    If targetCell.Comment Is Nothing Then
        targetCell.AddComment
    End If
    
    targetCell.Comment.Visible = False
    targetCell.Comment.Text Text:="qsd"
    
    Range("L8").Select ' 若无需选中单元格可删除此行
End Sub

额外优化：移除冗余的Select操作 #

录制宏会生成大量无意义的Select语句，既降低代码效率又易引发错误，可直接操作单元格对象无需选中：

Sub Macro1()
    Dim targetCell As Range
    Set targetCell = Range("J2")
    
    If targetCell.Comment Is Nothing Then
        targetCell.AddComment
    End If
    
    ' 使用With语句简化代码
    With targetCell.Comment
        .Visible = False
        .Text Text:="qsd"
    End With
    
    ' 若无需选中L8单元格可删除此行
    Range("L8").Select
End Sub

内容的提问来源于stack exchange，提问作者FluidMechanics Potential Flows