excel如何把备注里的内容复制到单元格?

要批量复制的
2025-01-01 01:08:44
推荐回答(5个)
回答1:

用万能的VBA可以实现。

例如有表格,如图:

代码如下:

Sub 插入批注()

Dim I As Integer

Dim S As String

I = 2

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

S = "业务员:" & Cells(I, 3) & Chr(10) & "产品名称:" & Cells(I, 4) & Chr(10) & "单价:" & Cells(I, 7)

Cells(I, 1).AddComment

Cells(I, 1).Comment.Visible = False

Cells(I, 1).Comment.Text Text:=S

I = I + 1

Loop

End Sub

回答2:

写一个函数宏
1. Alt + F11,插入“模块”
2.将下列脚本粘进去
Sub test()
Dim rng As Range
For Each rng In Range("A1:B10") '按实际需要更改列号
If Not rng.comment Is Nothing Then rng.Offset(0, 5) = rng.comment.Text //结果放在了第一行五列,根据需要修改
Next
End Sub
3.运行宏

回答3:

选中此单元格,右键,选择“编辑批注”,那时就可以选中批注的内容,复制即可

回答4:

1、先看要复制的备注内容有多少
2、选中要放单元格的位置
3、把选中的单元格合并
4、把备注里的东西剪切到已合并的单元格中就OK了

回答5:

已经给你用VBA做好了
另外加上了汇总的功能,还可以分项查询

把你的邮箱给我,我发给你