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 Enter Schlüssel, alle Zellreferenzen wurden aus der Formel extrahiert, siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!