批量添加批注批量添加批注

如图，由于工作实际需要，希望在备注框内添加批注。但如果手动添加批注的话，在表格特别多的情况下这无疑会导致工作效率比较低下，因此，不妨尝试用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：最后，得到的结果如下所示。

文章图片

批量添加批注

推荐阅读

永嘉风光永嘉哪里好玩

劳动是意思相近的词吗快乐是意思相近的词语吗

没开封茶叶会不会过期

迷你世界手机版怎么去竹桃林桃林地形码迷你世界分享

画图工具怎么手绘一款简笔画蛋糕？画图工具手绘简笔画蛋糕的方法

win10epic遭遇了网络连接问题解决方法

荷包蛋面条怎么做荷包蛋面条怎么做视频

4s店样品车可以买吗现在 4s店样品车可以买吗

汽车新四化是什么谈谈汽车新四化

聪明的梅花鹿告诉了我们什么道理一只梅花鹿告诉我们什么道理

周公解梦梦见骨灰盒是什么意思梦见骨灰盒好不好

皮肤瘙痒冷敷多久最好

毛衣可以和其他衣服一起用洗衣机洗吗

十一岁的男孩怎么教育

win101909声卡没声音解决方法

3dmax怎么做雪景关于3DMAX制作雪景的详细操作

品牌规划的流程

手机里库乐队删了怎么办手机库乐队没了怎么办

准备从事棋牌游戏人员必读

审议不通过怎么写会议纪要如何写会议纪要