Excel VBA线程注释检测报错咨询：对象变量或With块变量未设置

这个报错的原因其实很直观——当你遍历的单元格**没有线程注释（CommentThreaded）**时，R.CommentThreaded会返回Nothing（空对象），这时候直接去访问它的.Text属性，就会触发“对象未设置”的错误。

咱们来拆解下两段代码的差异：

第一段代码的问题 #

这段代码默认假设所有遍历到的单元格都存在线程注释，但实际场景中肯定会有没有注释的单元格。一旦遇到这类单元格，R.CommentThreaded就是空的，调用.Text自然会抛出错误：

Sub test()
 Dim R As Range
 Set R = Range("E10:E205")
 For Each R In R.Cells
  If R.CommentThreaded.Text = "3" Then ' 无注释时，此处触发错误
   MsgBox (R.Address)
  End If
 Next R
End Sub

第二段代码为什么能正常运行 #

这段代码多了一层关键判断：If Not R.CommentThreaded Is Nothing Then。它先确认当前单元格确实存在线程注释，之后再去访问.Text属性，就不会出现空对象调用的问题了：

Sub test()
 Dim R As Range
 Set R = Range("E10:E205")
 For Each R In R.Cells
  If Not R.CommentThreaded Is Nothing Then ' 先验证注释存在性
   If R.CommentThreaded.Text = "3" Then
    MsgBox (R.Address)
   End If
  End If
 Next R
End Sub

额外优化建议 #

你遍历循环时用了和外层范围变量同名的R，虽然VBA不会报错，但很容易造成代码混淆。建议改成不同的变量名，提升可读性：

Sub test()
 Dim targetRange As Range
 Dim cell As Range
 Set targetRange = Range("E10:E205")
 For Each cell In targetRange.Cells
  If Not cell.CommentThreaded Is Nothing Then
   If cell.CommentThreaded.Text = "3" Then
    MsgBox (cell.Address)
   End If
  End If
 Next cell
End Sub

内容的提问来源于stack exchange，提问作者m4.diaa