¿Cómo extraer referencias de celdas de las fórmulas en Excel?

Supongamos que tienes algunas fórmulas largas y ahora quieres extraer todas las referencias de celdas de las fórmulas, como se muestra en la siguiente captura de pantalla. ¿Cómo podrías extraer las referencias de celdas de las fórmulas tan rápido como sea posible?

Extraer referencias de celdas de las fórmulas con una Función Definida por el Usuario

Extraer referencias de celdas de las fórmulas con una Función Definida por el Usuario

Para extraer las referencias de celdas de las fórmulas, el siguiente código VBA puede ayudarte. Por favor, sigue los pasos a continuación:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Extraer referencias de celdas de las fórmulas:

Function ExtractCellRefs(Rg As Range) As String
'Updateby Extendoffice
    Dim xRetList As Object
    Dim xRegEx As Object
    Dim I As Long
    Dim xRet As String
    Application.Volatile
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "('?[a-zA-Z0-9\s\[\]\.]{1,99})?'?!?\$?[A-Z]{1,3}\$?[0-9]{1,7}(:\$?[A-Z]{1,3}\$?[0-9]{1,7})?"
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
    End With
    Set xRetList = xRegEx.Execute(Rg.Formula)
    If xRetList.Count > 0 Then
        For I = 0 To xRetList.Count - 1
            xRet = xRet & xRetList.Item(I) & ", "
        Next
        ExtractCellRefs = Left(xRet, Len(xRet) - 2)
    Else
        ExtractCellRefs = "No Matches"
    End If
End Function

3. Después de pegar el código, guarda el código y regresa a la hoja de cálculo, e introduce esta fórmula: =extractcellrefs(G2) (G2 es la celda que contiene la fórmula de la cual deseas extraer las referencias de celdas) en una celda donde quieras obtener el resultado, y luego presiona la tecla Enter; todas las referencias de celdas se habrán extraído de la fórmula, ver la captura de pantalla: