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

Excel- ում ինչպե՞ս արագ տրոհել տողը տողով առ դեպ:

Excel- ում մենք սովորաբար տեքստը բաժանում ենք ֆիքսված լայնության կամ սահմանազատողի հետ Text to Columns գործառույթի հետ, բայց երբևէ փորձե՞լ եք տեքստը բաժանել մեծատառով և փոքրատառով: Օրինակ, դուք ունեք տվյալների ցուցակ, և գործի հիման վրա անհրաժեշտ է դրանք բաժանել երկու սյունակի. Մի սյունը պարունակում է փոքր տող, իսկ մյուսը պարունակում է մեծ տող, ինչպես ցույց է տրված նկարում: Text to Columns գործառույթը չի աջակցում այս գործողությունը, այնուամենայնիվ, ես կարող եմ հնարքներ ներկայացնել Excel- ում տեքստը տողով առ մեկ արագ բաժանելու համար:

Տեքստ բաժանեք ըստ գործի VBA- ի հետ

Տեքստը բաժանեք տողերի / սյունակների ՝ առանձնացնելով Excel- ի համար Kutools- ով


նետ կապույտ աջ պղպջակ Տեքստ բաժանեք ըստ գործի VBA- ի հետ

Excel- ում կա միայն մակրո կոդ ՝ տողը արագ բաժանելու համար ՝ փոքրատառի և մեծի հիման վրա:

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

2: սեղմեք Տեղադրել > Մոդուլներ, և ներքևում տեղադրեք կոդը դատարկին Մոդուլներ սցենար:

VBA. Պարան բաժանիր ըստ գործի:

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

փաստաթուղթ բաժանված գործով 1

3. Մամուլ F5 ստեղնը, և դուրս է գալիս երկխոսություն ՝ հիշեցնելու համար, որ ընտրեք տեքստեր ՝ բաժանելու համար: Տեսեք,
փաստաթուղթ բաժանված գործով 2

4: սեղմեք OK, և ընտրված տեքստերը բաժանվել են երկու սյունակի, և մեկը պարունակում է փոքրատառ, իսկ մյուսը ՝ մեծատառ:
փաստաթուղթ բաժանված գործով 3


նետ կապույտ աջ պղպջակ Տեքստը բաժանեք տողերի / սյունակների ՝ առանձնացնելով Excel- ի համար Kutools- ով

Շատ դեպքերում գուցե ցանկանաք բջիջը բաժանել բազմաթիվ շարքերի կամ սյունակների ՝ հիմնվելով որոշակի բնույթի վրա: Excel- ում ներկառուցված Text to Columns գործառույթը կարող է միայն օգնել բջիջը սյունակի վերափոխել ուղղակիորեն, բայց տողերի վերափոխման մեջ չաշխատել: Այնուամենայնիվ, հետ Excel- ի համար նախատեսված գործիքներ - հարմար և օգտակար գործիք, կարող եք կիրառել այն Պառակտված բջիջներ կոմունալ ՝ տողը արագորեն բաժանելու տողերի կամ սյունակի ՝ բաժանարարի կամ ֆիքսված լայնության հիման վրա:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Ընտրեք այն բջիջը, որը ցանկանում եք բաժանել և կտտացնել Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ, Տեսեք,
փաստաթուղթ բաժանված գործով 4

2. Մեջ Պառակտված բջիջներ երկխոսություն, ստուգեք պառակտման տեսակը, որը ցանկանում եք Տիպ բաժինը և գնացեք ստուգելու այն հատուկ սահմանազատիչը, որի վրա ցանկանում եք բաժանել ՝ հիմնվելով այստեղ Բաժանվել է Բաժին. Տեսեք,
փաստաթուղթ բաժանված գործով 5

3: սեղմեք Ok, բացվում է երկխոսություն ՝ հիշեցնելու համար, որ բջիջ ընտրեք ՝ բաժանված բովանդակությունը տեղադրելու համար: Տեսեք,
փաստաթուղթ բաժանված գործով 6

4. Ընտրելուց հետո կտտացրեք OK, և ընտրված բջիջը տարածության վրա բաժանվել է տողերի: Տեսեք,
փաստաթուղթ բաժանված գործով 7


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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