¿Cómo encontrar y enumerar todos los vínculos (referencias externas) en Excel?
En Excel, puede hacer referencia al contenido de celdas de otro libro mediante una referencia externa. Sin embargo, cuando desea enumerar todos los vínculos de un libro en Excel, resulta complicado localizar y listar todas las referencias externas (vínculos). El método práctico que se explica en este artículo le permitirá detectar y enumerar rápidamente todos los vínculos del libro.
Encontrar y enumerar todos los vínculos con el comando Buscar
Encontrar y enumerar todos los vínculos con Kutools para Excel
Encontrar y enumerar todos los vínculos con una macro de VB
Encontrar y enumerar todos los vínculos con el comando Buscar
Dado que los vínculos externos contienen el signo de corchete [, podemos detectarlos localizando todos los signos de corchete en todo el libro.
1. Haga clic en Inicio > Buscar y seleccionar > Buscar para abrir el cuadro de diálogo Buscar y reemplazar. También puede abrir el cuadro de diálogo Buscar y reemplazar pulsando las teclas Ctrl + F.
2. En el cuadro Buscar:, introduzca la parte izquierda del corchete: "[".
3. Haga clic en Opciones. En la lista desplegable Dentro de, seleccione Hoja o Libro desde donde desea buscar los vínculos. Vea la captura de pantalla:
4. A continuación, haga clic en el botón Buscar todo. Inmediatamente se mostrarán todas las referencias externas en el cuadro de diálogo Buscar y reemplazar. Pulse Ctrl + A para seleccionar todas las celdas con vínculos, tal como se muestra en la siguiente captura de pantalla:
La parte izquierda del corchete le permite detectar enlaces externos en todo el libro. Si desea encontrar todo tipo de enlaces, tanto internos como externos, introduzca el signo de exclamación «!» en el cuadro Buscar:.
Encontrar y enumerar todos los vínculos con Kutools para Excel
Con la función Kutools para Excel Buscar y romper enlaces, puede localizar todos los vínculos externos de la hoja activa y, al mismo tiempo, eliminar únicamente los que necesite.
Si ha instalado Kutools para Excel, siga estos pasos:
1. Active la hoja en la que desea buscar los vínculos y haga clic en Kutools > Vínculo > Buscar y romper enlaces. Vea la captura de pantalla:
2. En el cuadro de diálogo Buscar y romper enlaces, haga clic en la lista desplegable Filtrar y seleccione Todos los vínculos. Se enumerarán todos los vínculos de la hoja activa y podrá ver también su estado: Aceptar indica que el vínculo es válido, mientras que Error significa que el vínculo está roto.
Notas:
1. Si la opción Activar celda está marcada, al hacer clic en un vínculo de la lista se desplazará automáticamente a la celda específica que contiene dicho vínculo en la hoja.
2. Y si desea eliminar un vínculo, selecciónelo en la lista y haga clic en Romper enlace.
¡Haga clic para descargar Kutools para Excel y pruébelo gratis ahora!
Si desea obtener más información sobre esta función, haga clic en Buscar y romper enlaces.
Encontrar y enumerar todos los vínculos con una macro de VB
La siguiente macro de VBA nos permite enumerar todos los libros de origen vinculados en una hoja de cálculo nueva del libro de trabajo actual.
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del módulo.
VBA: Enumerar todos los vínculos en Excel.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. Pulse la tecla F5 para ejecutar esta macro. A continuación, se creará una hoja de cálculo nueva denominada Hoja de vínculos, en la que se mostrarán de inmediato la ubicación de todos los vínculos, así como los nombres y las rutas de guardado de los libros fuente de enlace. Vea la captura de pantalla:
Encontrar y enumerar todos los vínculos con Kutools para Excel
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos