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

批注请教表格中批量导出

免责声明：本网信息来自于互联网，目的在于传递更多信息，并不代表本网赞同其观点。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，并请自行核实相关内容。本站不承担此类作品侵权行为的直接责任及连带责任。如若本网有任何内容侵犯您的权益，请及时联系我们，本站将会在24小时内处理完毕。