Conas gach cluiche páirteach a bhaint as Excel?
Más mian leat na cluichí go léir a bhfuil eochairfhocal ar leith iontu a bhaint as colún agus iad a liostáil i gcolún nó i gcill atá scartha le teorannóir mar atá thíos sa screenshot a thaispeántar, conas a d'fhéadfá an tasc seo a réiteach in Excel?
Bain amach gach comhghleacaí go ceartingearach leis an bhfoirmle
Sliocht gach comhghleacaí isteach i gcill amháin le Feidhm Shainithe Úsáideora
Bain amach gach comhghleacaí go ceartingearach leis an bhfoirmle
Chun na meaitseanna go léir a bhaint go hingearach i gcolún bunaithe ar théacs páirteach, is féidir leis an bhfoirmle eagair seo a leanas bhfabhar a dhéanamh duit:
Step1: Cóipeáil agus greamaigh an fhoirmle thíos i gcill bhán áit ar mhaith leat an toradh a chur:
nótaí: San fhoirmle thuas, A2: A14 an bhfuil seans ann go bhfuil an eochairfhocal ar mhaith leat meaitseanna a thabhairt ar ais uathu sna cealla, C2 ina bhfuil an eochairfhocal, E1 an bhfuil an chill os cionn na foirmle.
Step2: Ansin brúigh Ctrl + Shift + Iontráil eochracha ag an am céanna chun an chéad toradh a fháil, agus ansin tarraing an láimhseáil líonta síos chun na cluichí go léir a fháil go dtí go bhfeicfear luach earráide. Ar deireadh, scrios na luachanna earráide, féach screenshot:
Sliocht gach comhghleacaí isteach i gcill amháin le Feidhm Shainithe Úsáideora
Más gá duit a bhaint as na cluichí go léir i cill amháin agus scartha le teorannóir ar leith, b'fhéidir nach bhfuil aon fhoirmle is féidir é a réiteach. Anseo, ní mór duit an Fheidhm Shainithe Úsáideora thíos a chur i bhfeidhm:
Step1: Brúigh Alt + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
Step2: Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, ansin cóipeáil an cód seo a leanas isteach sa Mhodúl.
Cód VBA: Sliocht gach cluiche páirteach i gcill amháin
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: Tar éis duit an cód a ghreamú, téigh ar ais go dtí an bhileog oibre áit ar mhaith leat an toradh a aimsiú, ansin cuir isteach an fhoirmle seo: =ExtractPartMatch(C2,$A$2:$A$14), agus ansin, brúigh Iontráil eochair chun an toradh a fháil mar a thaispeántar thíos an scáileán:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!