Cum se extrage referința celulei din formule în Excel?
Presupunând că aveți câteva formule lungi și acum doriți să extrageți toate referințele de celule din formule, după cum se arată în următoarea captură de ecran. Cum ați putea extrage referințele celulei din formule cât mai repede posibil?
Extrageți referințele de celule din formule cu funcția definită de utilizator
Extrageți referințele de celule din formule cu funcția definită de utilizator
Pentru a extrage referințele de celule din formule, codul VBA de mai jos vă poate face o favoare. Vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: extrageți referințe de celule din formule:
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. După lipirea codului, salvați codul și reveniți la foaia de lucru și introduceți această formulă: = extractcellrefs (G2) (G2 este celula care conține formula pe care doriți să extrageți referințele celulei) într-o celulă în care doriți să obțineți rezultatul, apoi apăsați Intrați cheie, toate referințele de celule au fost extrase din formulă, vezi captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!