如何查找并高亮Excel中公式包含指定常量的所有单元格？

方案1：自动触发的条件格式方案（推荐） #

该方案可以实现搜索框输入内容后，自动实时高亮匹配的公式单元格，无需手动执行操作。

1. 首先创建自定义VBA函数
   按Alt+F11打开VBA编辑器，右键点击当前工作簿名称，选择「插入」-「模块」，在弹出的代码窗口中粘贴以下代码：

   Function FormulaContains(searchText As String, targetRng As Range) As Boolean
       ' 忽略大小写匹配公式中的指定文本
       FormulaContains = InStr(1, targetRng.Formula, searchText, vbTextCompare) > 0
   End Function
   

   关闭VBA编辑器即可。
2. 设置专用搜索单元格
   选择工作表中任意空白单元格作为搜索框，比如选中B1，可在旁边单元格标注「公式搜索框」方便识别。
3. 配置条件格式规则
   • 选中你需要检测的所有单元格区域（如果要检测整个工作表的所有公式单元格，可直接点击工作表左上角的全选按钮）
   • 点击「开始」选项卡-「条件格式」-「新建规则」，选择「使用公式确定要设置格式的单元格」
   • 在公式输入框中填入：=FormulaContains($B$1, INDIRECT(ADDRESS(ROW(), COLUMN()))) （如果你的搜索框不是B1，把$B$1改成你对应的搜索单元格地址即可）
   • 点击「格式」，设置你需要的高亮效果（比如黄色填充、红色字体等），依次点击确定保存规则即可。

使用效果：在搜索框输入Total，所有公式包含该关键词的单元格会自动高亮，清空搜索框后高亮自动消失。 #

方案2：一键执行的VBA宏方案（适合大表场景） #

如果工作表公式数量极多，条件格式可能影响性能，可以使用固定宏按钮触发高亮：
同样打开VBA编辑器插入模块，粘贴以下代码：

Sub HighlightMatchedFormulas()
    Dim searchKey As String
    Dim cell As Range
    ' 搜索框位置同样设为B1，可自行修改
    searchKey = Range("B1").Value
    ' 遍历当前工作表所有已使用单元格
    For Each cell In ActiveSheet.UsedRange
        If cell.HasFormula Then
            ' 匹配到关键词就高亮，否则恢复无填充
            If InStr(1, cell.Formula, searchKey, vbTextCompare) > 0 And searchKey <> "" Then
                cell.Interior.Color = RGB(255, 255, 0)
            Else
                cell.Interior.ColorIndex = xlNone
            End If
        End If
    Next cell
End Sub

之后你可以在工作表中插入一个按钮，指定绑定这个宏，输入搜索内容后点击按钮即可完成高亮。 #

注意事项 #

• 文件需要保存为.xlsm启用宏的格式，下次打开时需要启用宏功能才能正常使用
• 如果需要区分大小写匹配，把代码中的vbTextCompare修改为vbBinaryCompare即可
• 如果需要跨所有工作表检测，修改宏的遍历范围为工作簿所有工作表的已使用区域即可

内容的提问来源于stack exchange，提问作者Riccardo Boniardi