Question

请高手出山帮忙解决个人工作上的问题。EXCEL中如何把批注中的内容批量复制出来？

如图所示，如何把这8个批注，一下子复制B列中去，请高手指点一下，小弟谢了。
是把批注中的内容，批量复制出来,不是复制批注，请正确理解。

Answer 1

在A列插入一空列，这样带批注的A列数据直接移到B列了。

如果A列需要数据可从B列复制过来

不好意思，没看清你要求。如果要把批注内容，需要用宏来实现，具体操作：

创建宏：名称随便，比如“PZ”，然后在代码窗口录入以下代码：

Function PZ(T As Range)

 Application.Volatile True

 PZ = T.Comment.Text

End Function

然后保存好。（如果是2007以上版本的EXCEL，若文件以前未允许宏运行，可能会提示你重新保存为启用宏的文件，注意选择保存成*.xlsm类型）

然后在B列输入相应公式：比如B1：＝PZ（A1），即可把A1单元格批注内容复制显示在B1单元格中。整列的话下拉即可。

你难道不是想如下图这样吗？

Answer 2

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 3

选中带批注的8个单元格直接复制到b1,再把内容删除批注就留下了即可啊