批量导出批注
程序员文章站
2022-03-12 08:21:09
...
今天一同事问如何导出批注,之前也没做过,搜索了一下。
发现用宏能解决问题。
但是,上面说的比较概略。
我说的详细一点,大家也能省点时间。
1.在批出的列添加一列用来存储导出的批出信息。
2.视图-->宏-->查看宏-->输入宏名称test,创建宏,并打开宏编辑文件。
3.将下面的代码覆盖到宏的内容信息,保存并关闭。
4.选中所有的带批注的内容,在excel的视图-->宏-->查看宏-->执行,来执行宏。
5.执行完毕后,会在后面一列,列出所有的批出信息。
发现用宏能解决问题。
但是,上面说的比较概略。
我说的详细一点,大家也能省点时间。
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.执行完毕后,会在后面一列,列出所有的批出信息。
上一篇: 怎么用CSS3做出灯光照射显示文字动画