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

Ինչպե՞ս փոխել տեքստի տողը կամ բառերի հերթականությունը Excel- ում:

Երբ օգտագործում եք Excel- ի աշխատաթերթը, ինչպե՞ս եք հետ շրջում տեքստի տողը կամ բառերի հերթականությունը Excel- ում: Օրինակ, դուք ուզում եք հակադարձել «Excel- ը օգտակար գործիք է մեզ համար"To"su rof loot lufesu a si lecxE» Կամ երբեմն կարող եք հետ շեղել կարգի բառերը, ինչպիսիք են «Excel, Word, PowerPoint, OneNote"To"OneNote, PowerPoint, Word, Excel» Սովորաբար դա որոշակիորեն դժվար է լուծել այս խնդիրը: Խնդրում ենք դիտել հետևյալ մեթոդները.

Հակադարձել տեքստի տողը ՝ օգտագործողի կողմից սահմանված գործառույթով

Հակառակ բառերի կարգը, որոնք առանձնացված են VBA կոդով հատուկ բաժանարարով

Հակադարձ տեքստի տողի կամ բառերի կարգը Kutools- ի համար Excel- ի համար արագ և հեշտությամբ


նետ կապույտ աջ պղպջակ Հակադարձել տեքստի տողը ՝ օգտագործողի կողմից սահմանված գործառույթով

Ենթադրելով, որ դուք ունեք մի շարք տեքստային տողեր, որոնք ցանկանում եք հակադարձել, ինչպիսիք են «Excel- ում ավելացնել առաջատար զրոներ"To"lecxE ni sorez gnidael dda» Տեքստը կարող եք հակադարձել հետևյալ քայլերով.

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

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

Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))
End Function

3, Եվ ապա պահեք և փակեք այս կոդը, վերադառնաք աշխատանքային թերթ և մուտքագրեք այս բանաձևը. = reversestr (A2) արդյունքը դնելու համար դատարկ բջիջի մեջ տես նկարի նկարը.

4, Դրանից հետո քաշեք լրացման բռնակը ներքև ՝ այս բանաձևը պատճենելու համար, և բջիջներում տեքստը միանգամից հարգվում է, տեսեք,


նետ կապույտ աջ պղպջակ Հակառակ բառերի կարգը, որոնք առանձնացված են VBA կոդով հատուկ բաժանարարով

Եթե ​​ունեք բջջային բառերի ցուցակ, որոնք բաժանվում են ստորակետերով, քանի որ սա «ուսուցիչ, բժիշկ, ուսանող, բանվոր, վարորդ», Եվ դուք ուզում եք հետ շեղել այս կարգի բառերըմեքենա վարել, աշխատող, ուսանող, բժիշկ, ուսուցիչ» Այն լուծելու համար կարող եք նաև օգտագործել follow VBA- ն:

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

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

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

3, Դրանից հետո սեղմեք F5 ստեղնը, ցուցադրվում է երկխոսություն, ընտրեք ընդգրկույթ, որի հետ աշխատելու համար: Տեսեք,

4, Եվ հետո սեղմեք Ok, մեկ այլ երկխոսություն է դուրս գալիս, որպեսզի դուք հստակեցնեք այն տարանջատիչը, որի վրա ցանկանում եք հետ շրջել բառերը, տես նկարի նկարը.

5. Այնուհետեւ կտտացրեք OK, և կտեսնեք, որ ընտրված բառերը հակադարձվում են, տե՛ս սքրինշոթեր.


նետ կապույտ աջ պղպջակ Հակադարձ տեքստի տողի կամ բառերի կարգը Kutools- ի համար Excel- ի համար արագ և հեշտությամբ

The Excel- ի համար նախատեսված գործիքներ'S Հակադարձ տեքստի պատվեր կարող է օգնել ձեզ արագ և հարմար կերպով փոխել տարբեր տեքստային տողերը: Այն կարող է կատարել հետևյալ գործողությունները.

Հակադարձեք տեքստը աջից ձախ, օրինակ ՝ «թակել որոշ բառեր"To"sdrow emos pat";

Հակադարձ տեքստը բաժանված է տարածությամբ կամ այլ հատուկ նիշերով, ինչպիսիք են «խնձորի նարնջի խաղող"To"խաղողի նարնջի խնձոր";

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

Հակադարձեք տեքստը աջից ձախ.

1, Ընտրեք այն տիրույթը, որը ցանկանում եք հակադարձել:

2: Սեղմեք Կուտոլս > Տեքստային գործիքներ > Հակադարձ տեքստի պատվեր, տես նկարի նկարը.

3, Մեջ Հակադարձ տեքստ երկխոսության տուփ, ընտրեք պատշաճ տարբերակը Բաժանիչ որոնք համապատասխանում են բջիջների արժեքներին: Եվ դուք կարող եք նախադիտել արդյունքները ՝ Preview Pane, Տեսեք,

 Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Հակադարձ տեքստը բաժանված է տարածությամբ կամ այլ հատուկ նիշերով.

Այս հատկությունը կարող է նաև օգնել ձեզ հետ շրջել տեքստի տողերը, որոնք առանձնացված են հատուկ նիշերով:

1. Ընտրեք բջիջները և կիրառեք այս օգտակար ծրագիրը ՝ կտտացնելով Կուտոլս > Տեքստ > Հակադարձ տեքստի պատվեր.

2. Է Հակադարձ տեքստ երկխոսության տուփ, ընտրեք բաժանարարը, որն առանձնացնում է այն բջիջի արժեքները, որոնց վրա ցանկանում եք փոխել բառերը, որոնց հիման վրա կարելի է փոխել, տեսեք,

3. Այնուհետեւ կտտացրեք Ok or Դիմել, բջիջներում բառերը միանգամից հակադարձվել են: Տեսեք սքրինշոթերը.

ՆշումՍտուգում Բաց թողնել ոչ տեքստը բջիջները ՝ կանխելու համար ընտրված տիրույթի համարները հետ շրջելը:

Այս գործառույթի մասին ավելին իմանալու համար այցելեք Հակադարձ տեքստի պատվեր.

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


նետ կապույտ աջ պղպջակ Դեմո. Հակադարձ տեքստի տողը, որը հիմնված է Excel- ի համար հատուկ բաժանարարի վրա

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

Առնչվող հոդված:

Ինչպե՞ս Excel- ում մատով խփել անուն-ազգանունը բջիջներում:


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

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 ներքևում

 

Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (19)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա աբսուրդ է։ Այսքան կոդ՝ տողը հակադարձելու պարզ առաջադրանք կատարելու համար: :o Մոդուլում պետք է ավելացվի ընդամենը 3 տող ֆունկցիա, ինչպես ստորև. strrev ֆունկցիան (strValue As String) strrev = StrReverse(strValue) End Function Այժմ =strrev(A1) բանաձևը կարող է օգտագործվել Excel թերթում: Սա աշխատում է, քանի որ StrReverse-ը VBA-ի ներկառուցված ֆունկցիան է: :D
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մեկ այլ... Function InvertText(str As String) 'Faseeh Muhammad Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m End Function
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ներողություն, մի փոքր խմբագրում եմ ֆունկցիան InvertText(str As String) «Faseeh Muhammad Dim curr As String Dim m As Integer For m = Len(str) Դեպի 1 Քայլ -1 countRepp = countRepp & Mid(str, m, 1) Հաջորդ m Inverttext Վերջի գործառույթը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն բոլորին, ես փորձել եմ այս ֆունկցիան. Sub ReverseText() 'Updateby20131128 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.RangeBox, xTitleId, WorkRng.Address, Type:=8) Յուրաքանչյուր Rng-ի համար WorkRng-ում xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" For i = 1 To xLen getChar = VBA.Right(xValue, 1) xValue = VBA.Left(xValue, xLen - i) xOut = xOut & getChar Հաջորդ Rng.Value = xOut Next End Sub, բայց երբ ես այն գործարկել եմ թվերով, այն ջնջել է բոլոր զրոները: Դուք գիտե՞ք գործառույթ, որը չի ջնջում զրոները: շնորհակալություն!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործեք Vineet-ի ֆունկցիայի կոդը որպես մոդուլ և բանաձևն օգտագործելիս օգտագործեք այս հնարքը՝ =strrev(""&D9&""), որտեղ D9-ը պարունակում է համարը: Vineet-ի VBA կոդը այդ ֆունկցիայի համար հետևյալն է. strrev ֆունկցիան (strValue As String) strrev = StrReverse(strValue) End Function
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օգտագործեք սա: Տեղադրեք ձեր մուտքագրումը A1-ում, այնուհետև ելքը կլինի B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" For i = 1 To xlen GetText = VBA.Right(xvalue, 1) xvalue = VBA.Left(xvalue, xlen - i) xoutput = xoutput & GetText Next i Range("B1").Value = xooutput Range( «C1»): Արժեք = xlen միջակայք («D1»). Արժեք = xvalue Վերջ ենթ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նկատում եմ, որ շատ մարդիկ նորից հորինում են անիվը՝ կատարելով ձախ և աջ հրամաններ, VB6-ն աջակցում է լարային հակադարձ SYNTAX. & X).Select stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Հաջորդը i Մեկ այլ հնարամիտ հնարք կլինի նախապես լրացնել զրոները, եթե արժեքները: 1 տարեկանից ցածր, բայց պետք է լինի ժամանակի ձևաչափով, ինչպիսին է «5:10:10», այլ ոչ թե «01:24:10» intMins = 1 stMinutes = right («24» & intMins, 1) արդյունք = 00
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շնորհակալություն, դա իսկապես օգտակար է ինձ համար :roll:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես կցանկանայի հակադարձել ամսաթվերը: 20/11/2015 - 2015/11/20 Օգնո՞ւմ եք: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ամսաթվերի համար անհրաժեշտ է միայն փոխել բջիջի ձևաչափը անհրաժեշտ ձևաչափի: Աջ սեղմեք այն բջիջի վրա, որը ցանկանում եք շրջել և ընտրել բջիջի ձևաչափը: Կատեգորիայի բաժնում ընտրեք Ամսաթիվ և փոխեք գտնվելու վայրը, որտեղ էլ որ լինեք, ԱՄՆ կամ Չեխիա կամ մեկ այլ երկիր, որը կարող է օգտագործել ձեզ հետաքրքրող ձևաչափը: Այնուհետև ընտրեք այն, որը համապատասխանում է ձեր պահանջներին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն բոլորին, ես չունեմ Kutools՝ տեքստի նիշը փոխելու համար, եթե որևէ մեկն ունի այս գործիքները և ցանկանում է օգնել ինձ, խնդրում եմ ուղարկել ինձ էլ. իմ էլփոստն է. [b][b]mohanned1@windowslive.com[/b][/b] հարգանքներով՝
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
խնդրում ենք անցնել excel-ում հակադարձ տողով Google-ում որոնելուց հետո excell office կայքի կողմից տրված հրահանգները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավոր է հակադարձել տեքստը բանաձևի միջոցով, այն կրկնվող է և սահմանափակվում է նրանով, թե որքան հեռու եք պատրաստ գնալու և կախված է Excel նիշերի քանակից, որոնք թույլ կտան բանաձևի տողում: Տեքստի առավելագույն երկարությունը կկազմի 30 նիշ և գտնվում է A1 բջիջում: B1 բջիջը կարդա՝ =TRIM(MID(LEFT(A1&REPT(" ",31),31),30,1)&MID(LEFT(A1&REPT(" ",31),31),29,1)&MID(LEFT( A1&REPT(" ",31),31),28,1)&MID(LEFT(A1&REPT(" ",31),31),27,1)&MID(LEFT(A1&REPT(" ",31),31),26,1 ,1)&MID(LEFT(A31&REPT(" ",31),25,1),1)&MID(LEFT(A31&REPT(" ",31),24,1),1)&MID(LEFT(A31&REPT(" ", 31),23,1),1)&MID(LEFT(A31&REPT(" ",31),22,1),1)&MID(LEFT(A31&REPT(" ",31),21,1),1)&MID( LEFT(A31&REPT(" ",31),20,1),1)&MID(LEFT(A31&REPT("",31),19,1),1)&MID(LEFT(A31&REPT(" ",31),18,1) ,1)&MID(LEFT(A31&REPT(" ",31),17,1),1)&MID(LEFT(A31&REPT(" ",31),16,1),1)&MID(LEFT(A31&REPT(" ",31),15,1),1)&MID(LEFT(A31&REPT(" ",31),14,1),1)&MID(LEFT(A31&REPT(" ",31),13,1),1) &MID(LEFT(A31&REPT(" ",31),12,1),1)&MID(LEFT(A31&REPT(" ",31),11,1),1)&MID(LEFT(A31&REPT(" ",31), 10,1),1)&MID(LEFT(A31&REPT(" ",31),9,1),1)&MID(LEFT(A31&REPT(" ",31),8,1),1)&MID(LEFT(A31&REPT) (" ",31),7,1),1)&MID(LEFT(A31&REPT(" ",31),6,1),1)&MID(LEFT(A31&REPT(" ",31),5,1),1, 31)&MID(LEFT(A31&REPT(" ",4,1),1),31)&MID(LEFT(A31&REPT(" ",3,1),1),31)&M ID(LEFT(A31&REPT(" ",2,1),1),31)&MID(LEFT(A31&REPT("",1,1),1),1)) Արդյունք՝ A1. Դունկան Սալիվան-Շոու B31: wahS -navilluS nacnuD Հիմնականում ձեր տեքստը A1 բջիջում դառնում է 1 նիշ՝ ավելացնելով բավականաչափ բացատներ դա հնարավոր դարձնելու համար, և յուրաքանչյուր նիշ ընթերցվում է առանձին-առանձին աջից ձախ, մինչև հասնեք առաջին նիշին: Սա կհանգեցնի նրան, որ ձեր հակադարձ տեքստը կպարունակի առաջատար բացատներ, որոնք TRIM հրամանը հեռացնում է ձեզ համար: Երկարությունը նվազեցնելու կամ ավելացնելու համար դուք կհեռացնեիք կամ կավելացնեիք յուրաքանչյուր հայտարարություն: REPT հայտարարության մեջ թիվը պետք է լինի XNUMX-ով ավելի, քան այն առավելագույն երկարությունը, որի վրա դուք աշխատում եք, և ձեր առաջին MID քաղվածքը կսկսվի առավելագույն երկարությամբ՝ հասնելով մինչև XNUMX-ի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գտա, որ բնօրինակ Sub-ը արդյունքները տվեց լրացուցիչ հառաչելով բոլոր ընտրված բջիջների վերջում: Այսպիսով, ես շտկեցի այս մասը: For i = UBound(strList) Դեպի 0 Քայլ -1 Եթե i > 0 Ապա xOut = xOut & strList(i) & Sigh Այլապես xOut = xOut & strList(i) Հաջորդ Rng.Value = xOut
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է հակառակը սկսել որոշակի նիշերի երկարությամբ (օգտագործողի կողմից սահմանված ֆունկցիայի կամ VBA կոդի համար): Օրինակ, հակադարձ բջիջների A1 արժեքները, որոնք սկսվում են նիշերի հաշվարկից հետո, որը հավասար է B1 արժեքին: Այսպիսով, եթե B1-ը 10 նիշ է, հակառակը կսկսվի A11-ի 1+ նիշերից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն. Այս կոդը շատ լավ օգնեց ընկերոջս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
հիանալի, շատ օգտակար, շնորհակալություն մանրամասները կիսելու համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա իսկապես մեծ օգնություն է... Անչափ շնորհակալ եմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ik zoek een manier om een ​​heleboel woorden in 'rijm-fabetische volgorde' te zetten. Dus de laatste letters van het woord moeten in alfabetische volgorde. Ի՞նչ եք կարծում VrGr Amanda
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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