如何导出EXCEL批注

发布网友 发布时间：2022-04-22 06:17

我来回答

共5个回答

热心网友 时间：2023-12-19 02:51

1、首先打开表格，大家可以看见下图表格时已经有批注的

2、单击“显示/隐藏批注”会出现如图所示，这时我们将需要打印时显示批注的全部按照刚刚的步奏操作，把批注全部显示出来。

3、然后单击“页面布局”，之后可以看到有一个“打印标题”选项，单击该选项，单击之后会弹出如图2对话框

4、然后点击左上侧的打印预览

5、进入之后可以看到预览的区域已经将批注显示出来。

热心网友 时间：2023-12-19 02:52

批量导出Excel中的批注只能使用VBA代码来处理。

Excel版本参考：2010

1、ALT+F11，调出VBE编辑器；

2、双击工作表名称，粘贴如下代码：

Sub test1()

On Error Resume Next

For Each cel In Selection

    If Not cel.Comment Is Nothing Then

        i = i + 1

        Cells(i, 1) = cel.Comment.Text

    End If

Next

End Sub

3、按下F5，执行代码；

4、返回工作表，查看效果（批注已全部提取到A列）

热心网友 时间：2023-12-19 02:52

在批注列后插入一列，选取这些批注的单元格，执行以下面的宏代码
Sub Macro1()
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
sCommet = ""
On Error GoTo 0
Next
End If
End Sub

热心网友 时间：2023-12-19 02:53

复制，选择性粘贴，批注
试试看是不是你要的效果

热心网友 时间：2023-12-19 02:54

楼主说的是要批量导出批注，我也想了解，期待高手回答