Z łatwością możemy zastosować Excela Znajdowanie i zamienianie funkcja, aby znaleźć wszystkie komórki stosujące określony nazwany zakres. Wykonaj następujące czynności:

1. wciśnij Ctrl + F klawiszy, aby otworzyć okno dialogowe Znajdź i zamień.

Note: Możesz również otworzyć to okno dialogowe Znajdź i zamień, klikając przycisk Strona główna > Znajdź i wybierz > Znajdź.

2. W otwartym oknie dialogowym Znajdź i zamień wykonaj następujące czynności:

Teraz zobaczysz, że wszystkie komórki zawierające nazwę określonego zakresu nazwanego znajdują się na dole okna dialogowego Znajdź i zamień. Zobacz zrzut ekranu:

Note: Metoda Znajdź i zamień nie tylko wyszukuje wszystkie komórki korzystające z tego określonego nazwanego zakresu, ale także znajduje wszystkie komórki obejmujące ten nazwany zakres.

Ta metoda wprowadzi makro VBA, aby znaleźć wszystkie komórki, które używają określonego nazwanego zakresu w programie Excel. Wykonaj następujące czynności:

1. wciśnij inny + F11 klawisze jednocześnie, aby otworzyć okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi skopiuj i wklej następujący kod do otwierającego okna modułu.

VBA: znajdź, gdzie jest używany określony nazwany zakres

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. Teraz w pierwszym otwartym oknie dialogowym Kutools for Excel wpisz w nim nazwę arkusza i kliknij OK przycisk; a następnie w drugim otwierającym oknie dialogowym wpisz nazwę pewnego nazwanego zakresu i kliknij OK przycisk. Zobacz zrzuty ekranu:

5. Teraz pojawia się trzecie okno dialogowe Kutools dla programu Excel i wyświetla listę komórek przy użyciu określonego nazwanego zakresu, jak pokazano poniżej.

Po kliknięciu OK aby zamknąć to okno dialogowe, te znalezione komórki są zaznaczane jednocześnie w określonym arkuszu.

Note: Ten język VBA może w danym momencie wyszukiwać tylko komórki korzystające z określonego nazwanego zakresu w jednym arkuszu.

W masz zainstalowany Kutools for Excel, jego Zastąp nazwy zakresów Narzędzie może pomóc w znalezieniu i wyświetleniu wszystkich komórek i formuł, które używają określonego nazwanego zakresu w programie Excel.

1. Kliknij Kutools > Więcej > Zastąp nazwy zakresów aby otworzyć okno dialogowe Zamień nazwy zakresów.

2. W otwartym oknie dialogowym Zamień nazwy zakresów przejdź do Imię kartę i kliknij przycisk Nazwa podstawowa rozwijana lista i wybierz z niej określony nazwany zakres, jak pokazano na zrzucie ekranu:

Teraz wszystkie komórki i odpowiadające im formuły, które używają określonego nazwanego zakresu, są jednocześnie wyświetlane w oknie dialogowym.

3. Zamknij okno dialogowe Zastąp nazwy zakresów.