Excel. Ինչպես բաժանել սահմանազատված տեքստը տողերի

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

Ներկայացնում ենք այս աշխատանքը լուծելու երկու մեթոդ:

Սահմանազատված տեքստը բաժանեք տողերի՝ օգտագործելով VBA

Սահմանազատված տեքստը բաժանեք տողերի՝ օգտագործելով Power Query

Ահա VBA կոդ, որը կարող է արագորեն բաժանել սահմանազատված տեքստը տողերի:

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

2: սեղմեք Տեղադրել էջանիշ>> Մոդուլներ ստեղծել նոր դատարկ մոդուլ:

3. Պատճենեք և տեղադրեք ներքևի կոդը դատարկ մոդուլում:

VBA. բաժանել սահմանազատված տեքստը տողերի

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. Մամուլ F5 ստեղնը՝ «վազել» կոճակը սեղմելու համար  կոդը ակտիվացնելու համար երկխոսություն է բացվում, որպեսզի ընտրեք այն սյունակը, որը բացառում է վերնագիրը, որը պարունակում է սահմանազատված տեքստը, որն անհրաժեշտ է տողերի բաժանելու համար: Սեղմել OK.

5. Այնուհետև բացվում է երկրորդ երկխոսությունը՝ մուտքագրելու ձեր օգտագործած սահմանազատիչը: Այստեղ մուտքագրում է ստորակետ (,): Սեղմել OK.

Այժմ սահմանազատված տեքստերը բաժանվել են տողերի և կրկնվել են հարակից այլ սյունակներ:

  VBA-ն կփոխի բնօրինակ տվյալները, ավելի լավ է պահպանել դրանց պատճենը նախկինում:

Եթե ​​դուք Excel 2013 կամ ավելի նոր տարբերակներում եք, ապա Power Query լավ ընտրություն կլինի այս գործը լուծելու համար:

1. Ընտրեք տվյալների տիրույթը, սեղմելու համար Ամսաթիվ > Սեղանից / միջակայքից.

2. Բռնում Ստեղծեք աղյուսակը երկխոսություն, ստուգում Իմ սեղանը վերնագրեր ունի ինչպես ձեզ հարկավոր է, և սեղմեք OK.

Այնուհետեւ Power Query Խմբագիր պատուհանը ցուցադրվում է, և տվյալները ցուցադրվում են դրանում:

3. Սեղմեք այն սյունակի վրա, որը ցանկանում եք բաժանել սահմանազատված տեքստերը տողերի, և սեղմեք Փոխակերպել էջանիշ>> Պառակտված սյունակ > Սահմանազատողի կողմից.

Կամ կարող եք նաև ընտրել սյունակը և աջ սեղմել սյունակի վերնագրի վրա՝ համատեքստի ընտրացանկում այս հատկությունը ընտրելու համար:

4. Մեջ Split Column by Delimiter պատուհանից ընտրեք այն սահմանազատիչը, որը Ձեզ անհրաժեշտ է Ընտրեք կամ մուտքագրեք սահմանազատող բաժինը, ապա ընտրեք Սահմանազատողի յուրաքանչյուր երևույթ տարբերակ, այնուհետև ընդլայնել Ընդլայնված ընտրանքներ բաժին ընտրել Rows տարբերակ: Սեղմեք OK.

Այժմ սահմանազատված տեքստերը բաժանվել են տողերի։

5. Այնուհետև փակեք պատուհանը, դուրս է գալիս երկխոսություն, սեղմեք պահել կոճակը:

Այնուհետև աղյուսակի հետ կստեղծվի նոր թերթ:

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ... 

---

Office Tab - բերում է ներդիրավորված ինտերֆեյս Office- ին և շատ ավելի դյուրինացնում ձեր աշխատանքը

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

Կարդալ ավելին... Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում... Գնեք ...