WPS表格中怎样批量地把批注的内容导出来，请教了。

Question

如题所述

Answer 1

提取批注内容填写到单元格中

Sub 取批注()
Dim myrange, myrange1 As Range
Dim mycomment As Comment
For i = 1 To 100
Set myrange = Cells(i, 1)
Set myrange1 = Cells(i, 2)
Set mycomment = myrange.Comment
If mycomment Is Nothing Then
myrange1 = " "
Else
myrange1 = mycomment.Text
End If
Next i
Set myrange = Nothing
Set mycomment = Nothing
End Sub