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:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!