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