Nous pouvons facilement appliquer Excel Rechercher et remplacer fonction pour découvrir toutes les cellules appliquant la certaine plage nommée. Veuillez procéder comme suit:

1. appuie sur le Ctrl + F simultanément pour ouvrir la boîte de dialogue Rechercher et remplacer.

Notes: Vous pouvez également ouvrir cette boîte de dialogue Rechercher et remplacer en cliquant sur le ACCUEIL > Rechercher et sélectionner > Trouvez.

2. Dans la boîte de dialogue d'ouverture de recherche et de remplacement, procédez comme suit:

Vous verrez maintenant que toutes les cellules contenant le nom de la plage nommée spécifiée sont répertoriées au bas de la boîte de dialogue Rechercher et remplacer. Voir la capture d'écran:

Notes: La méthode Rechercher et remplacer non seulement trouve toutes les cellules en utilisant cette certaine plage nommée, mais trouve également toutes les cellules couvrant avec cette plage nommée.

Cette méthode introduira une macro VBA pour découvrir toutes les cellules qui utilisent la certaine plage nommée dans Excel. Veuillez procéder comme suit:

1. appuie sur le autre + F11 simultanément pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur l' insérer > Module, et copiez et collez le code suivant dans la fenêtre Module d'ouverture.

VBA: recherchez où une certaine plage nommée est utilisée

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. Maintenant, dans la première boîte de dialogue Kutools for Excel, tapez le nom de la feuille de calcul et cliquez sur le bouton OK bouton; puis dans la deuxième boîte de dialogue d'ouverture, saisissez le nom d'une plage nommée, puis cliquez sur le bouton OK bouton. Voir les captures d'écran:

5. Maintenant, la troisième boîte de dialogue Kutools pour Excel apparaît et répertorie les cellules en utilisant une certaine plage nommée, comme illustré ci-dessous.

Après avoir cliqué sur le OK pour fermer cette boîte de dialogue, ces cellules trouvées sont sélectionnées immédiatement dans la feuille de calcul spécifiée.

Notes: Ce VBA ne peut rechercher que des cellules utilisant la certaine plage nommée dans une feuille de calcul à la fois.

Si Kutools pour Excel est installé, son Remplacer les noms de plage L'utilitaire peut vous aider à trouver et à répertorier toutes les cellules et formules qui utilisent la certaine plage nommée dans Excel.

1. Cliquez sur l' Kutools > Plus > Remplacer les noms de plage pour ouvrir la boîte de dialogue Remplacer les noms de plage.

2. Dans la boîte de dialogue d'ouverture Remplacer les noms de plage, accédez à Nom onglet, et cliquez sur le Nom de base liste déroulante et sélectionnez la certaine plage nommée à partir de celle-ci comme illustré ci-dessous:

Maintenant, toutes les cellules et les formules correspondantes qui utilisent la certaine plage nommée sont répertoriées dans la boîte de dialogue en même temps.

3. Fermez la boîte de dialogue Remplacer les noms de plage.