Como extrair referência de célula de fórmulas no Excel?

Suponha que você tenha algumas fórmulas longas e, agora, queira extrair todas as referências de células das fórmulas, como mostrado a seguir. Como você poderia extrair as referências de células das fórmulas o mais rápido possível?

Extraia referências de células de fórmulas com função definida pelo usuário

---

Extraia referências de células de fórmulas com função definida pelo usuário

Para extrair as referências de células das fórmulas, o código VBA abaixo pode lhe fazer um favor. Faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: extraia referências de células de 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. Depois de colar o código, salve o código e volte para a planilha e insira esta fórmula: = extractcellrefs (G2) (G2 é a célula que contém a fórmula da qual você deseja extrair as referências de célula) para uma célula onde deseja obter o resultado e pressione Entrar chave, todas as referências de célula foram extraídas da fórmula, consulte a captura de tela: