¿Cómo encontrar dónde se usa un cierto rango con nombre en Excel?
Después de crear un rango con nombre, puede usar este rango con nombre en muchas celdas y fórmulas. Pero, ¿cómo encontrar estas celdas y fórmulas en el libro de trabajo actual? Este artículo presenta tres formas complicadas de resolverlo fácilmente.
Encuentre dónde se usa un cierto rango con nombre con la función Buscar y reemplazar
Encuentre dónde se usa un cierto rango con nombre con VBA
Encuentre dónde se usa un cierto rango con nombre con Kutools para Excel
Encuentre dónde se usa un cierto rango con nombre con la función Buscar y reemplazar
Podemos aplicar fácilmente Excel Buscar y reemplazar función para averiguar todas las celdas que aplican el rango con nombre determinado. Haz lo siguiente:
1. presione el Ctrl + F teclas simultáneamente para abrir el cuadro de diálogo Buscar y reemplazar.
Note: También puede abrir este cuadro de diálogo Buscar y reemplazar haciendo clic en el Inicio > Buscar y seleccionar > Encuentre.
2. En el cuadro de diálogo de apertura Buscar y reemplazar, haga lo siguiente:
(1) Escriba el nombre de cierto rango con nombre en el Encuentra lo que caja;
(2) Seleccionar Libro de trabajo del desplegable En un radio de la lista desplegable;
(3) Haga clic en el Encuentra todos del botón.
Note: Si la lista desplegable Dentro es invisible, haga clic en el Opciones para expandir las opciones de búsqueda.
Ahora verá que todas las celdas que contienen el nombre del rango con nombre especificado se enumeran en la parte inferior del cuadro de diálogo Buscar y reemplazar. Ver captura de pantalla:
Note: El método Buscar y Reemplazar no solo descubre todas las celdas que usan este rango con nombre determinado, sino que también descubre todas las celdas que cubren este rango con nombre.
Encuentre dónde se usa un cierto rango con nombre con VBA
Este método introducirá una macro de VBA para descubrir todas las celdas que usan cierto rango con nombre en Excel. Haz lo siguiente:
1. presione el otro + F11 teclas simultáneamente para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en el recuadro > Móduloy copie y pegue el siguiente código en la ventana del módulo de apertura.
VBA: encuentre dónde se usa un cierto rango con nombre
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
3. Haga clic en el Ejecutar botón o prensa F5 Clave para ejecutar este VBA.
4. Ahora, en el primer cuadro de diálogo de apertura de Kutools para Excel, escriba el nombre de la hoja de trabajo y haga clic en el OK botón; y luego, en el segundo cuadro de diálogo de apertura, escriba el nombre de cierto rango con nombre en él y haga clic en el OK botón. Ver capturas de pantalla:
5. Ahora aparece el tercer cuadro de diálogo Kutools for Excel y enumera las celdas usando el rango con nombre determinado como se muestra a continuación.
Después de hacer clic en el OK para cerrar este cuadro de diálogo, estas celdas encontradas se seleccionan en la hoja de trabajo especificada a la vez.
Note: Este VBA solo puede buscar celdas usando cierto rango con nombre en una hoja de trabajo a la vez.
Encuentre dónde se usa un cierto rango con nombre con Kutools para Excel
Si tiene Kutools para Excel instalado, es Reemplazar nombres de rango La utilidad puede ayudarlo a encontrar y enumerar todas las celdas y fórmulas que usan cierto rango con nombre en Excel.
Kutools for Excel - Equipado con más de 300 herramientas esenciales para Excel. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! ¡Descargar ahora!
1. Haga clic en el Kutools > Más > Reemplazar nombres de rango para abrir el cuadro de diálogo Reemplazar nombres de rango.
2. En el cuadro de diálogo de apertura Reemplazar nombres de rango, vaya a Nombre pestaña, y haga clic en Nombre base lista desplegable y seleccione el rango con nombre determinado como se muestra a continuación:
Ahora, todas las celdas y las fórmulas correspondientes que usan cierto rango con nombre se enumeran en el cuadro de diálogo a la vez.
3. Cierre el cuadro de diálogo Reemplazar nombres de rango.
Kutools for Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfrute de una prueba GRATUITA de 30 días con todas las funciones sin necesidad de tarjeta de crédito! Consíguelo ahora
Demostración: encuentre dónde se usa un cierto rango con nombre en Excel
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!