¿Cómo encontrar y enumerar todos los vínculos (referencias externas) en Excel?

En Excel, se hace referencia al contenido de las celdas de otro libro de trabajo creando una referencia externa. Pero cuando deseas enumerar todos los vínculos de un libro en Excel, parece difícil encontrar y listar todas las referencias externas (vínculos). El método ingenioso en este artículo te ayudará a descubrir y enumerar rápidamente todos los vínculos en el libro.

Buscar y enumerar todos los vínculos con el comando Buscar

Buscar y enumerar todos los vínculos con Kutools para Excel

Buscar y enumerar todos los vínculos con una macro VB

Buscar y enumerar todos los vínculos con el comando Buscar

Debido a que los vínculos externos contienen el corchete [ izquierdo, podemos encontrar los vínculos externos si obtenemos todos los signos de corchetes en todo el libro.

1. Haz clic en Inicio > Buscar y seleccionar > Buscar para abrir el cuadro de diálogo Buscar y reemplazar. También puedes abrir el cuadro de diálogo Buscar y reemplazar presionando Ctrl + F.

2. En el cuadro Buscar:, ingresa la parte izquierda del corchete "[".

3. Haz clic en Opciones, en la lista desplegable Dentro , elige Hoja o Libro desde donde deseas buscar los vínculos. Ver captura de pantalla:

4. Luego haz clic en el botón Buscar todo. Luego enumera todas las referencias externas en el cuadro de diálogo Buscar y reemplazar inmediatamente. Presiona Ctrl + A para seleccionar todas las celdas vinculadas como se muestra en la siguiente captura de pantalla:

La parte izquierda del corchete puede encontrar los vínculos externos en todo el libro. Si deseas encontrar todo tipo de vínculos, incluidos los vínculos internos y externos, puedes ingresar el signo de exclamación "!" en el cuadro Buscar.

Buscar y enumerar todos los vínculos con Kutools para Excel

Con Buscar y romper vínculos rotos de Kutools para Excel, puedes encontrar todos los vínculos externos de la hoja de cálculo activa, al mismo tiempo, puedes romper los vínculos específicos según sea necesario.

Si has instalado Kutools para Excel, por favor sigue estos pasos:

1. Activa la hoja de cálculo en la que deseas encontrar los vínculos, y haz clic en Kutools > Vínculo > Buscar y romper vínculos rotos, ver captura de pantalla:

2. En el cuadro de diálogo Buscar y romper vínculos rotos, haz clic en la lista desplegable Filtrar para elegir Todos los vínculos, y se enumeran todos los vínculos en la hoja de cálculo activa, también puedes ver el estado de los vínculos, OK significa que el vínculo es válido, Error significa que el vínculo está roto.

Notas:

1. Si la opción Activar celda está marcada, cuando haces clic en el vínculo en la lista, encontrará y navegará a la celda específica que contiene el vínculo en la hoja de cálculo.

2. Y si deseas romper un vínculo, puedes seleccionar el vínculo de la lista, luego hacer clic en Romper vínculo.

¡Haz clic para descargar Kutools para Excel y prueba gratis ahora!

Si quieres saber más sobre esta función, por favor haz clic en Buscar y romper vínculos rotos.

Buscar y enumerar todos los vínculos con una macro VB

La siguiente macro VBA puede ayudarnos a enumerar todos los libros de trabajo vinculados en una nueva hoja de cálculo del libro actual.

1. Mantén presionadas las teclas ALT + F11 , y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega 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. Presiona la tecla F5 para ejecutar esta macro. Luego crea una nueva hoja de cálculo llamada Hoja de vínculos y enumera todas las ubicaciones de los vínculos y los nombres y rutas de guardado de los libros de trabajo vinculados en ella de una vez. Ver captura de pantalla:

Buscar y enumerar todos los vínculos con Kutools para Excel