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

网友投稿 333 2024-01-01

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

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

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

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

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、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

Copy

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