vba - 有没有办法在Excel中检索注释的单元格地址？

Question

我正在编写一个简短的宏来操作 Excel 中的一些注释。如果有一种方法可以找出事件工作表中注释的单元格地址/位置，那将会很有用 - 有没有办法使用 Excel 中的注释对象来执行此操作？或者如果失败了，有什么聪明的解决方法可以给我相同的结果吗？

我想要实现的目标的一些说明性伪代码:

dim wb as Workbook
dim ws as worksheet
dim cmt as Comment

set wb = ActiveWorkbook

for each ws in wb.sheets
    for each cmt in ws.comments
        debug.print cmt.address ' Pseudo code
    next cmt
next ws

Answer 1

尝试:

Dim wb As Workbook
Dim ws As Worksheet
Dim cmt As Comment

Set wb = ActiveWorkbook

For Each ws In wb.Sheets
    For Each cmt In ws.Comments
        'Debug.Print cmt.Address ' Pseudo code
        Debug.Print cmt.Parent.Address
    Next cmt
Next ws

信息:.parent 返回注释对象的父对象，在本例中为单元格。