Hogyan lehet kinyerni a cellahivatkozást az Excel képleteiből?

Tételezzük fel, hogy van néhány hosszú képlet, és most ki akarja vonni az összes cellahivatkozást a képletekből, az alábbi képernyőkép szerint. Hogyan lehetne a lehető leggyorsabban kivonni a cellahivatkozásokat a képletekből?

Bontsa ki a cellahivatkozásokat a képletekből a Felhasználó által definiált funkcióval

---

Bontsa ki a cellahivatkozásokat a képletekből a Felhasználó által definiált funkcióval

A cellahivatkozások képletekből történő kivonásához az alábbi VBA-kód kedvezhet. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Cella referenciák kivonása a képletekből:

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. A kód beillesztése után mentse el a kódot, menjen vissza a munkalapra, és írja be ezt a képletet: = extractcellrefs (G2) (G2 az a cella, amely képletet tartalmaz a cellahivatkozások kivonásához) egy cellába, ahol meg akarja szerezni az eredményt, majd nyomja meg a gombot belép kulcs, az összes cellahivatkozás kivonásra került a képletből, lásd a képernyőképet: