从Excel导出评论

有没有办法从excel表单导出注释以及单元格的值？

Answer 1

下面是一个返回工作表中所有注释的函数示例：

Sub CreateCommentsSummary() Dim rgComments As Range, rgCell As Range, rgOutput As Range ' get all cells with comment Set rgComments = ActiveSheet.Cells.SpecialCells(xlCellTypeComments) ' get cell reference where user want to place the summary Set rgOutput = _ Application.InputBox(Prompt:="Select cell where you want to put the comments summary", _ Title:="Comments Summary", Type:=8) ' read each cell with comment and build the summary For Each rgCell In rgComments rgOutput.Range("A1") = rgCell.Address ' print cell address rgOutput.Offset(0, 1).Range("A1") = rgCell.Value ' print cell value rgOutput.Offset(0, 2).Range("A1") = rgCell.comment.Text 'print cell comment text Set rgOutput = rgOutput.Offset(1, 0) Next rgCell End Sub