如何快速定位公式单元格区域

最新推荐文章于 2022-07-23 12:15:58 发布

taller_2000

最新推荐文章于 2022-07-23 12:15:58 发布

阅读量1k

点赞数

分类专栏：单元格 VBA Excel 文章标签：公式定位单元格 SpecialCells Interior

本文链接：https://blog.csdn.net/taller_2000/article/details/117212273

版权

286 篇文章 87 订阅

订阅专栏

162 篇文章 16 订阅

订阅专栏

32 篇文章 1 订阅

订阅专栏

本文介绍了如何使用VBA（Visual Basic for Applications）在Excel中快速设置含有公式的单元格背景色。通过两种不同的代码示例，展示了如何遍历单元格区域和利用SpecialCells方法定位并改变含有公式的单元格颜色，提高工作效率。

摘要由CSDN通过智能技术生成

实例需求：如下数据表格中，E列和第6行为求和公式，现需要将红色框中的8个单元格区域设置背景色。
在这里插入图片描述
这个需求不算复杂，变量单元格就可以实现，示例代码如下。

Sub demo1()
    For Each c In [a1].CurrentRegion
        If c.HasFormula Then c.Interior.Color = vbGreen
    Next
End Sub

运行代码结果如下图所示。
在这里插入图片描述
【代码解析】
使用For…Next循环遍历单元格区域，[a1].CurrentRegion取得表格区域。
如果单元格有公式，则HasFormula属性返回值为True，进而设置单元格背景色为绿色。

如果数据表中单元格较多，那么循环遍历的方式，效率会比较低，其实可以用更简单的方法获取已经设置公式的单元格区域。示例代码如下。

Sub demo2()
    [a1].CurrentRegion.SpecialCells(xlCellTypeFormulas, 23).Interior.Color = vbYellow
End Sub

运行代码结果如下图所示。
在这里插入图片描述
【代码解析】
单行代码将可以实现同样的效果，SpecialCells(xlCellTypeFormulas, 23)可以轻松定位有公式的单元格区域，设置单元格背景色的代码与上述过程类似。

关注

专栏目录