Hur markerar jag alla celler som refereras av med en formel i Excel?

Den här artikeln förklarar hur du markerar alla celler som refereras av en formel i Excel. Följ nedanstående två metoder för att få det gjort.

Markera alla celler som refereras av med en formel med genvägsknapp
Markera alla celler som refereras till med en formel med VBA-kod

Markera alla celler som refereras av med en formel med genvägsknapp

Du kan använda en kortkommando för att markera alla celler som hänvisas till av en formel och sedan manuellt använda en fyllningsfärg på dem.

1. Om vi ​​antar att E1 är en formelcell, och du måste markera alla celler som det refereras till. Välj formelcell E1 och tryck sedan på ctrl + [ (öppen-kvadrat-parentes) -tangenterna samtidigt.

2. Nu markeras celler som refereras till med denna formel, ange en fyllningsfärg för att markera dem. Se skärmdump:

Markera alla celler som refereras till med en formel med VBA-kod

Du kan också köra VBA-kod för att markera alla celler som refereras av en formel i Excel.

1. Tryck andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera och klistra in nedanstående VBA-kod i modulfönstret.

VBA-kod: Markera alla celler som refereras till med en formel i 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. tryck på F5 för att köra koden. I pop-up Kutools för Excel Välj en formelcell eller flera formelceller som du behöver för att markera refererade celler baserat på och klicka sedan på OK knapp. Se skärmdump:

Nu markeras alla refererade celler baserade på de valda formelcellerna i rött omedelbart enligt nedanstående skärmdump.

Relaterade artiklar:

• Hur håller jag formelcellreferensen konstant i Excel?
• Hur refererar jag till fliknamn i cellen i Excel?