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

step2：单击”插入-模块“，在新的窗口内输入以下代码：

Sub 批注()

Dim i, myrow As Integer

myrow = .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 = .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：最后，得到的结果如下所示。