前景提要 昨天我们也是学习了如何用Excel VBA的方式批量给单元格增加批注,通过这个方法,我们能够在短时间之内快速实现对单元格增加批注,并且非常的灵活,可以按照指定单元格内容增加批注,也可以搭配一些自己想要输入的固定搭配,相对于传统的右键一个个的拆入批注,确实是高效了很多。 那么既然成功的批量增加了那么多批注,是否可以相应的批量删除这些单元格的批注呢?毕竟批注,有时候并不对外展示的 既然学会了批量增加单元格的批注,那么批量删除单元格的批注,不是应该手到擒来的嘛? 场景说明 这是我们上节的作品,成功的给所有的单元格增加了批注,今天我们来尝试下删除单元的批注,还是利用这个现成的数据源 代码区 Sub depizhu() Dim rng As Range, a As Range Set rng = Application.InputBox("请选择单元格区域", "需要删除批注的单元格区域", , , , , , 8) For Each a In rng a.ClearComments Next a End Sub 代码干净利落的将所选的单元格区域内的批注,都全部删除了 这里有小伙伴们可能会想,之前增加单元格批注的时候,我们需要首先判断单元格是否存在批注 那么现在删除单元格批注,是不是也需要判断一次呢?(很明显我的代码中没有判断) 我们来实际操作下,看看是否需要判断。 从上面的动图中可以看到,我们先手动删除了几个批注之后,然后我们再次利用我们的代码执行删除批注的操作 代码很成功,并没有任何的报错,而且也成功的删除了批注 这说明,删除批注这个功能,我们是不需要先判断单元格中是否存在批注的 代码解析 今天的代码解析,就非常的简单了。 单元格的批注的删除,如何实现 a.ClearComments so easy 是不是! |
|