如何通过VBA代码批量添加批注

1、step1：按住Alt+F11，调出“开发工具”菜单栏，点击“Visual Basic",弹出”Microsoft Visual Basic“。

2、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 NextEnd Sub

3、step3：返回需要添加批注的工作表，单击”宏“，弹出如下对话框，选择相应的宏代码，再确定即可。

4、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 NextEnd Sub

5、step5：最后，得到的结果如下所示。