判断单元格区域是否有批注

在 Excel VBA 中，我们可以使用 Range 对象的 Comment 属性来判断单元格区域是否有批注，如果指定的单元格不存在批注，则该属性返回 Nothing。

示例

以下示例代码通过 For Each 循环遍历单元格区域 A1:D5 的每个单元格是否有批注，并在【立即窗口】中输出每个单元格是否有批注的信息。

Sub CheckCellsWithComments()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要检查的单元格区域
    Set rng = Range("A1:D5")
    
    ' 遍历每个单元格并检查是否有批注
    For Each cell In rng
        If cell.Comment Is Nothing Then
            Debug.Print cell.Address & " 没有批注"
        Else
            Debug.Print cell.Address & " 有批注：" & cell.Comment.Text
        End If
    Next cell
End Sub