Range("a1").AddComment "批注内容"
当然，添加前最好判断是否已经有批注，如果已经有了，你在添加就会出错。
On Error Resume Next
Range("A1").Comment.Delete '删除批注，On Error Resume Next是为了防止原本没有批注而导致程序崩溃
Range("A1").AddComment "Comment1" ‘添加批注
range("a:a").addcomment text="批注"
自己录制一个宏，看看就会了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024