方式:
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文件,然后用个文字识别工具导出就可以了。
想拿什么工具导,导到哪里去?