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:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!