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
3. Մամուլ F5 ստեղնը, և դուրս է գալիս երկխոսություն ՝ հիշեցնելու համար, որ ընտրեք տեքստեր ՝ բաժանելու համար: Տեսեք,
4: սեղմեք OK, և ընտրված տեքստերը բաժանվել են երկու սյունակի, և մեկը պարունակում է փոքրատառ, իսկ մյուսը ՝ մեծատառ:
Տեքստը բաժանեք տողերի / սյունակների ՝ առանձնացնելով Excel- ի համար Kutools- ով
Շատ դեպքերում գուցե ցանկանաք բջիջը բաժանել բազմաթիվ շարքերի կամ սյունակների ՝ հիմնվելով որոշակի բնույթի վրա: Excel- ում ներկառուցված Text to Columns գործառույթը կարող է միայն օգնել բջիջը սյունակի վերափոխել ուղղակիորեն, բայց տողերի վերափոխման մեջ չաշխատել: Այնուամենայնիվ, հետ Excel- ի համար նախատեսված գործիքներ - հարմար և օգտակար գործիք, կարող եք կիրառել այն Պառակտված բջիջներ կոմունալ ՝ տողը արագորեն բաժանելու տողերի կամ սյունակի ՝ բաժանարարի կամ ֆիքսված լայնության հիման վրա:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1. Ընտրեք այն բջիջը, որը ցանկանում եք բաժանել և կտտացնել Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ, Տեսեք,
2. Մեջ Պառակտված բջիջներ երկխոսություն, ստուգեք պառակտման տեսակը, որը ցանկանում եք Տիպ բաժինը և գնացեք ստուգելու այն հատուկ սահմանազատիչը, որի վրա ցանկանում եք բաժանել ՝ հիմնվելով այստեղ Բաժանվել է Բաժին. Տեսեք,
3: սեղմեք Ok, բացվում է երկխոսություն ՝ հիշեցնելու համար, որ բջիջ ընտրեք ՝ բաժանված բովանդակությունը տեղադրելու համար: Տեսեք,
4. Ընտրելուց հետո կտտացրեք OK, և ընտրված բջիջը տարածության վրա բաժանվել է տողերի: Տեսեք,
Գրասենյակի արտադրողականության լավագույն գործիքները
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
