1、批注在同一列右击文件名称，选择【查看代码】，如图所示：
2、在代码界面输入以下代码，并关闭页面，如图所示：Sub GetComment()For Each cell In Range("稆糨孝汶;D1:D11")cell.Offset(0, 1) = cell.Comment.TextNext cellEnd Sub
3、在菜单栏选择【开发工具】，然后点击【宏】，如图所示：
4、在【宏】弹出框中选择【执行】，此时就会执行刚才输入的代码，该列所有代码将会执行。如图所示：
5、批注不在同一列批注不在同一列时，还执行刚才的代码将会报错，此时需要对该代码进行优化，加入过滤条件。点击【开发工具】并选择【宏】，如图所示：
6、在代码界面输入以下代码，并关闭页面，如图所示：Sub GetComment()For Each cell In Range("稆糨孝汶;D1:D11")If Not cell.Comment Is Nothing Thencell.Offset(0, 1) = cell.Comment.TextEnd IfNext cellEnd Sub
7、输入完毕后，执行该代码，右侧会显示该列所有批注，如该列没有批注则会跳过。，如图所示：
