Wie extrahiere ich Zellreferenzen aus Formeln in Excel?

Angenommen, Sie haben einige lange Formeln, und jetzt möchten Sie alle Zellreferenzen aus den Formeln extrahieren, wie im folgenden Screenshot gezeigt. Wie können Sie die Zellreferenzen so schnell wie möglich aus Formeln extrahieren?

Extrahieren Sie Zellreferenzen aus Formeln mit der benutzerdefinierten Funktion

---

Extrahieren Sie Zellreferenzen aus Formeln mit der benutzerdefinierten Funktion

Um die Zellreferenzen aus Formeln zu extrahieren, kann der folgende VBA-Code Ihnen einen Gefallen tun. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Zellreferenzen aus Formeln extrahieren:

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. Speichern Sie nach dem Einfügen des Codes den Code, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = Extraktzellref (G2) (G2 ist die Zelle, die die Formel enthält, aus der Sie die Zellreferenzen extrahieren möchten) in eine Zelle, in der Sie das Ergebnis erhalten möchten, und drücken Sie dann Weiter Schlüssel, alle Zellreferenzen wurden aus der Formel extrahiert, siehe Screenshot: