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

Hogyan vonható ki az első / utolsó / n-edik szó az Excel szöveges karakterláncából?

Szenvedte már valaha azt a problémát, hogy ki kell szednie egy bizonyos szót a munkalap szöveges karakterláncából? Például a következő szöveges karakterláncokkal rendelkezik, amelyek az első / utolsó vagy n-edik szó megszerzéséhez szükségesek, itt néhány hatékony módszerről tudok beszélni.


Bontsa ki az első szót vagy a vezetéknevet a szöveges karakterláncból a Képletek segítségével

Ha ki kell szednie az első szót a szöveges karakterláncok listájából, a következő képletek segíthetnek Önnek.

Az első szó kibontásához írja be az alábbi képletet egy üres cellába, majd húzza a cella automatikus kitöltési fogantyúját a kívánt tartományba.

= HA (ISERR (FIND ("", A2)), "", BAL (A2, FIND ("", A2) -1))

Az utolsó szó kibontásához minden cellából alkalmazza ezt a képletet:

= HA (ISERR (FIND ("", A2)), "", JOBB (A2, LEN (A2) -FIND ("*", SUBSTITUTE (A2, "", "*", LEN (A2) -LEN ( PÓT (A2, "", ""))))))

És most meglátja, hogy az első vagy az utolsó szót kivonják minden cellából.

Megjegyzések: A fenti képletekben A2 azt a cellát jelzi, amelyből az első vagy az utolsó szót kibontja.

Nehéz megjegyezni a hosszú bonyolult képleteket? Csodálatos eszköz segít kivonni az n-edik szótcsak több kattintással!

A hosszú képletek felett csak az első és az utolsó szót lehet kibontani, de haszontalan lesz a megadott n-es szó kibontása, mondja a második, a hatodik stb. Szót. A probléma megoldásához képletek is kitalálhatók, a képleteknek túl bonyolult a memorizáláshoz és alkalmazáshoz. Itt ajánlott a Kutools for Excel n-edik szó kibontása a cellában funkciója, és ez segít az n-edik szó minél egyszerűbb kibontásában!


Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Szerezd meg most

Bontsa ki az n-edik szót a szöveges karakterláncból a Felhasználó által definiált funkcióval

Ha ki akarja vonni a második, harmadik vagy bármelyik n szót a szöveges karakterláncból, létrehozhat egy felhasználó által definiált függvényt annak kezelésére.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok ablak.

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. Ezután mentse el a kódot, ebben a példában megkapom a harmadik szót a karakterláncból, ezért írja be ezt a képletet = keresőszó (A2,3) egy üres B2 cellába, majd húzza a cella AutoFill fogantyúját a kívánt tartományba. Lásd a képernyőképet:

Jegyzet: A fenti képletben A2 az a cella, ahonnan szót szeretnél kivonni, a szám 3 a sztring harmadik szavát jelöli, amelyet kibont, és szükség szerint megváltoztathatja őket.


Bontsa ki az egyes szavakat a szöveges karakterláncból, és sorolja fel vízszintesen vagy függőlegesen

Ez a módszer bevezeti a Kutools for Excel programot Hasított sejtek segédprogram, hogy kivonja az egyes szavakat a szöveges karakterlánc cellákból, majd vízszintesen vagy függőlegesen sorolja fel a kivont szavakat az Ön igényei szerint.

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Ingyenes próba most!

1. Jelölje ki azokat a szöveges karakterlánc cellákat, amelyekből kibontja a szavaikat, majd kattintson a gombra Kutools > Egyesítés és felosztás > Hasított sejtek.

2. A megnyíló cellák megosztása párbeszédpanelen adja meg a felosztás típusát a típus szakasz, ellenőrizze a Hely lehetőség a Adjon meg elválasztót szakaszban, és kattintson a Ok gomb. Lásd a képernyőképet:

3. Most adja meg a céltartományt, ahová a kibontott szavakat adja ki, majd kattintson a gombra OK gomb

Ha bejelölte a Oszlopokra osztás opciót a fenti Felosztott cellák párbeszédpanelen, minden szót kivonunk minden szöveges karakterláncból, és függőlegesen soroljuk fel.

Ha bejelölte a Felosztás sorokra opciót a fenti Felosztott cellák párbeszédpanelen, minden szót kivonunk minden szöveges karakterláncból, és vízszintesen soroljuk fel.


Csodálatos eszközzel vonja ki az n-edik szót az Excel szöveges karakterláncából

Ha telepítette a Kutools for Excel alkalmazást, használhatja a Formula Helper> Az n-edik szó kibontása a cellában funkciót, hogy gyorsan kivonja az n-edik szót a megadott cellából.

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Ingyenes próba most!

1. Jelölje ki azt a cellát, ahová a kibontott szót helyezi, majd kattintson Kutools > Formula Segítő > Formula Segítő a funkció engedélyezéséhez.

2. A Formula Helper párbeszédpanelen tegye a következőket:
(1) Válassza ki szöveg tól Képlet típus legördülő lista;
(2) Kattintson a kiemeléshez Bontsa ki a cellában az n-edik szót a Válasszon képletet lista mező;
(3) A Sejt mezőben adja meg azt a cellát, amelyből kivonja a szót;
(4) In Az N mezőben adja meg a számot.

3. Kattintson az Ok gomb. Ha szükséges, húzza a képletcella automatikus kitöltési fogantyúját, és másolja a képletet más cellákba.


Bemutató: vonjon ki minden szót a szöveges karakterláncból, és sorolja fel vízszintesen vagy függőlegesen


Kutools az Excel számára több mint 300 praktikus eszközt tartalmaz az Excel számára, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Letöltés és ingyenes próba most!

Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (38)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a vba kód fantasztikus, köszönöm szépen.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a felhasználó által definiált funkció fantasztikus! Nagyon köszönöm, hogy megosztottad.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönöm! Jól működött! :-)
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez SZUPER hasznos volt, kíváncsi voltam, hogy tud-e valaki letölthető vagy másolható listát a hasznos kézzel készített funkciókról, például a "FindWord"-ről, amit használni tudnék.
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok, csak azon tűnődtem, hogy mit tudnék még beszúrni a Visual Basic képletbe, amivel az adatok után azonnal vesszőket vagy gondolatjeleket lehetne kivonni.. pl Fortin-
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ez kiváló. Nagyon jól működött, és csökkenti a terhelést, így sok időt takarít meg ebben a műveletben. Köszönöm mindenkinek, aki ezen dolgozott és megosztotta...
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó. Ez nagyon jól működött
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Ezzel valóban sok időt takaríthat meg. Köszönöm a megosztást Valaki azt is tudna ajánlani, hogyan tudnánk fordított módon kivonni a szavakat vba-val, pl. az utolsó szó 1, a második jobbról balra 2 és így tovább. Ezt nagyra értékeljük.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nem működik megfelelően olyan forráskarakterláncokon, amelyek nem szavakból állnak (például a szállítók nevei után cikkszámok).
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan változtathatunk betűtípust az n-edik szóhoz egy cellában
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyra értékeljük. Nekem nagyon sokat segített.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Köszönjük a kódrészletet. Ez inspirált, hogy kicsit bővítsem. A következő sorok közül választhat: utolsó szó (0), egy de utolsó (-1), második az utolsóig (-2) stb. A szavak számától függetlenül. Funkció FindWord(Forrás karakterláncként, pozíció egész szám) 'Frissítés 20150504 Dim arr() As String arr = VBA.Split(Forrás, " ") xCount = UBound(arr) Eset kiválasztása Pozíció Case -xCount To 0 FindWord = arr(xCount + Pozíció) 1. eset - (xCount + 1) FindWord = arr(Position - 1) Eset Else FindWord = "" Vége Válassza ki a befejező függvényt
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, csak egy kiegészítés a tegnapi kódhoz. Ez egy extra sort ad a forráskarakterlánc redundáns szóközeinek beállításához: arr = VBA.Split(WorksheetFunction.Trim(Source), " ") Üdvözlettel, Allart
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, Alan, ez nagyszerű, köszönöm! :)
A weboldal moderátora ezt a megjegyzést minimalizálta
NAGYON KÖSZÖNÖM!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Köszönöm a kódot, vannak listás mondataim, és az egyik csak 1 szavas, és a kódod nem működik, ha csak 1 szóból áll.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem tudom működésre bírni az első szó kódját, ha a listámban csak egy szó van a cellában. pl. első szó ---> első második ---> [null] utolsó szó ---> utolsó
A weboldal moderátora ezt a megjegyzést minimalizálta
Próbáld ki ezt (lásd a fenti válaszomat): A FindWord(Source As String, Position As Integer) függvény ' kapja az 1., 2nd, last(0), másodiktól utolsóig(-2) stb., szó egy karakterláncból ' Frissítés 20150505 Dim arr( ) As String arr = VBA.Split(WorksheetFunction.Trim(Source), " ") xCount = UBound(arr) Eset kiválasztása Pozíció Eset -xCount To 0 FindWord = arr(Position + xCount) Eset 1 To xCount + 1 FindWord = arr (Pozíció - 1) Case Else FindWord = "" Vége kijelölés
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok geekek, van egy ilyen cellám: 1 ABCD; 2 DEDF; 1 DED#3d; 4 FDWDS; 1 ED És szeretném kivonni a karaktert az 1 után. Így az alábbi eredményre vágytam: ABCD;DED#3d;ED
A weboldal moderátora ezt a megjegyzést minimalizálta
64 bites Excel 2013-am van, és hiányzik a Morefunc bővítmény. A fenti kód alapján kitaláltam ezt a helyettesítést a Morefunc WMID funkciójához. Megköszönném, ha valaki nálam jártasabb rendbetételt végezne. Függvény WMid1(Forrás mint karakterlánc, választható pozíció egész szám, opcionális szószám mint egész, opcionális elválasztó mint karakterlánc) Dim arr() As String Dim xCount As Integer Dim wCount As Integer Dim wFirst As Integer Dim wUtolsó As Integer = Pozíció = 0 If WordCount = 1 then WordCount = 0 If Separator = "" Then Separator = " " arr = VBA.Split(Trim(Source), Separator) xCount = UBound(arr) + 1 If Position < 1 then wFirst = Application. Max(xCount + Pozíció - WordCount + 1, 1) wLast = xCount + Position Else wElső = Pozíció - 0 wLast = Alkalmazás.Min(xCount - 1, Pozíció + WordCount - 1) Vége, ha xCount < 2 vagy Abs(pozíció) > xCount Akkor WMid2 = "" Más esetben WMid1 = arr(wFirst) For wCount = wFirst + 1 To wLast WMid1 = WMid1 & Elválasztó & arr(wCount) Következő vége Ha WMid1 = Trim(WMid1) End Function
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi