Vi kan enkelt använda Excel Sök och ersätt för att ta reda på alla celler som använder det angivna intervallet. Gör så här:

1. tryck på ctrl + F samtidigt för att öppna dialogrutan Sök och ersätt.

Anmärkningar: Du kan också öppna dialogrutan Sök och ersätt genom att klicka på Hem > Hitta och välj > hitta.

2. I dialogrutan Sök och ersätt öppnar du följande skärmdump:

Nu ser du alla celler som innehåller namnet på det angivna namngivna området visas längst ned i dialogrutan Sök och ersätt. Se skärmdump:

Anmärkningar: Metoden Sök och ersätt hittar inte bara alla celler som använder detta specifika namngivna intervall, utan hittar också alla celler som täcker detta namngivna intervall.

Denna metod introducerar ett VBA-makro för att ta reda på alla celler som använder det angivna intervallet i Excel. Gör så här:

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka på Insert > Modulerna, och kopiera och klistra in följande kod i öppningsmodulfönstret.

VBA: Hitta var ett visst namngivet intervall används

Sub Find_namedrange_place()
Dim xRg As Range
Dim xCell As Range
Dim xSht As Worksheet
Dim xFoundAt As String
Dim xAddress As String
Dim xShName As String
Dim xSearchName As String
On Error Resume Next
xShName = Application.InputBox("Please type a sheet name you will find cells in:", "Kutools for Excel", Application.ActiveSheet.Name)
Set xSht = Application.Worksheets(xShName)
Set xRg = xSht.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not xRg Is Nothing Then
xSearchName = Application.InputBox("Please type the name of named range:", "Kutools for Excel")
Set xCell = xRg.Find(What:=xSearchName, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
        If Not xCell Is Nothing Then
xAddress = xCell.Address
If IsPresent(xCell.Formula, xSearchName) Then
xFoundAt = xCell.Address
End If
            Do
Set xCell = xRg.FindNext(xCell)
If Not xCell Is Nothing Then
If xCell.Address = xAddress Then Exit Do
If IsPresent(xCell.Formula, xSearchName) Then
If xFoundAt = "" Then
xFoundAt = xCell.Address
Else
xFoundAt = xFoundAt & ", " & xCell.Address
End If
End If
Else
Exit Do
End If
Loop
End If
If xFoundAt = "" Then
MsgBox "The Named Range was not found", , "Kutools for Excel"
Else
MsgBox "The Named Range has been found these locations: " & xFoundAt, , "Kutools for Excel"
End If
On Error Resume Next
xSht.Range(xFoundAt).Select
End If
End Sub
Private Function IsPresent(sFormula As String, sName As String) As Boolean
Dim xPos1 As Long
Dim xPos2 As Long
Dim xLen As Long
Dim I As Long
xLen = Len(sFormula)
xPos2 = 1
Do
xPos1 = InStr(xPos2, sFormula, sName) - 1
If xPos1 < 1 Then Exit Do
IsPresent = IsVaildChar(sFormula, xPos1)
xPos2 = xPos1 + Len(sName) + 1
If IsPresent Then
If xPos2 <= xLen Then
IsPresent = IsVaildChar(sFormula, xPos2)
End If
End If
Loop
End Function
Private Function IsVaildChar(sFormula As String, Pos As Long) As Boolean
Dim I As Long
IsVaildChar = True
For I = 65 To 90
If UCase(Mid(sFormula, Pos, 1)) = Chr(I) Then
IsVaildChar = False
Exit For
End If
Next I
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(34) Then
IsVaildChar = False
End If
End If
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(95) Then
IsVaildChar = False
End If
End If
End Function

4. Nu i första öppningen Kutools for Excel dialogrutan skriv in kalkylbladets namn i den och klicka på OK knapp; och sedan i den andra öppningsdialogrutan, skriv in namnet på ett visst namngivet intervall i det och klicka på OK knapp. Se skärmdumpar:

5. Nu den tredje Kutools for Excel dialogrutan kommer ut och listar celler som använder det särskilda namngivna intervallet som visas nedan.

När du klickat på OK för att stänga denna dialogruta, väljs dessa hittade celler i det angivna kalkylbladet på en gång.

Anmärkningar: Denna VBA kan bara leta efter celler som använder det angivna intervallet i ett kalkylblad åt gången.

I har du Kutools for Excel installerat, dess Ersätt intervallnamn verktyget kan hjälpa dig att hitta och lista alla celler och formler som använder det angivna intervallet i Excel.

1. Klicka på Kutools > Snarare > Ersätt intervallnamn för att öppna dialogrutan Ersätt intervallnamn.

2. Gå till öppningsdialogrutan Byt ut intervallnamn Företag fliken och klicka på Basnamn rullgardinsmeny och välj det specifika namngivna intervallet från det som visas nedan:

Nu listas alla celler och motsvarande formler som använder det angivna intervallet i dialogrutan på en gång.

3. Stäng dialogrutan Ersätt intervallnamn.