批量导出批注

今天一同事问如何导出批注，之前也没做过，搜索了一下。
发现用宏能解决问题。
但是，上面说的比较概略。
我说的详细一点，大家也能省点时间。
1.在批出的列添加一列用来存储导出的批出信息。
2.视图-->宏-->查看宏-->输入宏名称test，创建宏，并打开宏编辑文件。
3.将下面的代码覆盖到宏的内容信息，保存并关闭。

Sub test()
Dim iCell As Excel.Range
Dim iData As Excel.Range
Dim sComment As String

Const iColOffset As Integer = 1

If TypeName(Selection) = "Range" Then
   Set iData = Intersect(Selection, ActiveSheet.UsedRange)
   For Each iCell In iData.Cells
       On Error Resume Next
       sComment = iCell.Comment.Text
       If Len(sComment) > 0 Then
          iCell.Offset(, iColOffset).Value = sComment
   End If
   sComment = ""
   On Error GoTo 0
   Next
   End If
End Sub

4.选中所有的带批注的内容，在excel的视图-->宏-->查看宏-->执行，来执行宏。
5.执行完毕后，会在后面一列，列出所有的批出信息。