批量添加批注
如图，由于工作实际需要，希望在备注框内添加批注。但如果手动添加批注的话，在表格特别多的情况下这无疑会导致工作效率比较低下，因此，不妨尝试用excel内置语言来批量生成批注的方法。
文章图片
step1：按住Alt+F11，调出“开发工具”菜单栏，点击“Visual Basic",弹出”Microsoft Visual Basic“。
文章图片
文章图片
step2：单击”插入-模块“，在新的窗口内输入以下代码：
Sub 批注()
Dim i, myrow As Integer
myrow = [a65536].End(xlUp).Row
For i = 2 To myrow
Cells(i, 4).ClearComments
Cells(i, 4).AddComment
Cells(i, 4).Comment.Text Text:="手机号:" & Cells(i, 3).Value
【批量添加批注】Cells(i, 4).Comment.Visible = False
Next
End Sub
step3：返回需要添加批注的工作表，单击”宏“，弹出如下对话框，选择相应的宏代码，再确定即可。
文章图片
step4：考虑到执行的对象一样，因此，采用”with……end with“的形式简化以上代码。代码简化形式如下：
Sub 批注()
Dim i, pizhu As Integer
pizhu = [a5200].End(xlUp).Row
For i = 2 To pizhu
With Cells(i, 4)
.ClearComments
.AddComment
.Comment.Text Text:="手机号:" & Cells(i, 3).Value
.Comment.Visible = False
End With
Next
End Sub
step5：最后，得到的结果如下所示。
文章图片
推荐阅读
- 编写字典程序
- 怎么将桌面上的CAD图纸添加到软件中进行BMP格式转换（）
- 2147483647与int型
- 怎样把一个字典的数据添加到另一个字典中（）
- 培养习惯的倦怠期可以添加变化～74
- Arcgis根据经纬度批量提取属性值
- 如何在Kubernetes|如何在Kubernetes 里添加自定义的 API 对象（一）
- 批量获取win10的聚焦锁屏图片
- 2020-08-13|2020-08-13 同花顺证书批量下载
- Ubuntu|Ubuntu 下添加开机启动脚本