Általában a Szöveg oszlopba funkciót használhatja a cellák tartalmának több oszlopra történő felosztására egy adott határolóval, például vesszővel, ponttal, pontosvesszővel, perjellel stb. De előfordulhat, hogy a határolt cellatartalmat több sorra kell felosztania. és ismételje meg a többi oszlopból származó adatokat az alábbi képernyőképen látható módon. Van valami jó módja ennek a feladatnak az Excelben való kezelésére? Ez az oktatóanyag bemutat néhány hatékony módszert ennek a feladatnak az Excelben való elvégzéséhez.

Videó: Szöveges karakterláncok felosztása határolóval több sorra

A. módszer: VBA kóddal ossza fel a tagolt szöveget több sorra

Ebben a részben bemutatok két VBA-kódot, amelyek segítenek felosztani a cellák tartalmát, amelyeket bizonyos határolójel választ el.

Szöveg felosztása vesszővel, szóközzel, pontosvesszővel stb. elválasztva.

A normál határolóval (például vesszővel, szóközzel, pontosvesszővel, perjellel stb.) elválasztott szöveges karakterláncok felosztásához a következő kód tehet egy szívességet. Kérjük, kövesse az alábbi lépéseket:

 Megjegyzések: Ez a kód nem támogatás Kibont, jobb, ha biztonsági másolatot készít az adatokról a kód alkalmazása előtt.

1. lépés: Nyissa meg a VBA-modul szerkesztőjét, és másolja ki a kódot

1. Aktiválja a használni kívánt lapot. És akkor nyomja meg Alt + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. A megnyíló ablakban kattintson a gombra betétlap > Modulok új üres modul létrehozásához.

3. Ezután másolja ki és illessze be az alábbi kódot az üres modulba.

VBA-kód: A szöveg felosztása adott határolóval (vessző, pont, szóköz stb.)

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    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)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        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(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub   

2. lépés: Futtassa le a kódot az eredmény eléréséhez

1. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához. Ezután megjelenik egy prompt ablak, amely emlékezteti Önt arra, hogy a cellákban található a szétválasztott szöveg, lásd a képernyőképet:

2. Ezután kattintson a gombra OK, megjelenik egy másik prompt mező, hogy emlékeztesse Önt arra, hogy be kell írnia azt az elválasztót, amely alapján fel szeretné osztani az adatokat. Ide írok egy vesszőt és egy szóközt (, ), lásd a képernyőképet:

3. Végül kattintson OK gomb. Most látni fogja, hogy a kiválasztott szöveges karakterláncok a vessző alapján sorokra vannak osztva, és a többi relatív oszlop adatai megismétlődnek az alábbi képernyőképek szerint:

Szöveg felosztása sortöréssel elválasztva

Ha a cella tartalmát sortörés választja el, és több sorra szeretné felosztani, itt van egy másik VBA-kód, amely segíthet.

 Megjegyzések: Ez a kód nem támogatás Kibont jobb, ha biztonsági másolatot készít az adatokról a kód alkalmazása előtt.

1. lépés: Nyissa meg a VBA-modul szerkesztőjét, és másolja ki a kódot

1. nyomja meg Alt + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. A megnyíló ablakban kattintson a gombra betétlap > Modulok új üres modul létrehozásához.

3. Ezután másolja ki és illessze be az alábbi kódot az üres modulba.

VBA-kód: A szöveg felosztása sortöréssel

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    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 = Chr(10)
    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)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        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(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub 

2. lépés: Futtassa le a kódot az eredmény eléréséhez

1. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához. A felugró mezőben válassza ki a felosztani kívánt cellákat, lásd a képernyőképet:

2. Ezután kattintson a gombra OK gombot, a kijelölt cellákban lévő adatok sorokra vannak osztva, ahogy az alábbi képernyőképen látható:

B módszer: 10 másodperc a határolt szöveg több sorra történő felosztása a Kutools for Excel segítségével

Ha telepítve van Kutools az Excel számára, Annak Adatok felosztása sorokra funkcióval a szöveges karakterláncokat több sorra bonthatja bármely megadott határolóval. Kérjük, kövesse a következő lépéseket:

1. lépés: Válassza az Adatok felosztása sorokra funkciót

Kattints Kutools > Egyesítés és felosztás > Adatok felosztása sorokra, lásd a képernyőképet:

2. lépés: Adja meg az adatcellákat és a határolót a felosztáshoz

A felugró párbeszédpanelen használja a következő lehetőségeket:

• 1). Válassza ki a felosztani kívánt cellák listáját Tartomány (egy oszlop) szövegdoboz;
• 2). Ezután válassza ki az adatait elválasztó határolót, itt fogok választani Más és írja be a vesszőt és egy szóközt (, ) a szövegdobozba;
• 3). Végül kattintson OK gombot.

Most a kijelölt cellák elválasztott szöveges karakterláncokkal több sorrá lettek konvertálva az adott elválasztó alapján, lásd a képernyőképet:

 tippek: Ha vissza szeretné állítani az eredeti adatokat, csak meg kell nyomnia Ctrl + Z visszavonására.

Könnyen kezelhető? Érdekelne ez a funkció, kérem Kattintson a letöltéshez, és 30 napig ingyenes próbaverziót kap.

C. módszer: Az elválasztott szöveg felosztása több sorra a következő szerint Power Query

Ha Office 365-öt vagy Excel 2016-ot vagy újabb verziókat használ, Power Query egy hatékony eszköz, amely segíthet a tagolt szöveg több sorra vagy oszlopra történő felosztásában. Ez akkor hasznos, ha azt szeretné, hogy a felosztott adatok frissüljenek, amikor az eredeti adatok megváltoznak. A befejezéshez kövesse az alábbi lépéseket:

1. lépés: Szerelje be az adattáblázatot Power Query

1. Válassza ki a használni kívánt adattartományt, majd kattintson a gombra dátum > A táblázatból, lásd a képernyőképet:

 tippek: Az Excel 2019-ben és az Office 365-ben kattintson a gombra dátum > Táblázatból/Tartományból.

2. A kiugróban Táblázat létrehozása párbeszédpanelen kattintson a gombra OK gombot táblázat létrehozásához, lásd a képernyőképet:

3. Most a Power Query szerkesztő ablak jelenik meg az adatokkal, lásd a képernyőképet:

2. lépés: Végezze el az átalakításokat Power Query

1. Válassza ki a felosztani kívánt oszlopot. És akkor kattintson Kezdőlap > Oszlop > Határolóval, lásd a képernyőképet:

2. Ban,-ben Oszlop felosztása határolóval párbeszédablak:

A szöveges karakterláncok vesszővel, szóközzel, pontosvesszővel stb. történő felosztásához tegye a következőket:

• 1). Válassza ki a határolót az adatoktól elválasztva Válassza ki vagy írja be a határolót legördülő lista;
• 2). Válassza a lehetőséget A határoló minden egyes előfordulása tól Felosztás: szakasz;
• 3). Ezután kattintson Speciális beállítások a szakasz kibontásához, és válassza ki a lehetőséget Sorok alatt a Feloszt;
• 4). Végül kattintson OK a párbeszédpanel bezárásához.

Ha a szöveges karakterláncokat linktöréssel több sorra szeretné felosztani, tegye a következőket:

• 1). Választ szokás tól Válassza ki vagy írja be a határolót legördülő lista;
• 2). Tól Speciális karakterek beszúrása legördül, kattintson Soremelésés a karakterek #(lf) alatti szövegmezőbe kerül beillesztésre szokás automatikusan;
• 3). Válassza a lehetőséget A határoló minden egyes előfordulása a Split at szakaszból;
• 4). Ezután kattintson Speciális beállítások a szakasz kibontásához, és válassza ki a lehetőséget Sorok alatt a Feloszt;
• 5). Végül kattintson OK a párbeszédpanel bezárásához.

3. A kiválasztott adatok most több sorra lettek osztva, ahogy az alábbi képernyőképen látható:

3. lépés: Adja ki a Power Query egy Excel táblához

1. Ezután ki kell írnia az adatokat a munkalapjára. kérem kattintson Kezdőlap > Bezárás és betöltés > Bezárás és betöltés / Bezárás és betöltés ide, (itt kattintok Bezárás és betöltés), lásd a képernyőképet:

 tippek: Kattintson Bezárás és betöltés az adatokat egy új munkalapra írja ki; Kattintson Bezárás és betöltés ide opciót választva az adatok bármely más lapra kerülnek, amelyre szüksége van.

2. Végül az adatok betöltődnek egy új munkalapra, lásd a képernyőképet:

 tippek: Ha gyakran frissítenie kell adatait az eredeti táblázatban, ne aggódjon, csak kattintson a jobb gombbal az eredménytáblázatra, és kattintson felfrissít hogy dinamikusan kapjuk meg az új eredményt.

Kapcsolódó cikkek: