如何通过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

    Next

End 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

    Next

End Sub

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