1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub auto_close()Application.CommandBars(1).Reset '关闭工作簿时恢复菜单End SubSub auto_open() '开启工作簿时生成菜单 Dim Menu As CommandBarControl, SubMenu As CommandBarControl Set SubMenu=Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , 1) SubMenu.Caption="添加批注(&C)" With SubMenu.Controls.Add(msoControlButton, 1, , , True) .Caption="批量添加批注(&Batch)" .OnAction="批注" .Style=msoButtonIconAndCaption .FaceId=484 End With Application.OnKey "^w", "生成批注" End SubSub生成批注() '添加批注的主程序On Error Resume NextDim cell As Range, texts As Stringtexts=Application.InputBox("请输入前缀：", "批注前缀", "", , , , , 3)'允许输入数字和文本，也可以省略For Each cell In SelectionIf cell.Offset(0, 1) <> "" Then '忽略空白 cell.AddComment '添加批注 cell.Comment.Text Text:=texts & cell.Offset(0, 1).Text '指定批注内容cell.Comment.Shape.TextFrame.AutoSize=True '让批注自动缩放 End IfNextEnd SubSub批注() '通过快捷键执行添加批注Application.SendKeys "^w" '快捷键为Ctrl+WEnd Sub
5、选中区域中的文字，如钽吟篑瑜A3:A10，单击菜单【加载项】\【添加批注】\【批量添加批注】，程序弹出“批注前缀”对话框，在文本框中输入“成绩：”，如图
