Conas príomhlitreacha nó focail ag tosú le ceannlitir a bhaint as teaghráin téacs?
Má tá liosta de shreangáin téacs agat, anois, ba mhaith leat gach ceannlitir amháin a bhaint nó na focail ag tosú le ceannlitir ó na cealla. Conas a d’fhéadfá é a réiteach in Excel?
Sliocht príomhlitreacha ó teaghráin téacs le Feidhm Sainithe ag an Úsáideoir
Sliocht focail ag tosú le ceannlitir as teaghráin téacs le Feidhm Sainithe ag an Úsáideoir
Sliocht príomhlitreacha ó teaghráin téacs le Feidhm Sainithe ag an Úsáideoir
Is féidir leis an gcód VBA seo a leanas cabhrú leat na príomhlitreacha a bhaint as cealla, déan mar seo é le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sliocht ach ceannlitreacha as teaghráin téacs:
ExtractCap Feidhm (Txt As Teaghrán) Mar Teaghrán 'Updateby Extendoffice
Application.Volatile Dim xRegEx As Object Set xRegEx = CreateObject ("VBSCRIPT.REGEXP") xRegEx.Pattern = "[^ AZ]" xRegEx.Global = True ExtractCap = xRegEx.Replace (Txt, "") Socraigh xRegEx = Níl aon fheidhm críochnaithe
3. Ansin sábháil an cód agus dún an cód seo, téigh ar ais chuig an mbileog oibre, iontráil an fhoirmle seo: = EXTRACTCAP (A2) isteach i gcill bhán inar mian leat an toradh a aschur, agus ansin an láimhseáil líonta a tharraingt anuas go dtí na cealla ar mhaith leat an fhoirmle seo a chur i bhfeidhm, agus baineadh na príomhlitreacha go léir ag an am céanna, féach an scáileán:
Sliocht focail ag tosú le ceannlitir as teaghráin téacs le Feidhm Sainithe ag an Úsáideoir
Más gá duit na focail a thosaíonn le príomhlitir a bhaint as teaghráin téacs, b’fhéidir go gcabhróidh an cód VBA seo a leanas leat.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, ansin cóipeáil agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sliocht focail ag tosú le ceannlitir:
Feidhm StrExtract (Str As Teaghrán) Mar Teaghrán 'Updateby Extendoffice
Application.Volatile Dim xStrList As Variant Dim xRet As String Dim I As Long If Len (Str) = 0 Ansin Feidhm Scoir xStrList = Scoilt (Str, "") Más UBound (xStrList)> = 0 Ansin Do I = 0 Go UBound ( xStrList) Más xStrList (I) = StrConv (xStrList (I), vbProperCase) Ansin xRet = xRet & xStrList (I) & "" Deireadh Más Next StrExtract = Clé (xRet, Len (xRet) - 1) Deireadh Má Feidhm Deiridh
3. Agus ansin an cód a shábháil agus an fhuinneog cód a dhúnadh, iontráil an fhoirmle seo: = StrExtract (A2) isteach i gcill bhán in aice le do chuid sonraí, ansin tarraing an láimhseáil líonta síos go dtí na cealla ar mhaith leat an toradh a fháil, agus baintear gach focal a thosaíonn le ceannlitir, féach an scáileán:
Na hUirlisí Táirgiúlachta Oifige is Fearr
Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%
- Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
- Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
- Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
- Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
- Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
- Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
- Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
- Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
- Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
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á!
