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

1、如图所示下列数据中，如果我们需要在每条记录上增添一个批注，内容是【人事部moon】，并且要清楚的显示每条批注。我们首先要将vba代码窗口调出来。点击【开发工具】/【visual basic】，点击【视图】/【代码窗口】，就调出了vba代码窗口。

2、一、批量添加批注的vba代码：将下列代码复制到代码区：Sub comment的的应用()For Ea艘早祓胂ch rng In Range("a1:a16")With rngIf .comment Is Nothing Then.AddComment "人事部moon".comment.Visible = TrueEnd IfEnd WithNextEnd Sub

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

4、二、批量删除批注的vba代码：将下列代码复制到代码区：Sub 删除批注()For Each rng In Range("a1:a16")If Not rng.comment Is Nothing Thenrng.ClearCommentsEnd IfNextEnd Sub

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

6、三、有条件的添加批注：如果我们需要对所添加的批注设置条件：例如对于大于150的数据我们要添加上批注，内容是【优秀】。将下列代码复制到代码区： Sub 遄噌缱蹑批量添加条件批注()For Each rng In Range("a1:a16")rng.ClearCommentsIf rng > 150 Thenrng.AddComment "优秀"End IfNextEnd Sub

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