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

網友投稿 463 2025-03-31

如何突出顯示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 按鈕。看截圖：

現在所有基于所選公式單元格的引用單元格都立即以紅色突出顯示，如下圖所示。

相關文章: 如何在Excel中保持公式單元格引用恒定？如何在Excel中的單元格中引用選項卡名稱？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？利用的力量 Kutools for Excel - 您終極的節省時間的工具。簡化復雜的任務并像專業人士一樣瀏覽數據。以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel

??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。

?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！

?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？輕松批量導入、導出、組合和調整數據。