Como extrair referências de células de fórmulas no Excel?

Suponha que você tenha algumas fórmulas longas e agora deseja extrair todas as referências de células dessas fórmulas, conforme mostrado na captura de tela a seguir. Como você poderia extrair as referências de células das fórmulas tão rapidamente quanto possível?

Extrair referências de células de fórmulas com Função Definida pelo Usuário

Extrair referências de células de fórmulas com Função Definida pelo Usuário

Para extrair as referências de células de fórmulas, o código VBA abaixo pode ajudá-lo. Por favor, siga os passos a seguir:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Extrair 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. Após colar o código, salve-o 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élulas) em uma célula onde você deseja obter o resultado, e depois pressione a tecla Enter; todas as referências de células terão sido extraídas da fórmula, veja a captura de tela: