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

Ինչպե՞ս Excel- ում տեքստի տողից դուրս բերել առաջին / վերջին / n- րդ բառը:

Դուք երբևէ տառապե՞լ եք այն խնդրով, որ անհրաժեշտ է որոշակի թերթ հանել տեքստի տողից աշխատանքային թերթում: Օրինակ, դուք ունեք տեքստային տողերի հետևյալ շարքը, որոնք անհրաժեշտ են դրանցից առաջին / վերջին կամ n- րդ բառը ստանալու համար, այստեղ ես կարող եմ խոսել այն լուծելու մի քանի արդյունավետ եղանակների մասին:


Բանաձևերով տողի տողից հանիր առաջին բառը կամ ազգանունը

Եթե ​​Ձեզ անհրաժեշտ է տեքստային տողերի ցանկից հանել առաջին բառը, հետևյալ բանաձևերը կարող են օգնել ձեզ:

Առաջին բառը արդյունահանելու համար խնդրում ենք բանաձևի ներքևում մուտքագրել դատարկ բջիջ և այնուհետև քաշել այս բջիջի Ավտոմատ լրացման բռնակը դեպի անհրաժեշտ տիրույթը:

= IF (ISERR (FIND ("", A2)), "", LEFT (A2, FIND ("", A2) -1))

Յուրաքանչյուր բջիջից վերջին բառը հանելու համար խնդրում ենք կիրառել այս բանաձևը.

= IF (ISERR (FIND ("", A2)), "", RIGHT (A2, LEN (A2) -FIND ("*", SUBSTITUTE (A2, "", "*", LEN (A2) -LEN ( ՓՈԽԱՐITԱԿ (A2, "", "")))))))

Եվ հիմա կտեսնեք, որ յուրաքանչյուր բջիջից արդյունահանվում է առաջին կամ վերջին բառը:

Նշումներ: Վերոնշյալ բանաձևերում A2 ցույց է տալիս այն բջիջը, որից դուք արդյունահանելու եք առաջին կամ վերջին բառը:

Դժվար է անգիր հիշել երկար բարդ բանաձևերը: Ingարմանալի գործիք օգնում է ձեզ արդյունահանել n- րդ բառը wմիայն մի քանի կտտոցով:

Երկար բանաձևերից վեր կարող են արդյունահանվել միայն առաջին և վերջին բառերը, բայց անօգուտ կլինի դուրս բերել նշված n- րդ բառը, ասում է երկրորդ բառը, վեցերորդ բառը և այլն: Նույնիսկ դուք կարող եք բանաձևեր լուծել խնդիրը լուծելու համար, բանաձևերը պետք է լինեն չափազանց բարդ է անգիր սովորելու և կիրառելու համար: Այստեղ առաջարկվում է Excel- ի համար Kutools- ի բջջային հատկության քաղել n- ի բառը, և դա կօգնի ձեզ հնարավորինս հեշտությամբ դուրս հանել nth բառը:


Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Get It Now

N- ի բառը դուրս բերեք տեքստի տողից `օգտագործողի կողմից սահմանված գործառույթով

Եթե ​​ցանկանում եք տեքստի տողից հանել երկրորդ, երրորդ կամ ցանկացած n- րդ բառը, ապա դրանով զբաղվելու համար կարող եք ստեղծել օգտագործողի կողմից սահմանված գործառույթ:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ պատուհան.

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, Դրանից հետո պահեք կոդը, այս օրինակում ես լարից կստանամ երրորդ բառը, այնպես որ մուտքագրեք այս բանաձևը = գտնել բառ (A2,3) դատարկ բջիջի մեջ B2 և այնուհետև քաշեք այս բջիջի Ավտոմատ լրացման բռնակը դեպի անհրաժեշտ տիրույթը: Տեսեք,

Նշում: Վերոնշյալ բանաձևում A2 այն բջիջն է, որտեղից ուզում ես բառ արդյունահանել, համարը 3 նշում է տողի երրորդ բառը, որը դուք արդյունահանելու եք, և կարող եք դրանք փոխել ըստ ձեզ անհրաժեշտության:


Յուրաքանչյուր բառ հանեք տեքստի տողից և թվարկեք դրանք հորիզոնական կամ ուղղահայաց

Այս մեթոդը կներկայացնի Kutools- ի Excel- ի համար Պառակտված բջիջներ օգտակար է յուրաքանչյուր բառը տեքստի լարային բջիջներից արդյունահանելու համար, ապա արդյունահանվող բառերը ցուցակագրել հորիզոնական կամ ուղղահայաց ՝ ելնելով քո կարիքներից:

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Անվճար փորձարկում հիմա:

1, Ընտրեք տեքստի լարային բջիջները, որոնցից արդյունահանելու եք նրանց բառերը և կտտացրեք այն Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ.

2, Բացման Split Cells երկխոսության դաշտում նշեք պառակտման տեսակը Տիպ բաժին, ստուգեք Տարածություն տարբերակը Նշեք տարանջատիչ բաժինը և սեղմել Ok կոճակ Տեսեք,

3, Այժմ նշեք նպատակակետի տիրույթը, որի մեջ արդյունահանվող բառերը դուրս կգաք, և կտտացրեք այն OK կոճակ

Եթե ​​ստուգել եք Բաժանել սյունակների տարբերակը վերը նշված Պառակտված բջիջների երկխոսության մեջ, յուրաքանչյուր բառ արդյունահանվում է յուրաքանչյուր տեքստի տողից և ցուցակվում է ուղղահայաց:

Եթե ​​ստուգել եք Բաժանվել շարքերում տարբերակը վերը նշված Պառակտված բջիջների երկխոսության մեջ, յուրաքանչյուր բառ արդյունահանվում է յուրաքանչյուր տեքստի տողից և ցուցակվում հորիզոնական:


Inարմանալի գործիքով Excel- ում հանեք տասներորդ բառը տեքստի տողից

Եթե ​​Kutools- ը տեղադրել եք Excel- ի համար, կարող եք օգտագործել դրա Formula Helper> Extract the nth word in cell feature ՝ նշված բջիջից հեշտությամբ դուրս հանել nth բառը:

Excel- ի համար նախատեսված գործիքներ - Ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար: Ամբողջական հնարավորությունների անվճար փորձարկում 30- օր, վարկային քարտ չի պահանջվում: Անվճար փորձարկում հիմա:

1, Ընտրեք այն բջիջը, որի վրա կտեղադրեք արդյունահանված բառը և կտտացրեք Կուտոլս > Բանաձևի օգնական > Բանաձևի օգնական այս հնարավորությունը միացնելու համար:

2, Բանաձևերի օգնական երկխոսության մեջ խնդրում ենք կատարել հետևյալը.
(1) Ընտրեք Տեքստ - ից Բանաձևի տեսակը բացվող ցուցակ;
(2) Կտտացրեք ՝ ընդգծելու համար Բջջում դուրս բերել իններորդ բառը է Ընտրեք բանաձեւ ցուցակի տուփ;
(3) Իսկ Բջիջ տուփ, նշեք այն բջիջը, որից բառ կհանեք;
(4) ներսում Իններորդը տուփ, նշեք համարը:

3. Սեղմեք Ok կոճակ Անհրաժեշտության դեպքում խնդրում ենք քաշել բանաձևի բջիջի ինքնալրացման բռնակը և պատճենել բանաձևը այլ բջիջներում:


Դեմո. Յուրաքանչյուր բառ հանեք տեքստի տողից և ցուցակագրեք դրանք հորիզոնական կամ ուղղահայաց


Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար գործիքներ Excel-ի համար, 30 օրվա ընթացքում անվճար փորձելու առանց սահմանափակման: Ներբեռնեք և անվճար փորձեք հիմա!

Առնչվող հոդվածներ քանակը:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (38)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այդ vba կոդը ֆանտաստիկ է, շատ շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործողի կողմից սահմանված այս գործառույթը հիանալի է: Մի տոննա շնորհակալություն այն կիսելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն! Լավ է աշխատել :-)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ԳԵՐԱԶԳԱՅԻՆ Օգտակար էր, ես մտածում էի, թե արդյոք որևէ մեկը գիտի ներբեռնվող, կամ պատճենահանվող և տեղադրվող օգտակար ձեռքով ստեղծված գործառույթների ցանկի մասին, ինչպիսին է «FindWord»-ը, որը ես կկարողանամ օգտագործել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես պարզապես մտածում էի, թե էլ ինչ կարող եմ տեղադրել Visual Basic բանաձևի մեջ, որը կարող է տվյալներից անմիջապես հետո հանել և ստորակետներ կամ գծիկներ... օրինակ՝ Fortin-
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, սա հիանալի է: Այն շատ լավ աշխատեց և նվազեցնում է մեր լարվածությունը, խնայում է շատ ժամանակ այս գործողության մեջ: Շնորհակալություն բոլոր նրանց, ովքեր աշխատել են այս ուղղությամբ և կիսվել...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ մեկը: Սա շատ լավ աշխատեց
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Սա իսկապես շատ ժամանակ է խնայում: Շնորհակալություն կիսվելու համար: Կարո՞ղ է ինչ-որ մեկը նաև առաջարկել, թե ինչպես կարող ենք vba-ով բառերը հակառակ ձևով հանել, օրինակ՝ վերջին բառը 1 է, երկրորդը աջից ձախ՝ 2 և այլն: Սա շատ կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ճիշտ չի աշխատում աղբյուրի տողի վրա, որը կազմված է ոչ բառերից (օրինակ՝ վաճառողի անունները, որին հաջորդում են մասերի համարները)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես կարող ենք փոխել տառատեսակները բջիջի n-րդ բառի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ գնահատված. Դա ինձ շատ օգնեց։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, շնորհակալություն ձեր կոդի համար: Դա ինձ ոգեշնչեց մի փոքր ընդլայնվել: Հաջորդ տողերով կարող եք ընտրել՝ վերջին բառը (0), մեկը, բայց վերջինը (-1), երկրորդից վերջինը (-2) և այլն: Անկախ բառերի քանակից: FindWord ֆունկցիան (Աղբյուրը որպես տող, դիրքը որպես ամբողջ թիվ) 'Թարմացնել 20150504 Dim arr() As String arr = VBA.Split(Source, " ") xCount = UBound(arr) Ընտրել Case Position Case -xCount To 0 FindWord = arr(xCount) + Դիրք) Case 1 To (xCount + 1) FindWord = arr(Position - 1) Case Else FindWord = "" End Select End Function
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ընդամենը երեկվա կոդին լրացում: Սա ավելացնում է լրացուցիչ տող՝ սկզբնաղբյուրի տողում ավելորդ տարածությունների համար՝ arr = VBA.Split(WorksheetFunction.Trim(Աղբյուր), " ") հարգանքներով, Allart
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, Ալան, սա հիանալի է, շնորհակալություն: :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալ եմ ՇԱՏ ՇԱՏ!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև: Շնորհակալություն ձեր կոդի համար, ես ցուցակի նախադասություններ ունեմ, և դրանցից մեկն ընդամենը 1 բառ է, և ձեր կոդը չի աշխատում, եթե այն ունի ընդամենը 1 բառ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չեմ կարող ստանալ առաջին բառի աշխատանքի կոդը, եթե իմ ցուցակից մի քանիսն ունեն միայն մեկ բառ բջիջում: օր. առաջին բառ ---> առաջին երկրորդ ---> [null] վերջին բառ ---> վերջին
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փորձեք սա (տե՛ս իմ պատասխանը վերևում). FindWord ֆունկցիան (Աղբյուրը որպես տող, դիրքը որպես ամբողջ թիվ) ' ստանում է 1-ին, 2-րդ, վերջին (0), երկրորդից վերջին (-2) և այլն, բառը տողից «Թարմացնել 20150505 Dim arr( ) Որպես String arr = VBA.Split(WorksheetFunction.Trim(Source), " ") xCount = UBound(arr) Ընտրել Case Position Case -xCount To 0 FindWord = arr(Position + xCount) Case 1 To xCount + 1 FindWord = arr (Դիրք - 1) Case Else FindWord = "" End Select
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև գիկեր, ես ունեմ այսպիսի բջիջ. 1 ABCD; 2 DEDF; 1 DED#3d; 4 FDWDS; 1 ED Եվ ես կցանկանայի հանել նիշը 1-ից հետո: Այսպիսով, ցանկանում էի ունենալ հետևյալ արդյունքը. ABCD;DED#3d;ED
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ 64 բիթ Excel 2013 և բացակայում եմ Morefunc հավելումը: Ելնելով վերը նշված կոդի վրա՝ ես եկել եմ Morefunc-ի WMID ֆունկցիայի այս փոխարինումը: Ես երախտապարտ կլինեմ, եթե ինձնից ավելի մասնագետ որևէ մեկը կարողանա կատարել դրա մաքրումը: Ֆունկցիա WMid1 (Աղբյուրը որպես տող, կամընտիր դիրքը որպես ամբողջ թիվ, կամընտիր բառերի հաշվարկը որպես ամբողջ թիվ, կամընտիր տարանջատիչ որպես տող) Dim arr() Որպես տող Dim xCount որպես ամբողջ թիվ Dim wCount որպես ամբողջ Dim wFirst որպես ամբողջ Dim wFirst որպես ամբողջ Dim wՎերջին որպես ամբողջ թիվ, ապա կետ = = 0 Եթե WordCount = 1 Ապա WordCount = 0 Եթե Separator = "" Այնուհետեւ Separator = " " arr = VBA.Split(Trim(Source), Separator) xCount = UBound(arr) + 1 If Position < 1 Այնուհետեւ wFirst = Application. Max(xCount + Position - WordCount + 1, 1) wLast = xCount + Position Others wFirst = Position - 0 wLast = Application.Min(xCount - 1, Position + WordCount - 1) Վերջ, եթե xCount < 2 or Abs(Position) > xCount Այնուհետեւ WMid2 = "" Այլապես WMid1 = arr(wFirst) For wCount = wFirst + 1 To wLast WMid1 = WMid1 & Separator & arr(wCount) Հաջորդ վերջ Եթե WMid1 = Trim(WMid1) End ֆունկցիա
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից