批量添加批注

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