如何快速找出 Excel 中特定名稱範圍的使用位置？

我們可以輕鬆運用 Excel 的查找和替換功能，快速找出所有使用該特定名稱範圍的儲存格！請依照下列步驟操作：

1. 同時按下 Ctrl+F 鍵，即可開啟「查找與替換」對話方塊。

注意：您也可以透過點選首頁＞ 尋找與選取＞ 尋找，立即開啟此「尋找與取代」對話方塊。

2. 在開啟的「尋找與取代」對話方塊中，請依照下方截圖所示進行操作：

（1）在搜尋目標方塊中輸入特定名稱範圍的名稱；

（2）從活頁簿下拉清單中選取範圍內；

（3）按一下全部搜尋按鈕。

注意：若「範圍內」下拉清單未顯示，請點擊選項按鈕以展開搜尋選項。

現在，所有包含指定名稱範圍的儲存格都會顯示在「尋找與取代」對話方塊底部。請參閱截圖：

注意：「尋找與取代」功能不僅能找出所有使用該特定名稱範圍的儲存格，還能一併找出所有涵蓋此名稱範圍的儲存格！

本方法將介紹一個 VBA 巨集，協助您在 Excel 中快速找出所有引用特定名稱範圍的儲存格。請依照下列步驟操作：

1. 同時按下 Alt+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 對話方塊中，請輸入工作表名稱並按一下確定按鈕；接著在第二個開啟的對話方塊中輸入特定名稱範圍的名稱，再按一下確定按鈕。請參閱截圖：

5. 此時將彈出第三個 Kutools for Excel 對話方塊，並如以下截圖所示，列出所有使用該特定名稱範圍的儲存格。

按一下確定按鈕關閉此對話方塊後，這些找到的儲存格將立即在指定工作表中被選取。

注意：此 VBA 每次僅能於單一工作表中搜尋使用特定名稱範圍的儲存格。

若您已安裝 Kutools for Excel，可立即使用其取代儲存格名稱工具，在 Excel 中快速找出並列出所有引用特定名稱範圍的儲存格與公式！

1. 按一下 Kutools > 更多 > 取代儲存格名稱，即可開啟「取代儲存格名稱」對話方塊。

2. 在開啟的「取代儲存格名稱」對話方塊中，切換至名稱索引標籤，點選基於名稱下拉清單，並從中選取特定的名稱範圍，如下方截圖所示：

現在，所有使用該特定名稱範圍的儲存格及其對應公式都會立即顯示在對話方塊中。

3. 關閉「取代儲存格名稱」對話方塊。