返回一个 Comment 对象，该对象代表前一条批注。
语法
表达式。以前
表达 返回 Comment 对象的表达式。
返回值
评论
备注
本方法仅对单张工作表有效。 对工作表中第一条批注使用本方法可返回 Null（不是前一张工作表的最后一条批注）。
示例
此示例删除每秒钟的注释，使用 Previous 方法导航。
注意
在没有现有注释的新工作簿中测试此示例。 若要清除工作簿中的所有批注，请在“即时”窗格中使用 Selection.SpecialCells(xlCellTypeComments).delete 。
'Sets up the comments
For xNum = 1 To 10
Range("A" & xNum).AddComment
Range("A" & xNum).Comment.Text Text:="Comment " & xNum
Next
MsgBox "Comments created... A1:A10"
'Deletes every second comment in the A1:A10 range
For yNum = 10 To 1 Step -2
Range("A" & yNum).Comment.Previous.Shape.Select True
Selection.Delete
Next
MsgBox "Deleted every second comment"
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。