Hvordan udpakkes cellehenvisning fra formler i Excel?

Antag at du har nogle lange formler, og nu vil du udtrække alle cellereferencer fra formlerne som vist nedenstående skærmbillede. Hvordan kunne du udtrække cellereferencer fra formler så hurtigt som muligt?

Uddrag cellehenvisninger fra formler med brugerdefineret funktion

---

Uddrag cellehenvisninger fra formler med brugerdefineret funktion

For at udtrække cellereferencer fra formler kan nedenstående VBA-kode muligvis gøre dig en tjeneste. Gør følgende:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Uddrag cellehenvisninger fra formler:

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. Efter at have indsat koden, skal du gemme koden og gå tilbage til regnearket og indtaste denne formel: = ekstraktceller (G2) (G2 er den celle, der indeholder formlen, som du vil udtrække cellehenvisningerne) i en celle, hvor du vil få resultatet, og tryk derefter på Indtast nøgle, alle cellereferencer er udvundet fra formlen, se skærmbillede: