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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
