Vi kan nemt anvende Excel'er Søg og erstat funktion for at finde ud af alle celler, der anvender det bestemte navngivne interval. Gør følgende:

1. Tryk på Ctrl + F taster samtidigt for at åbne dialogboksen Find og erstat.

Bemærk: Du kan også åbne denne Find og erstat dialogboks ved at klikke på Home > Find og vælg > Finde.

2. I åbningsdialogboksen Find og erstat skal du gøre som følgende vist skærmbillede:

Nu vil du se, at alle celler, der indeholder navnet på det angivne navngivne område, vises i bunden af ​​dialogboksen Find og erstat. Se skærmbillede:

Bemærk: Metoden Find og erstat finder ikke kun alle celler, der bruger dette bestemte navngivne område, men finder også ud af alle celler, der dækker dette navngivne område.

Denne metode introducerer en VBA-makro for at finde ud af alle celler, der bruger det bestemte navngivne interval i Excel. Gør følgende:

1. Tryk på andre + F11 taster samtidigt for at åbne vinduet Microsoft Visual Basic til applikationer.

2. Klik på indsatte > Moduler, og kopier og indsæt følgende kode i modulets åbningsvindue.

VBA: Find, hvor et bestemt navngivet område bruges

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. Skriv nu regnearknavnet i den første åbning af Kutools til Excel-dialogboksen og klik på OK knap; og skriv derefter navnet på det bestemte navngivne interval i den anden åbningsdialogboks, og klik på OK knap. Se skærmbilleder:

5. Nu kommer den tredje Kutools til Excel-dialogboks ud og lister celler ved hjælp af det bestemte navngivne interval som vist nedenstående skærmbillede.

Efter at klikke på OK for at lukke denne dialogboks, vælges disse fundne celler i det angivne regneark på én gang.

Bemærk: Denne VBA kan kun se efter celler, der bruger det bestemte navngivne interval i et regneark ad gangen.

I du har Kutools til Excel installeret, det er Erstat rækkevidde værktøj kan hjælpe dig med at finde og liste alle celler og formler, der bruger det bestemte navngivne interval i Excel.

1. Klik på Kutools > Mere > Erstat rækkevidde for at åbne dialogboksen Erstat rækkevidden.

2. Gå til dialogboksen Udskift områdenavne Navn fanebladet, og klik på knappen Basisnavn rulleliste og vælg det bestemte navngivne interval fra det som vist nedenstående skærmbillede:

Nu vises alle celler og tilsvarende formler, der bruger det bestemte navngivne interval, i dialogboksen på én gang.

3. Luk dialogboksen Erstat rækkevidden.