wps中批注提取(WPS表格中批量地把批注的内容导出来,请教了)

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

提取批bai注内du容填写zhi到单dao元格版中

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