如何突出显示Excel中公式引用的所有单元格？

本文讨论的是突出显示Excel中的公式所引用的所有单元格。请按照以下两种方法完成操作。

用快捷键突出显示公式引用的所有单元格
 用VBA代码突出显示公式引用的所有单元格

用快捷键突出显示公式引用的所有单元格

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Edge、Firefox 和 Safari！
每天节省50％的时间，并减少数千次鼠标单击！

本节将建议您使用快捷键选择公式引用的所有单元格，然后手动为其填充颜色。

1.假设E1是一个公式单元格，你需要高亮它引用的所有单元格。请选择公式单元格E1，然后按 按Ctrl + [ （开方括号）键同时进行。

2.现在选择了此公式引用的单元格，请指定填充颜色以突出显示它们。看截图：

用VBA代码突出显示公式引用的所有单元格

您还可以运行 VBA 代码以突出显示 Excel 中公式引用的所有单元格。

1。按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口，请点击插页 > 模块。然后将下面的VBA代码复制并粘贴到“模块”窗口中。

VBA代码：突出显示Excel中公式引用的所有单元格

Sub HighlightCellsReferenced()
    Dim rowCnt As Integer
    Dim i As Integer, j As Integer, strleng As Integer
    Dim strTxt As String, strFml As String
    Dim columnStr, cellsAddress As String
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
    Title:="Kutools For Excel", Type:=8)
    
    strTxt = ""
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If yRg.Value <> "" Then
            strFml = yRg.Formula + " "
            strFml = Replace(strFml, "(", " ")
            strFml = Replace(strFml, ")", " ")
            strFml = Replace(strFml, "-", " ")
            strFml = Replace(strFml, "+", " ")
            strFml = Replace(strFml, "*", " ")
            strFml = Replace(strFml, "/", " ")
            strFml = Replace(strFml, "=", " ")
            strFml = Replace(strFml, ",", " ")
            strFml = Replace(strFml, ":", " ")
              
            For j = 1 To Len(strFml)
                If Mid(strFml, j, 1) <> " " Then
                    cellsAddress = cellsAddress + Mid(strFml, j, 1)
                Else
                    On Error Resume Next
                    Range(cellsAddress).Interior.ColorIndex = 3
                    cellsAddress = ""
                End If
            Next
        End If
    Next yRg
    Application.ScreenUpdating = True
End Sub

3。按 F5 键来运行代码。在弹出 Kutools for Excel 对话框，请选择一个或多个公式单元格，您需要突出显示所基于的公式单元格，然后单击 OK 按钮。看截图：

现在所有基于所选公式单元格的引用单元格都立即以红色突出显示，如下图所示。

最佳办公生产力工具

🤖	Kutools 人工智能助手：基于以下内容彻底改变数据分析：智能执行 \| 生成代码 \| 创建自定义公式 \| 分析数据并生成图表 \| 调用 Kutools 函数...
	热门特色: 查找、突出显示或识别重复项 \| 删除空白行 \| 合并列或单元格而不丢失数据 \| 不使用公式进行四舍五入 ...
	超级查询: 多条件VLookup \| 多值VLookup \| 跨多个工作表的 VLookup \| 模糊查询 ....
	高级下拉列表: 快速创建下拉列表 \| 依赖下拉列表 \| 多选下拉列表 ....
	列管理器: 添加特定数量的列 \| 移动列 \| 切换隐藏列的可见性状态 \| 比较范围和列 ...
	特色功能: 网格焦点 \| 设计图 \| 大方程式酒吧 \| 工作簿和工作表管理器 \| 资源库（自动文本） \| 日期选择器 \| 合并工作表 \| 加密/解密单元格 \| 按列表发送电子邮件 \| 超级筛选 \| 特殊过滤器（过滤粗体/斜体/删除线...）...
	前 15 个工具集: 12 文本工具 (添加文本, 删除字符，...） \| 50+ 图表类型 (甘特图，...） \| 40+ 实用公式 (根据生日计算年龄，...） \| 19 插入工具 (插入二维码, 从路径插入图片，...） \| 12 转化工具 (小写金额转大写, 货币兑换，...） \| 7 合并与拆分工具 (高级组合行, 分裂细胞，...） \| ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

产品描述

阅读更多免费下载...

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多免费下载...

Comments (5)

No ratings yet. Be the first to rate!

Ryan

about 3 years ago

#34423