EXCEL多个单元格内容如何复制到一个批注里

发布网友发布时间：2022-05-24 05:00

我来回答

共3个回答

热心网友时间：2024-12-01 17:00

用万能的VBA可以解决。

举例说明。

例如有表格如图：

编制代码，将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

执行代码后如图：

热心网友时间：2024-12-01 17:01

选择这一列，复制，再选定需要复制列，右键，选择性粘贴，选“批注”
---
补充:
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编辑器,插入-模块,将下面的程序复制.再执行.

热心网友时间：2024-12-01 17:01

假定你多个单元格内容分别在A2，B2，C2，D2；
假定批注为E2，则在E2设公式：=A2&B2&C2&D2
但如果需要在不同单元格内容间加逗号，则应写成E2：=A2&","&B2&","&C2&","&D2