快速提取批注

nnsea

文件中用到的宏代码如下：

Public Sub 提取批注()

Dim x As Range

For Each x In Cells.SpecialCells(xlCellTypeComments)

    x.Offset(, 1) = x.Comment.Text

Next

End Sub