Sut i echdynnu'r holl gemau rhannol yn Excel?
Os ydych chi am dynnu pob cyfatebiaeth sy'n cynnwys gair allweddol penodol o golofn a'u rhestru mewn colofn neu mewn cell wedi'i gwahanu gan amffinydd fel y sgrinlun a ddangosir isod, sut allech chi ddatrys y dasg hon yn Excel?
Tynnwch yr holl gyfatebion rhannol yn fertigol gyda'r fformiwla
Tynnwch yr holl gyfatebion rhannol yn fertigol gyda'r fformiwla
I echdynnu pob matsien yn fertigol mewn colofn yn seiliedig ar destun rhannol, gall y fformiwla arae ganlynol wneud ffafr i chi:
Step1: Copïwch a gludwch y fformiwla isod i mewn i gell wag lle rydych chi am roi'r canlyniad:
Nodyn: Yn y fformiwla uchod, A2: A14 yw y gall y celloedd gynnwys y gair allweddol yr ydych am ddychwelyd matsys ohono, C2 yn cynnwys y gair allweddol, E1 yw'r gell uwchben y fformiwla.
Step2: Yna pwyswch Ctrl + Shift + Enter allweddi ar yr un pryd i gael y canlyniad cyntaf, ac yna llusgwch yr handlen llenwi i lawr i gael pob cyfatebiaeth nes bod gwerth gwall yn ymddangos. O'r diwedd, dilëwch y gwerthoedd gwall, gweler y sgrinlun:
Tynnwch yr holl gyfatebiaethau rhannol i mewn i un gell gyda Swyddogaeth a Ddiffiniwyd gan Ddefnyddiwr
Os oes angen i chi dynnu'r holl gemau i mewn i un gell a'u gwahanu gan amffinydd penodol, efallai nad oes unrhyw fformiwla a all ei datrys. Yma, mae angen i chi gymhwyso'r Swyddogaeth a Ddiffiniwyd gan Ddefnyddiwr isod:
Step1: Gwasg Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
Step2: Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, yna copïwch y cod canlynol i'r Modiwl.
Cod VBA: Tynnwch yr holl gemau rhannol i mewn i un gell
Function ExtractPartMatch(rngInput As Range, rngSource As Range, Optional sDelimiter As String)
'Updateby ExtendOffice
Dim rng As Range
If sDelimiter = "" Then sDelimiter = ", "
For Each rng In rngSource
If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ExtractPartMatch = ExtractPartMatch & sDelimiter & rng.Value
Next
If Len(ExtractPartMatch) > 0 Then ExtractPartMatch = Mid(ExtractPartMatch, 2, Len(ExtractPartMatch))
End Function
Step3: Ar ôl gludo'r cod, ewch yn ôl i'r daflen waith lle rydych chi am ddod o hyd i'r canlyniad, yna rhowch y fformiwla hon: =ExtractPartMatch(C2,$A$2:$A$14), ac yna, pwyswch Rhowch allwedd i gael y canlyniad fel y dangosir isod 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!
