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

发布网友发布时间：2022-04-23 13:46

我来回答

共5个回答

热心网友时间：2023-05-23 18:31

用万能的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

热心网友时间：2023-05-23 18:31

写一个函数宏
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.运行宏

热心网友时间：2023-05-23 18:32

选中此单元格，右键，选择“编辑批注”，那时就可以选中批注的内容，复制即可追问谢谢！不过数据量比较大，有没有批量复制的办法？

追答没有哦！

热心网友时间：2023-05-23 18:32

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

热心网友时间：2023-05-23 18:33

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

把你的邮箱给我，我发给你
追问313228360@qq.com