Sut i dynnu priflythrennau neu eiriau gan ddechrau gyda phriflythyren o dannau testun?
Os oes gennych chi restr o dannau testun, nawr, rydych chi am dynnu pob prif lythyren yn unig neu'r geiriau sy'n dechrau gyda phriflythyren o'r celloedd. Sut allech chi ei ddatrys yn Excel?
Tynnu priflythrennau o dannau testun gyda Swyddogaeth Diffiniedig Defnyddiwr
Tynnu priflythrennau o dannau testun gyda Swyddogaeth Diffiniedig Defnyddiwr
Gall y cod VBA canlynol eich helpu i echdynnu'r priflythrennau o gelloedd yn unig, gwnewch fel hyn:
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: Tynnwch brif lythrennau yn unig o dannau testun:
Swyddogaeth ExtractCap (Txt As String) Fel Llinyn 'Updateby Extendoffice
Application.Volatile Dim xRegEx Fel Gwrthrych Set xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = Gwir ExtractCap = xRegEx.Replace (Txt, "") Gosod xRegEx = Dim Diwedd Swyddogaeth
3. Yna cadwch y cod a chau'r cod hwn, ewch yn ôl i'r daflen waith, nodwch y fformiwla hon: = EXTRACTCAP (A2) i mewn i gell wag lle rydych chi am allbynnu'r canlyniad, ac yna llusgwch y ddolen llenwi i lawr i'r celloedd rydych chi am gymhwyso'r fformiwla hon, ac mae'r holl brif lythrennau wedi'u tynnu ar unwaith, gweler y screenshot:
Tynnwch eiriau gan ddechrau gyda phriflythyren o dannau testun gyda Swyddogaeth Diffiniedig Defnyddiwr
Os oes angen i chi echdynnu'r geiriau sy'n dechrau gyda phriflythyren o dannau testun, gall y cod VBA canlynol eich helpu chi.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, yna copïwch a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Detholiad o eiriau gan ddechrau gyda phriflythyren:
Swyddogaeth StrExtract (Str As String) Fel Llinyn 'Updateby Extendoffice
Application.Volatile Dim xStrList As Variant Dim xRet As String Dim I Cyhyd Os Len (Str) = 0 Yna Swyddogaeth Ymadael xStrList = Hollti (Str, "") Os UBound (xStrList)> = 0 Yna Am I = 0 I UBound ( xStrList) Os xStrList (I) = StrConv (xStrList (I), vbProperCase) Yna xRet = xRet & xStrList (I) & "" Diwedd Os StrExtract Nesaf = Chwith (xRet, Len (xRet) - 1) Diwedd Os Diwedd Swyddogaeth
3. Ac yna arbedwch y cod a chau ffenestr y cod, nodwch y fformiwla hon: = StrExtract (A2) i mewn i gell wag wrth ochr eich data, yna llusgwch y ddolen llenwi i lawr i'r celloedd rydych chi am gael y canlyniad, ac mae'r holl eiriau sy'n dechrau gyda phriflythyren yn cael eu tynnu, 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!
