Note: The other languages of the website are Google-translated. Back to English

Cum se extrage primul / ultimul / al nouălea cuvânt din șirul de text în Excel?

Ați suferit vreodată cu problema că trebuie să extrageți un anumit cuvânt din șirul de text dintr-o foaie de lucru? De exemplu, aveți următoarea gamă de șiruri de text necesare pentru a obține primul / ultimul sau al n-lea cuvânt de la acestea, aici vă pot vorbi despre câteva modalități eficiente de a le rezolva.


Extrageți primul cuvânt sau numele de familie din șirul de text cu Formule

Dacă trebuie să extrageți primul cuvânt dintr-o listă de șiruri de text, următoarele formule vă pot ajuta.

Pentru a extrage primul cuvânt, vă rugăm să introduceți formula de mai jos într-o celulă necompletată, apoi trageți mânerul de completare automată a acestei celule în interval, după cum doriți.

= IF (ISERR (FIND ("", A2))), "", STÂNGA (A2, FIND ("", A2) -1))

Pentru a extrage ultimul cuvânt din fiecare celulă, vă rugăm să aplicați această formulă:

= IF (ISERR (FIND ("", A2) ")," ", DREAPTA (A2, LEN (A2) -FIND (" * ", SUBSTITUT (A2," "," * ", LEN (A2) -LEN ( SUBSTITUT (A2, "", "")))))))

Și acum veți vedea că primul sau ultimul cuvânt este extras din fiecare celulă.

note: În formulele de mai sus, A2 indică celula din care veți extrage primul sau ultimul cuvânt.

E greu de memorat formule lungi și complicate? Un instrument uimitor vă ajută să extrageți al doilea cuvânt with doar câteva clicuri!

Formulele lungi de mai sus pot extrage doar primul și ultimul cuvânt, dar vor fi inutile pentru a extrage al nouălea cuvânt specificat, spune al doilea cuvânt, al șaselea cuvânt, etc. prea complex pentru a fi memorat și aplicat. Aici, este recomandată caracteristica Extragerea cuvântului al nouălea în celulă Kutools pentru Excel și vă va ajuta să extrageți cuvântul al n-lea cât mai ușor posibil!


Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

Extrageți al doilea cuvânt din șirul de text cu funcția definită de utilizator

Dacă doriți să extrageți al doilea, al treilea sau orice cuvânt al n-lea din șirul de text, puteți crea o funcție definită de utilizator pentru a face față acestuia.

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Module fereastră.

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. Apoi salvați codul, în acest exemplu, voi primi al treilea cuvânt din șir, deci tastați această formulă = cuvânt de căutare (A2,3) într-o celulă goală B2, apoi trageți mânerul de completare automată a acestei celule în interval, după cum aveți nevoie. Vedeți captura de ecran:

Notă: În formula de mai sus, A2 este celula din care doriți să extrageți cuvântul, numărul 3 indică al treilea cuvânt din șir pe care îl veți extrage și îl puteți schimba după cum doriți.


Extrageți fiecare cuvânt din șirul de text și listați-le orizontal sau vertical

Această metodă va introduce Kutools pentru Excel Celule divizate utilitar pentru extragerea fiecărui cuvânt din celulele șirului de text și apoi listarea cuvintelor extrase pe orizontală sau pe verticală în funcție de nevoile dvs.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Încercare gratuită acum!

1. Selectați celulele șirului de text din care le veți extrage cuvintele și faceți clic pe Kutools > Merge & Split > Celule divizate.

2. În caseta de dialog Deschidere celule, specificați tipul de divizare în Tip secțiune, verificați Spaţiu opțiune în Specificați un separator și faceți clic pe Ok buton. Vedeți captura de ecran:

3. Acum specificați intervalul de destinație în care veți afișa cuvintele extrase și faceți clic pe OK buton

Dacă ați verificat Împărțiți în coloane opțiunea din dialogul Split Cells de mai sus, fiecare cuvânt este extras din fiecare șir de text și listat pe verticală.

Dacă ați verificat Împărțiți la rânduri opțiunea din caseta de dialog Split Cells, fiecare cuvânt este extras din fiecare șir de text și listat pe orizontală.


Extrageți al nouălea cuvânt din șirul de text în Excel cu un instrument uimitor

Dacă ați instalat Kutools pentru Excel, puteți utiliza Formula Helper> Extrage al n-lea cuvânt din celulă pentru a extrage cu ușurință al n-lea cuvânt din celula specificată.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Încercare gratuită acum!

1. Selectați celula la care veți pune cuvântul extras și faceți clic pe Kutools > Formula Helper > Formula Helper pentru a activa această caracteristică.

2. În caseta de dialog Formule Helper, faceți următoarele:
(1) Selectați Text de la Tipul formulei lista verticală;
(2) Faceți clic pentru a evidenția Extrageți al doilea cuvânt în celulă în Alegeți o formulă casetă listă;
(3) În Celulă caseta, specificați celula din care veți extrage cuvânt;
(4) În Al N-lea caseta, specificați numărul.

3. clic pe Ok buton. Dacă este necesar, trageți mânerul de completare automată a celulei cu formulă și copiați formula în alte celule.


Demo: extrageți fiecare cuvânt din șirul de text și listați-le orizontal sau vertical


Kutools pentru Excel include mai mult de 300 de instrumente la îndemână pentru Excel, gratuite pentru a încerca fără limitări în 30 de zile. Descărcați și încercați gratuit acum!

Legate de articole:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (38)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul vba este fantastic, mulțumesc mult.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Această funcție definită de utilizator este minunată! Mulțumesc mult pentru împărtășirea ei.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc mult! A funcționat bine! :-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru a fost SUPER util, mă întrebam dacă cineva știa de o listă care poate fi descărcată sau de o listă de copiere și lipire cu funcții utile realizate manual, cum ar fi „FindWord”, pe care le-aș putea folosi.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, mă întrebam ce altceva aș putea introduce în formula Visual Basic care ar putea extrage și virgule sau liniuțe imediat după date.. de exemplu, Fortin-
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, asta este excelent. A funcționat foarte bine și reduce tensiunea noastră economisește mult timp în această operație. Mulțumim tuturor celor care au lucrat la asta și au împărtășit...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna asta. Acest lucru a funcționat foarte bine
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, asta economisește foarte mult timp. Mulțumesc pentru distribuire Poate cineva să sugereze și cum putem extrage cuvintele cu vba într-un mod invers, de exemplu, ultimul cuvânt este 1, al doilea de la dreapta la stânga este 2 și așa mai departe. Acest lucru va fi mult apreciat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru nu funcționează corect pe un șir sursă format din non-cuvinte (cum ar fi numele furnizorilor urmate de numere de piesă)
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum putem schimba fonturile pentru al n-lea cuvânt dintr-o celulă
Acest comentariu a fost redus la minimum de moderatorul de pe site
Foarte apreciat. M-a ajutat foarte mult.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, mulțumesc pentru fragmentul tău de cod. M-a inspirat să mă extind puțin. Cu următoarele rânduri, puteți selecta: ultimul cuvânt (0), unul dar ultimul (-1), penultimul (-2) etc. Indiferent de numărul de cuvinte. Funcția FindWord(Source As String, Position As Integer) 'Update 20150504 Dim arr() As String arr = VBA.Split(Source, " ") xCount = UBound(arr) Select Case Position Case -xCount To 0 FindWord = arr(xCount) + Poziție) Case 1 To (xCount + 1) FindWord = arr(Poziție - 1) Case Else FindWord = "" End Select End Function
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, doar o completare la cod de ieri. Aceasta adaugă o linie suplimentară pentru a ajusta spațiile redundante din șirul sursă: arr = VBA.Split(WorksheetFunction.Trim(Source), " ") cu respect, Allart
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc, Alan, e grozav, mulțumesc! :)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumesc foarte mult!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună.. Mulțumesc pentru codul tău, am propoziții pe listă, iar una dintre ele doar 1 cuvânt, iar codul tău nu funcționează dacă are doar 1 cuvânt.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Nu pot obține codul pentru primul cuvânt să funcționeze dacă o parte din lista mea are un singur cuvânt în celulă. de ex. primul cuvânt ---> prima secundă ---> [null] ultimul cuvânt ---> ultimul
Acest comentariu a fost redus la minimum de moderatorul de pe site
Încercați acest lucru (a se vedea răspunsul meu de mai sus): Funcția FindWord(Sursa ca șir, Poziția ca întreg) ' obține primul, al doilea, ultimul (1), până la ultimul (-2) etc, cuvânt dintr-un șir ' Update 0 Dim arr( ) As String arr = VBA.Split(WorksheetFunction.Trim(Source), " ") xCount = UBound(arr) Select Case Position Case -xCount To 2 FindWord = arr(Position + xCount) Case 20150505 To xCount + 0 FindWord = arr (Poziție - 1) Case Else FindWord = "" End Select
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, geeks, am o celulă ca aceasta: 1 ABCD; 2 DEDF; 1 DED#3d; 4 FDWDS; 1 ED Și aș dori să extrag caracterul după 1. Așadar, am dorit să aibă un rezultat ca mai jos: ABCD;DED#3d;ED
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am Excel 64 pe 2013 de biți și îmi lipsește suplimentul Morefunc. Pe baza codului de mai sus, am venit cu acest înlocuitor pentru funcția WMID a Morefunc. Aș fi recunoscător dacă cineva mai expert decât mine ar putea efectua orice remediere. Funcția WMid1(Sursă ca șir, poziția opțională ca întreg, opțional Număr de cuvinte ca întreg, Separator opțional ca șir) Dim arr() Ca șir Dim xCount ca întreg Dim wCount ca întreg Dim wPrimul ca întreg Dim wUltima ca întreg dacă poziția = 0 Apoi poziție = 1 If WordCount = 0 Then WordCount = 1 If Separator = "" Then Separator = " " arr = VBA.Split(Trim(Source), Separator) xCount = UBound(arr) + 1 If Position < 1 Then wFirst = Application. Max(xCount + Poziție - Număr de cuvinte + 1, 0) wLast = xCount + Position Else wFirst = Poziție - 1 wLast = Application.Min(xCount - 1, Poziție + WordCount - 2) End If If xCount < 2 Sau Abs (Poziție) > xCount Then WMid1 = "" Else WMid1 = arr(wFirst) Pentru wCount = wFirst + 1 To wLast WMid1 = WMid1 & Separator & arr(wCount) Next End Dacă WMid1 = Trim(WMid1) Funcție de sfârșit
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL