欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页

批量导出批注

程序员文章站 2022-03-12 08:21:09
...
今天一同事问如何导出批注,之前也没做过,搜索了一下。
发现用宏能解决问题。
但是,上面说的比较概略。
我说的详细一点,大家也能省点时间。
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.执行完毕后,会在后面一列,列出所有的批出信息。
相关标签: Excel