Note: The other languages of the website are Google-translated. Back to English
English English
  • dogfennau
  • Excel
  • Sut i dynnu gair cyntaf / olaf / nawfed o linyn testun yn Excel?

Sut i dynnu gair cyntaf / olaf / nawfed o linyn testun yn Excel?

A ydych erioed wedi dioddef gyda'r broblem bod angen i chi dynnu gair penodol o'r llinyn testun mewn taflen waith? Er enghraifft, mae gennych yr ystod ganlynol o dannau testun sydd eu hangen i gael y gair cyntaf / olaf neu nawfed oddi wrthynt, yma gallaf siarad am rai ffyrdd effeithiol ichi ei ddatrys.


Tynnwch y gair cyntaf neu'r enw olaf o'r llinyn testun gyda Fformiwlâu

Os oes angen i chi dynnu'r gair cyntaf o restr o dannau testun, gall y fformwlâu canlynol eich helpu chi.

I echdynnu'r gair cyntaf, rhowch y fformiwla isod i mewn i gell wag, ac yna llusgwch handlen AutoFill y gell hon i'r ystod yn ôl yr angen.

= OS (ISERR (FIND ("", A2)), "", CHWITH (A2, FIND ("", A2) -1))

I echdynnu'r gair olaf o bob cell, defnyddiwch y fformiwla hon:

= OS (ISERR (FIND ("", A2)), "", DDE (A2, LEN (A2) -FIND ("*", SUBSTITUTE (A2, "", "*", LEN (A2) -LEN ( SYLWEDD (A2, "", ""))))))

Ac yn awr fe welwch fod y gair cyntaf neu'r gair olaf yn cael ei dynnu o bob cell.

Nodiadau: Mewn fformwlâu uchod, A2 yn nodi'r gell y byddwch yn echdynnu'r gair cyntaf neu'r gair olaf ohoni.

Anodd cofio fformwlâu hir cymhleth? Offeryn rhyfeddol yn eich helpu i echdynnu'r nawfed G with sawl clic yn unig!

Uwchlaw fformiwlâu hir dim ond y gair cyntaf a'r gair olaf y gallant eu tynnu, ond byddant yn ddiwerth i echdynnu'r nawfed gair penodedig, meddai'r ail air, y chweched gair, ac ati. Hyd yn oed gallwch chi ddarganfod fformwlâu i ddatrys y broblem, rhaid i'r fformwlâu fod rhy gymhleth i'w gofio a'i gymhwyso. Yma, argymhellir Detholiad y nawfed gair mewn nodwedd gell o Kutools ar gyfer Excel, a bydd yn eich helpu i echdynnu'r nawfed gair mor hawdd â phosibl!


Kutools ar gyfer Excel — Yn cynwys mwy na

300
offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim
30
-diwrnod, dim angen cerdyn credyd! Get It Now

Tynnwch y nawfed gair o linyn testun gyda Swyddogaeth Diffiniedig Defnyddiwr

Os ydych chi am echdynnu'r ail, trydydd neu unrhyw nawfed gair o'r llinyn testun, gallwch greu swyddogaeth wedi'i diffinio gan ddefnyddiwr i ddelio ag ef.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau ffenestr.

Function FindWord(Source As String, Position As Integer)
'Update 20131202
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

3. Yna arbedwch y cod, yn yr enghraifft hon, byddaf yn cael y trydydd gair o'r llinyn, felly teipiwch y fformiwla hon = findword (A2,3) i mewn i gell wag B2, ac yna llusgwch handlen AutoFill y gell hon i'r amrediad yn ôl yr angen. Gweler y screenshot:

Nodyn: Yn y fformiwla uchod, A2 yw'r gell lle rydych chi am dynnu gair ohono, y rhif 3 yn nodi'r trydydd gair yn y llinyn y byddwch chi'n ei dynnu, a gallwch chi eu newid yn ôl yr angen.


Tynnwch bob gair o linyn testun a'u rhestru'n llorweddol neu'n fertigol

Bydd y dull hwn yn cyflwyno Kutools ar gyfer Excel's Celloedd Hollt cyfleustodau i dynnu pob gair o gelloedd llinyn testun, ac yna rhestru geiriau sydd wedi'u hechdynnu yn llorweddol neu'n fertigol yn seiliedig ar eich angen.

Kutools ar gyfer Excel — Yn cynwys mwy na

300
offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim
30
-diwrnod, dim angen cerdyn credyd! Treial Am Ddim Nawr!

1. Dewiswch y celloedd llinyn testun y byddwch chi'n tynnu eu geiriau ohonyn nhw, a chliciwch ar y Kutools > Uno a Hollti > Celloedd Hollt.

2. Yn y blwch deialog Celloedd Hollt agoriadol, nodwch y math rhaniad yn y math adran, edrychwch ar y Gofod opsiwn yn y Nodwch wahanydd adran, a chliciwch ar y Ok botwm. Gweler y screenshot:

3. Nawr nodwch yr ystod cyrchfan y byddwch chi'n allbwn geiriau sydd wedi'u hechdynnu i mewn, a chliciwch ar y OK botwm

Os gwnaethoch wirio'r Hollti i Golofnau opsiwn yn y dialog celloedd Hollti uchod, mae pob gair yn cael ei dynnu o bob llinyn testun a'i restru'n fertigol.

Os gwnaethoch wirio'r Hollti i Rhesi opsiwn yn y deialog Celloedd Hollt uchod, mae pob gair yn cael ei dynnu o bob llinyn testun a'i restru'n llorweddol.


Tynnwch y nawfed gair o linyn testun yn Excel gydag offeryn anhygoel

Os ydych wedi gosod Kutools ar gyfer Excel, gallwch ddefnyddio ei Heliwr Fformiwla> Tynnwch y nawfed gair yn nodwedd y gell i echdynnu'r nawfed gair o'r gell benodol yn gyflym.

Kutools ar gyfer Excel — Yn cynwys mwy na

300
offer defnyddiol ar gyfer Excel. Nodwedd llawn treial rhad ac am ddim
30
-diwrnod, dim angen cerdyn credyd! Treial Am Ddim Nawr!

1. Dewiswch y gell y byddwch chi'n rhoi'r gair wedi'i dynnu ohoni, a chlicio Kutools > Cynorthwyydd Fformiwla > Cynorthwyydd Fformiwla i alluogi'r nodwedd hon.

2. Yn y dialog Heliwr Fformiwlâu, gwnewch fel a ganlyn:
(1) Dewiswch Testun oddi wrth y Math o fformiwla rhestr ostwng;
(2) Cliciwch i dynnu sylw Tynnwch y nawfed gair yn y gell yn y Dewiswch fformiwla blwch rhestr;
(3) Yn y Cell blwch, nodwch y gell y byddwch yn tynnu gair ohoni;
(4) Yn Yr Nth blwch, nodwch y rhif.

3. Cliciwch y Ok botwm. Os oes angen, llusgwch y AutoFill Handle o'r gell fformiwla a chopïwch y fformiwla i gelloedd eraill.


Demo: echdynnwch bob gair o linyn testun a'u rhestru'n llorweddol neu'n fertigol


Kutools ar gyfer Excel yn cynnwys mwy na
300
offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt heb gyfyngiad
30
diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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 gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (38)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod vba hwnnw'n wych, diolch yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r swyddogaeth hon a ddiffinnir gan y defnyddiwr yn wych! Diolch tunnell am ei rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr! Wedi gweithio'n iawn! :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd hyn yn ddefnyddiol iawn, roeddwn i'n meddwl tybed a oedd unrhyw un yn gwybod am restr y gellir ei lawrlwytho, neu gopi a rhestr pastable o swyddogaethau llaw defnyddiol fel y "FindWord" y byddwn yn gallu ei ddefnyddio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roeddwn i'n meddwl tybed beth arall y gallwn i ei fewnosod yn y fformiwla Visual Basic a allai echdynnu a atalnodau neu doriadau yn syth ar ôl y data... ar gyfer ee Fortin-
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae hwn yn ardderchog. Gweithiodd yn dda iawn ac mae'n lleihau ein straen yn arbed llawer o amser yn y llawdriniaeth hon. Diolch i bawb a weithiodd ar hyn ac a rannodd...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Un da. Gweithiodd hyn yn dda iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae hyn wir yn arbed llawer o amser. Diolch am rannu A all rhywun hefyd awgrymu sut y gallwn echdynnu'r geiriau gyda vba mewn ffordd o chwith, ee gair olaf yw 1, yr ail o'r dde i'r chwith yw 2 ac yn y blaen. Bydd hyn yn cael ei werthfawrogi'n fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio'n iawn ar linyn ffynhonnell sy'n cynnwys geiriau nad ydynt yn eiriau (fel enwau gwerthwyr ac yna rhifau rhannol)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut gallwn ni newid ffontiau ar gyfer yr nfed gair mewn cell
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwerthfawrogir yn fawr. Fe helpodd fi lawer.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch am eich darn o god. Fe wnaeth fy ysbrydoli i ehangu ychydig. Gyda'r llinellau nesaf, gallwch ddewis: gair olaf (0), un ond olaf (-1), ail i olaf (-2) ac ati. Swyddogaeth FindWord(Ffynhonnell Fel Llinyn, Safle Fel Cyfanrif) 'Diweddariad 20150504 Dim arr() Fel String arr = VBA.Split(Ffynhonnell, " ") xCount = UBound(arr) Dewiswch Achos Position Case -xCount To 0 FindWord = arr(xCount) + Safle) Achos 1 I (xCount + 1) FindWord = arr(Sefyllfa - 1) Achos Arall FindWord = "" Diwedd Dewis Diwedd Swyddogaeth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dim ond ychwanegiad i'r cod ddoe. Mae hyn yn ychwanegu llinell ychwanegol i addasu ar gyfer bylchau segur yn y llinyn ffynhonnell: arr = VBA.Split(WorksheetFunction.Trim(Source), " ") o ran, Allart
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, Alan, mae hyn yn wych, diolch! :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo... Diolch am eich cod, mae gen i frawddegau rhestr, ac mae un ohonyn nhw dim ond 1 gair, ac nid yw eich cod yn gweithio os mai dim ond 1 gair sydd ganddo.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allaf gael y cod ar gyfer y gair cyntaf i weithio os mai dim ond un gair yn y gell sydd gan rai o fy rhestr. ee gair cyntaf ---> cyntaf ail ---> [null] gair olaf ---> olaf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar hyn (gweler fy ateb uchod): Swyddogaeth FindWord(Ffynhonnell Fel Llinyn, Swydd Fel Cyfanrif) ' yn cael 1af, 2il, olaf(0), ail i olaf(-2) ac ati, gair o linyn ' Diweddariad 20150505 Dim arr( ) Fel Llinyn arr = VBA.Split(WorksheetFunction.Trim(Source), "") xCount = UBound(arr) Dewiswch Achos Position Case -xCount To 0 FindWord = arr(Sefyllfa + xCount) Achos 1 I xCount + 1 FindWord = arr (Sefyllfa - 1) Achos Arall FindWord = "" Dewis Diwedd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo geeks, mae gen i gell fel hyn: 1 ABCD; 2 DEDF; 1 DED#3d; 4 FDWDS; 1 ED A hoffwn dynnu nod ar ôl 1. Felly dymunir cael canlyniad fel isod: ABCD;DED#3d;ED
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i 64bit Excel 2013 ac rydw i'n colli'r addin Morefunc. Yn seiliedig ar y cod uchod, rwyf wedi creu'r disodli hwn ar gyfer swyddogaeth WMID Morefunc. Byddwn yn ddiolchgar pe gallai unrhyw un sy'n fwy arbenigol na mi wneud unrhyw dacluso ohoni. Swyddogaeth WMid1(Ffynhonnell Fel Llinyn, Safle Opsiynol Fel Cyfanrif, Gwahanydd Dewisol Fel Cyfanrif, Gwahanydd Dewisol Fel Llinyn) Dim arr() Fel Llinyn Dim xCyfrif Fel Cyfanrif Dim wCyfrif Fel Cyfanrif Dim wYn Gyntaf Fel Cyfanrif Dim wYn Olaf Fel Cyfanrif Os Safle = 0 Yna Safle = 1 Os WordCount = 0 Yna WordCount = 1 Os Separator = " " Yna Separator = " " arr = VBA.Split(Trim(Ffynhonnell), Separator) xCount = UBound(arr) + 1 Os Safle < 1 Yna wFirst = Cais. Max(xCount + Swydd - WordCount + 1, 0) wLast = xCount + Safle Arall wFirst = Swydd - 1 wLast = Cais.Min(xCount - 1, Swydd + WordCount - 2) Diwedd Os Os xCount < 2 Neu Abs(Sition) > xCount Yna WMid1 = "" Arall WMid1 = arr(wFirst) Ar gyfer wCount = wFirst + 1 I wLast WMid1 = WMid1 & Gwahanydd & arr(wCount) Diwedd Nesaf Os WMid1 = Trimio(WMid1) Diwedd Swyddogaeth
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL