Saltar al contenido principal

¿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


flecha azul burbuja derecha 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:

doc donde el rango con nombre usó 1

 

(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:

doc donde el rango con nombre usó 2

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.


flecha azul burbuja derecha 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.


flecha azul burbuja derechaEncuentre 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.

doc 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:

doc donde el rango con nombre usó 4

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


Kutools for Excel: ¡Más de 300 herramientas útiles a tu alcance! Comience hoy su prueba gratuita de 30 días sin limitaciones de funciones. ¡Descargar ahora!

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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...

Descripción


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In your VBA code, row 19 is in RED text before I even attempt to run it... I know there will be a problem. Once I run the code that line (#19) gives an error message:Compile error: syntax error
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations