Sut i dynnu cyfeirnod celloedd o fformwlâu yn Excel?
Gan dybio bod gennych rai fformiwlâu hir, ac yn awr, rydych chi am dynnu pob cyfeirnod celloedd o'r fformwlâu fel y dangosir y llun a ddangosir. Sut allech chi echdynnu'r cyfeiriadau celloedd o fformwlâu mor gyflym ag y gallwch?
Tynnwch gyfeiriadau celloedd o fformwlâu â Swyddogaeth Diffiniedig Defnyddiwr
Tynnwch gyfeiriadau celloedd o fformwlâu â Swyddogaeth Diffiniedig Defnyddiwr
I echdynnu'r cyfeiriadau celloedd o fformwlâu, efallai y bydd y cod VBA isod yn ffafrio chi. Gwnewch fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Tynnu cyfeiriadau celloedd o'r fformwlâu:
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. Ar ôl pasio'r cod, cadwch y cod ac ewch yn ôl i'r daflen waith, a nodwch y fformiwla hon: = extractcellrefs (G2) (G2 yw'r gell sy'n cynnwys fformiwla rydych chi am echdynnu cyfeiriadau'r gell) i mewn i gell lle rydych chi am gael y canlyniad, ac yna pwyso Rhowch yn allweddol, mae'r holl gyfeiriadau celloedd wedi'u tynnu o'r fformiwla, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
