如何在Excel中批量提取批注内容？

1、批注在同一列

右击文件名称，选择【查看代码】，如图所示：

2、在代码界面输入以下代码，并关闭页面，如图所示：

Sub GetComment()

For Each cell In Range("D1:D11")

cell.Offset(0, 1) = cell.Comment.Text

Next cell

End Sub

3、在菜单栏选择【开发工具】，然后点击【宏】，如图所示：

4、在【宏】弹出框中选择【执行】，此时就会执行刚才输入的代码，该列所有代码将会执行。如图所示：

5、批注不在同一列

批注不在同一列时，还执行刚才的代码将会报错，此时需要对该代码进行优化，加入过滤条件。

点击【开发工具】并选择【宏】，如图所示：

6、在代码界面输入以下代码，并关闭页面，如图所示：

Sub GetComment()

For Each cell In Range("D1:D11")

If Not cell.Comment Is Nothing Then

cell.Offset(0, 1) = cell.Comment.Text

End If

Next cell

End Sub

7、输入完毕后，执行该代码，右侧会显示该列所有批注，如该列没有批注则会跳过。，如图所示：