我們可以輕鬆地應用Excel的 查找和替換 功能可以找出所有使用特定命名範圍的單元格。 請執行以下操作：

1。 按 按Ctrl + F 同時按下鍵以打開“查找和替換”對話框。

備註：您也可以通過單擊打開“查找和替換”對話框 首頁 > 查找和選擇 > 發現.

2.在打開的“查找和替換”對話框中，請執行以下顯示的屏幕截圖：

現在，將在“查找和替換”對話框的底部看到所有包含指定命名範圍名稱的單元格。 看截圖：

備註：“查找和替換”方法不僅查找使用此特定命名範圍的所有像元，而且還查找覆蓋此命名範圍的所有像元。

此方法將引入VBA宏，以查找使用Excel中特定命名範圍的所有單元格。 請執行以下操作：

1。 按 其他 + F11 同時按下鍵以打開“ Microsoft Visual Basic for Applications”窗口。

2。 點擊 插入 > 模塊，然後將以下代碼複製並粘貼到打開的“模塊”窗口中。

VBA：查找使用特定命名範圍的位置

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.現在，在第一個打開的Kutools for Excel對話框中，在其中鍵入工作表名稱，然後單擊 OK 按鈕; 然後在第二個打開的對話框中，輸入某些命名範圍的名稱，然後單擊 OK 按鈕。 查看屏幕截圖：

5.現在，第三個Kutools for Excel對話框出現，並使用指定的命名範圍列出單元格，如下圖所示。

點擊後 OK 按鈕關閉此對話框，將在指定的工作表中立即選擇這些找到的單元格。

備註：此VBA一次只能在一個工作表中使用特定命名範圍查找單元格。

在您安裝了Kutools for Excel之後， 替換範圍名稱 實用程序可以幫助您查找並列出在Excel中使用特定命名範圍的所有單元格和公式。

1。 點擊 庫工具 > 更多 > 替換範圍名稱 打開“替換範圍名稱”對話框。

2.在打開的“替換範圍名稱”對話框中，轉到 姓名 選項卡，然後單擊 基本名稱 下拉列表，然後從中選擇特定的命名範圍，如下圖所示：

現在，使用特定命名範圍的所有單元格和相應的公式會立即在對話框中列出。

3.關閉“替換範圍名稱”對話框。