VBA，如何依据单元格的内容自动为单元格加入批注？

Question

如题所述

Answer 1

第一步：插入批注－复制批注－选择筛选后的单位格
第二步：编辑－定位－可见单元格
第三步：选择性粘贴

Answer 2

Sub 批注()
Range("A1").AddComment
Range("A1").Comment.Visible = True
Range("A1").Comment.Text Text:=Range("A1") '批注内容
End Sub追问

比如说A1单元格内为电话号码，如何可以根据这个号码在批注中显示电话的主人呢？比如说张三？

追答

需要做一个电话号码和主人的对照表，比如A1是电话号码，B1是主人：
Range("A1").Comment.Text Text:=Range("B1") '批注内容

追问

就不可以这个B1的内容在其他的地方，或者其他的工作簿中吗？

追答

当然可以，只有有可以找到就行

本回答被提问者采纳