方式：
1、ALT+F11，调出VBE编辑器；
2、双击工作表名称，粘贴如下代码：
Sub test1()
On Error Resume Next
For Each cel In Selection
If Not cel.Comment Is Nothing Then
i = i + 1
Cells(i, 1) = cel.Comment.Text
End If
Next
End Sub
3、按下F5，执行代码；
4、返回工作表，查看效果（批注已全部提取到A列）
可以用打印显示在表格以后做。
文件--页面设置--工作表标签中，把批注选择为“工作表末尾”。
然后看打印预览，在表的最后就是批注内容了。
如果需要导出，先打印到PDF文件，然后用个文字识别工具导出就可以了。
想拿什么工具导，导到哪里去？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024