在excel中增加、删除、有条件添加批注的vba代码

1、如图所示下列数据中，如果我们需要在每条记录上增添一个批注，内容是【人事部moon】，并且要清楚的显示每条批注。

我们首先要将vba代码窗口调出来。

点击【开发工具】/【visual  basic】，点击【视图】/【代码窗口】，就调出了vba代码窗口。

2、一、批量添加批注的vba代码：

将下列代码复制到代码区：

Sub comment的的应用()

For Each rng In Range("a1:a16")

With rng

If .comment Is Nothing Then

.AddComment "人事部moon"

.comment.Visible = True

End If

End With

Next

End Sub

3、点击如图所示的代码运行按钮，就可以看到，所示区域已经按我们需要添加上批注了，并且这些批注是显示可见的。

4、二、批量删除批注的vba代码：

将下列代码复制到代码区：

Sub 删除批注()

 For Each rng In Range("a1:a16")

 If Not rng.comment Is Nothing Then

 rng.ClearComments

 End If

 Next

 End Sub

5、点击如图所示的代码运行按钮，就可以看到，所示区域的批注已经被删除掉了。

6、三、有条件的添加批注：

如果我们需要对所添加的批注设置条件：例如对于大于150的数据我们要添加上批注，内容是【优秀】。

将下列代码复制到代码区：

  Sub 批量添加条件批注()

 For Each rng In Range("a1:a16")

 rng.ClearComments

 If rng > 150 Then

 rng.AddComment "优秀"

 End If

 Next

 End Sub

7、点击如图所示的代码运行按钮，就可以看到，所示区域的数据，大于150的数据已经添加上批注【优秀】了。