Fel arfer, gallwch ddefnyddio'r nodwedd Testun i Golofn i rannu cynnwys cell yn golofnau lluosog gan amffinydd penodol, megis coma, dot, hanner colon, slaes, ac ati. Ond, weithiau, efallai y bydd angen i chi rannu cynnwys y gell amffiniedig yn rhesi lluosog ac ailadrodd y data o golofnau eraill fel y sgrinlun a ddangosir isod. A oes gennych unrhyw ffyrdd da o ddelio â'r dasg hon yn Excel? Bydd y tiwtorial hwn yn cyflwyno rhai dulliau effeithiol i gwblhau'r swydd hon yn Excel.

Fideo: Rhannwch llinynnau testun fesul amffinydd yn rhesi lluosog

Dull A: Rhannwch destun wedi'i amffinio yn rhesi lluosog yn ôl cod VBA

Yn yr adran hon, byddaf yn cyflwyno dau god VBA i helpu i rannu cynnwys y gell sy'n cael eu gwahanu gan amffinydd penodol.

Testun hollt wedi'i wahanu gan goma, gofod, hanner colon, ac ati.

Er mwyn rhannu'r llinynnau testun sy'n cael eu gwahanu gan rai amffinydd arferol, megis coma, gofod, hanner colon, slaes, ac ati, gall y cod canlynol wneud ffafr i chi. Dilynwch y camau isod os gwelwch yn dda:

 Nodyn: y cod hwn ddim cymorth Dadwneud, byddai'n well ichi wneud copi wrth gefn o'r data cyn cymhwyso'r cod hwn.

Cam 1: Agorwch olygydd modiwl VBA a chopïwch y cod

1. Ysgogwch y daflen rydych chi am ei defnyddio. Ac yna, pwyswch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr a agorwyd, cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

3. Yna, copïwch a gludwch y cod isod i'r modiwl gwag.

Cod VBA: Rhannu testun yn ôl amffinydd penodol (coma, dot, gofod, ac ati)

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   

Cam 2: Gweithredwch y cod i gael y canlyniad

1. Ar ôl gludo'r cod, pwyswch F5 allwedd i redeg y cod hwn. Yna, bydd blwch annog yn ymddangos i'ch atgoffa i ddewis y celloedd sy'n cynnwys y testun amffiniedig rydych chi am ei rannu, gweler y llun:

2. Yna, cliciwch OK, mae blwch prydlon arall yn ymddangos i'ch atgoffa i deipio'r gwahanydd rydych chi am rannu'r data yn seiliedig arno. Yma, rwy'n teipio coma a bwlch (, ), gweler y sgrinlun:

3. O'r diwedd, cliciwch OK botwm. Nawr, fe welwch y llinynnau testun a ddewiswyd yn cael eu rhannu'n rhesi yn seiliedig ar y coma ac mae data colofnau cymharol eraill yn cael eu hailadrodd fel y dangosir sgrinluniau isod:

Testun hollti wedi'i wahanu gan doriad llinell

Os yw cynnwys eich cell wedi'i wahanu gan doriadau llinell, i'w rhannu'n rhesi lluosog, dyma god VBA arall a all eich helpu.

 Nodyn: y cod hwn ddim cymorth Dadwneud byddai'n well ichi wneud copi wrth gefn o'r data cyn cymhwyso'r cod hwn.

Cam 1: Agorwch olygydd modiwl VBA a chopïwch y cod

1. Gwasgwch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y ffenestr a agorwyd, cliciwch Mewnosod > Modiwlau i greu modiwl gwag newydd.

3. Yna, copïwch a gludwch y cod isod i'r modiwl gwag.

Cod VBA: Rhannu testun fesul toriad llinell

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 

Cam 2: Gweithredwch y cod i gael y canlyniad

1. Ar ôl gludo'r cod, pwyswch F5 allwedd i redeg y cod hwn. Yn y blwch popped-out, dewiswch y celloedd rydych chi am eu hollti, gweler y sgrinlun:

2. Yna, cliciwch OK botwm, mae'r data yn y celloedd a ddewiswyd wedi'u rhannu'n rhesi fel y dangosir y sgrinlun isod:

Dull B: 10s i rannu testun amffiniedig yn rhesi lluosog gan Kutools ar gyfer Excel

Os ydych chi wedi gosod Kutools ar gyfer Excel, Gyda'i Hollti Data i Rhesi nodwedd, gallwch rannu'r llinynnau testun yn rhesi lluosog gan unrhyw amffinydd a nodwyd gennych. Os gwelwch yn dda gwnewch gyda'r camau canlynol:

Cam 1: Dewiswch y nodwedd Hollti Data i Rhesi

Cliciwch Kutools > Uno a Hollti > Hollti Data i Rhesi, gweler y screenshot:

Cam 2: Nodwch y celloedd data a'r amffinydd ar gyfer hollti

Yn y blwch deialog popped-out, defnyddiwch yr opsiynau canlynol:

• 1). Dewiswch y rhestr o gelloedd rydych chi am eu rhannu o'r Ystod (colofn sengl) blwch testun;
• 2). Yna, dewiswch y amffinydd sy'n gwahanu'ch data, yma, byddaf yn dewis Arall a theipiwch atalnod a bwlch (, ) yn y blwch testun;
• 3). O'r diwedd, cliciwch OK botwm.

Nawr, mae'r celloedd a ddewiswyd gyda llinynnau testun cyfyngedig wedi'u trosi'n rhesi lluosog yn seiliedig ar y gwahanydd penodol, gweler y sgrinlun:

 Awgrymiadau: Os ydych am adfer y data gwreiddiol, 'ch jyst angen i bwyso Ctrl + Z am ddadwneud.

Hawdd i'w defnyddio? Diddordeb yn y nodwedd hon, os gwelwch yn dda cliciwch i'w lawrlwytho i gael treial am ddim am 30 diwrnod.

Dull C: Rhannu testun wedi'i amffinio yn rhesi lluosog fesul Power Query

Os ydych chi'n rhedeg Office 365 neu Excel 2016 a fersiynau diweddarach, Power Query yn arf pwerus a all eich helpu i rannu testun amffiniedig yn rhesi neu golofnau lluosog. Mae'n ddefnyddiol os ydych chi am i'r data hollt gael ei adnewyddu pan fydd eich data gwreiddiol yn newid. Gwnewch y camau canlynol i'w orffen os gwelwch yn dda:

Cam 1: Cael y tabl data i mewn Power Query

1. Dewiswch yr ystod ddata yr ydych am ei ddefnyddio, yna cliciwch Dyddiad > O'r Tabl, gweler y screenshot:

 Awgrymiadau: Yn Excel 2019 ac Office 365, cliciwch Dyddiad > O'r Tabl / Ystod.

2. Yn y popped-out Creu Tabl blwch deialog, cliciwch OK botwm i greu tabl, gweler y sgrinlun:

3. Nawr, y Power Query Golygydd ffenestr yn cael ei harddangos gyda'r data, gweler y sgrinlun:

Cam 2: Gwnewch y trawsnewidiadau i mewn Power Query

1. Dewiswch y golofn rydych chi am ei hollti. Ac yna, cliciwch Hafan > Colofn Hollti > Gan Amffinydd, gweler y screenshot:

2. Yn y Rhannu Colofn gan Amffinydd blwch deialog:

I rannu'r llinynnau testun yn ôl coma, gofod, hanner colon, ac ati, gwnewch fel hyn:

• 1). Dewiswch y amffinydd eich data wedi'i wahanu gan y Dewiswch neu rhowch amffinydd rhestr ostwng;
• 2). Dewiswch Pob digwyddiad o'r amffinydd oddi wrth y Hollti yn adran;
• 3). Yna, cliciwch Dewisiadau mwy cymhleth i ehangu'r adran, a dewis Rhesi O dan y Rhannwch yn;
• 4). O'r diwedd, cliciwch OK i gau'r blwch deialog hwn.

I rannu llinynnau testun yn rhesi lluosog trwy doriad cyswllt, gwnewch fel hyn:

• 1). Dewiswch Custom oddi wrth y Dewiswch neu rhowch amffinydd rhestr ostwng;
• 2). O'r Mewnosod cymeriadau arbennig disgyn i lawr, cliciwch Bwydo Llinell, a'r cymeriadau #(lf) yn cael ei fewnosod yn y blwch testun o dan y Custom yn awtomatig;
• 3). Dewiswch Pob digwyddiad o'r amffinydd o'r adran Hollti;
• 4). Yna, cliciwch Dewisiadau mwy cymhleth i ehangu'r adran, a dewis Rhesi O dan y Rhannwch yn;
• 5). O'r diwedd, cliciwch OK i gau'r blwch deialog hwn.

3. Nawr, mae'r data a ddewiswyd wedi'i rannu'n rhesi lluosog fel y dangosir y sgrin isod:

Cam 3: Allbwn y Power Query i dabl Excel

1. Ac yna, dylech allbynnu'r data i'ch taflen waith. Cliciwch os gwelwch yn dda Hafan > Cau a Llwytho > Cau a Llwytho / Cau a Llwytho I., (yma, byddaf yn clicio Cau a Llwytho), gweler y screenshot:

 Awgrymiadau: Cliciwch Cau a Llwytho yn allbynnu'r data i daflen waith newydd; Cliciwch Cau a Llwytho I. opsiwn, bydd y data yn cael ei allbynnu i unrhyw ddalen arall sydd ei hangen arnoch.

2. Yn olaf, bydd y data yn cael ei lwytho i daflen waith newydd, gweler screenshot:

 Awgrymiadau: Os oes angen i chi ddiweddaru'ch data yn y tabl gwreiddiol yn aml, peidiwch â phoeni, does ond angen i chi glicio ar y tabl canlyniad ar y dde a chlicio Adnewyddu i gael y canlyniad newydd yn ddeinamig.

Erthyglau cysylltiedig: