用万能的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
写一个函数宏
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.运行宏
选中此单元格,右键,选择“编辑批注”,那时就可以选中批注的内容,复制即可
1、先看要复制的备注内容有多少
2、选中要放单元格的位置
3、把选中的单元格合并
4、把备注里的东西剪切到已合并的单元格中就OK了
已经给你用VBA做好了
另外加上了汇总的功能,还可以分项查询
把你的邮箱给我,我发给你