在EXCEL表中，如何将一整列批注的内容复制到另外的单元格中...-excel批注 批量复制,excel批量复制批注到另

用万能的VBA可以解决。copy

举例说明。

例如有表格如图：

编制代码，将A、B、C三列的数值写入知D列的批注中。代码如下：

Sub 插入批注()

Dim I As Integer

Dim S As String

I = 2

Do While Cells(I, 1) <> ""

S = Cells(I, 1) & Cells(I, 2) & Cells(I, 3)

Cells(I, 4).Select

ActiveCell.AddComment

ActiveCell.Comment.Text Text:=S

I = I + 1

Loop

End Sub

执行代道码后如图：

选择知这一列，复制，再选定需要复制列，道右键，选择性粘贴，选“批注”
---
补充:
Sub test()
Dim rng As Range
For Each rng In Range("A:A") '按实际需要更改列号回
If Not rng.Comment Is Nothing Then rng.Offset(0, 1) = rng.Comment.Text
Next
End Sub
工具-宏-VB编辑器答,插入-模块,将下面的程序复制.再执行.

复制有批注的单元格，在另一单元格，单击鼠标右键，“选择性粘贴”为“批注”，确定，即可。

 

详见附图

复制——右击鼠标，选择性粘贴——选中批注