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- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

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

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

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

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