提取批bai注内du容填写zhi到单dao元格版中
Sub 取批权注()
Dim myrange, myrange1 As Range
Dim mycomment As Comment
For i = 1 To 100
Set myrange = Cells(i, 1)
Set myrange1 = Cells(i, 2)
Set mycomment = myrange.Comment
If mycomment Is Nothing Then
myrange1 = " "
Else
myrange1 = mycomment.Text
End If
Next i
Set myrange = Nothing
Set mycomment = Nothing
End Sub
1、首先打开表格,大家可以看见下图表格时已经有批注的
2、单击“显示/隐藏批注”会出现如图所示,这时我们将需要打印时显示批注的全部按照刚刚的步奏操作,把批注全部显示出来。
3、然后单击“页面布局”,之后可以看到有一个“打印标题”选项,单击该选项,单击之后会弹出如图2对话框
4、然后点击左上侧的打印预览
5、进入之后可以看到预览的区域已经将批注显示出来。