如何把excel中多个单元格的批注批量复制在word上

Question

如题所述

Answer 1

可以试一下以下方法：
1.打开需要处理的Excel工作簿
2.右键点击一个空白的表格的名称，选择“查看代码(V)”
3.在弹出的页面空白处粘贴以下代码。
4.点击运行(或直接按功能键F5)
5.若该页A1单元格为空，则在A1处显示整个工作簿的批注，否则弹出窗口显示。
6.复制A1单元格内容到word，即可。

'******代码开始*****
Sub a()
For Each sh In Sheets
For i = 1 To sh.Comments.Count
s = s & Chr(10) & sh.Comments(i).Text
Next
Next
if [A1] = "" then
[A1]=s
else
msgbox s
end if
End Sub
'******代码结束*****

Answer 2

没有弄明白你的问题的意思