Question

有没有机会将单行的所有注释都作为数组？所以，我想拥有的是一个方便的方式，在这样的消息框中显示所有评论：

Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
    MsgBox cmt.Text, vbOKOnly
Next cmt

但我找不到任何提示如何处理单行。：（

THX：）

Answer 1

你非常非常接近......

如果您想在单独的MsgBox(es)中显示所有评论（在下面的代码中 - 对于第6行），您可以这样做：

Sub test()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
    'check row in this way...- using if statement-:
    If cmt.Parent.Row = 6 Then
        MsgBox cmt.Text, vbOKOnly
    End If
Next cmt
End Sub

Excel 2010 VBA：获取行的所有注释

1 个答案: