EXCEL表格中批注如何导出

作者：佚名更新日期：2025-06-10

　　方式：

　　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

　　End Sub

　　3、按下F5，执行代码；

　　4、返回工作表，查看效果（批注已全部提取到A列）

可以用打印显示在表格以后做。
文件--页面设置--工作表标签中，把批注选择为“工作表末尾”。
然后看打印预览，在表的最后就是批注内容了。
如果需要导出，先打印到PDF文件，然后用个文字识别工具导出就可以了。

想拿什么工具导，导到哪里去？

如何将excel里大批量的批注内容导出~

简单方法：
在视图中选择显示批注，
然后在“页面设置”中，“工作表”---“打印”---“批注”选“工作表末尾”。
打印预览，查看批注的打印是在第几页，在打印窗口选择打印批注所在的页数。

通过打印就可以有多种方法导出：
1、装个文本打印机Generic / Text Only，打印时选此打印机，并选择打印到文本，但这个打印机的中文支持有问题。
2、装个PDFCreator，可以打印成PDF，然后打开PDF，选择粘贴到word、excel都可以。

宏：
Sub 导出批注()
Set cmt = ActiveSheet.Comments
For Each c In cmt
allcmt = allcmt & c.Text
Next
MsgBox (allcmt)
End Sub

1、首先打开表格，大家可以看见下图表格时已经有批注的

2、单击“显示/隐藏批注”会出现如图所示，这时我们将需要打印时显示批注的全部按照刚刚的步奏操作，把批注全部显示出来。

3、然后单击“页面布局”，之后可以看到有一个“打印标题”选项，单击该选项，单击之后会弹出如图2对话框

4、然后点击左上侧的打印预览

5、进入之后可以看到预览的区域已经将批注显示出来。