Excelで特定の名前付き範囲がどこで使用されているかをどのように見つけますか？

Excelの「検索と置換」機能を活用して、特定の名前付き範囲が適用されているすべてのセルを簡単に見つけられます。以下の手順に従ってください：

1. Ctrl + F キーを同時に押して、「検索と置換」ダイアログボックスを開きます。

注: 「ホーム」＞「検索と選択」＞「検索」をクリックすることで、この「検索と置換」ダイアログボックスを開くこともできます。

2. 開いた「検索と置換」ダイアログボックスで、次のスクリーンショットのように操作してください：

(1) 特定の名前付き範囲の名前を「検索内容」ボックスに入力します；

(2) 「対象」ドロップダウンリストから「ワークブック」を選択します；

(3) 「すべて検索」ボタンをクリックします。

注: 「対象」ドロップダウンリストが表示されない場合、「オプション」 ボタンをクリックして検索オプションを展開してください。

これで、指定された名前付き範囲の名前が含まれているすべてのセルが「検索と置換」ダイアログボックスの下部にリストされます。スクリーンショットをご覧ください：

注: 「検索と置換」メソッドは、この特定の名前付き範囲を使用しているすべてのセルだけでなく、この名前付き範囲に関連付けられたすべてのセルも見つけます。

この方法では、特定の名前付き範囲を使用しているすべてのセルを見つけるためのVBAマクロを紹介します。以下の手順に従ってください：

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ダイアログボックスにワークシート名を入力し、「OK」ボタンをクリックします。次に、2番目に開くダイアログボックスに特定の名前付き範囲の名前を入力し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

5. これで、3番目のKutools for Excelダイアログボックスが表示され、特定の名前付き範囲を使用しているセルが以下のようにリストされます。

このダイアログボックスを閉じる「OK」ボタンをクリックすると、これらの見つかったセルが指定されたワークシートで一度に選択されます。

注: このVBAは、一度に1つのワークシートで特定の名前付き範囲を使用しているセルのみを探します。

Kutools for Excelがインストールされている場合、その「置換範囲名」ユーティリティを使用して、特定の名前付き範囲を使用しているすべてのセルや数式を見つけてリストすることができます。

1. 「Kutools」＞「その他」＞「置換範囲名 」をクリックして、「置換範囲名」ダイアログボックスを開きます。

2. 開いた「置換範囲名」ダイアログボックスで、「名前」タブに移動し、「基準名」 ドロップダウンリストをクリックして、特定の名前付き範囲を選択します（次のスクリーンショットを参照）。

これですぐに、特定の名前付き範囲を使用しているすべてのセルと対応する数式がダイアログボックスにリストされます。

3. 「置換範囲名」ダイアログボックスを閉じます。