¿Cómo extraer la referencia de celda de las fórmulas en Excel?

Supongamos que tiene algunas fórmulas largas y ahora desea extraer todas las referencias de celda de las fórmulas como se muestra a continuación. ¿Cómo podría extraer las referencias de celda de las fórmulas lo más rápido posible?

Extraiga referencias de celda de fórmulas con la función definida por el usuario

---

Extraiga referencias de celda de fórmulas con la función definida por el usuario

Para extraer las referencias de celda de las fórmulas, el siguiente código VBA puede hacerle un favor. Haz lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: extraiga las referencias de celda 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, guarde el código y vuelva a la hoja de trabajo e ingrese esta fórmula: = extractcellrefs (G2) (G2 es la celda que contiene la fórmula que desea extraer las referencias de celda) en una celda donde desea obtener el resultado, y luego presione Enviar clave, todas las referencias de celda se han extraído de la fórmula, vea la captura de pantalla: