De ghnáth, is féidir leat an ghné Téacs go Colún a úsáid chun inneachar cille a roinnt ina ilcholúin trí theorainneacha ar leith, mar shampla camóg, ponc, leathstad, slais, etc. agus na sonraí ó cholúin eile a athdhéanamh mar a thaispeántar an scáileán thíos. An bhfuil aon bhealaí maithe agat chun déileáil leis an tasc seo in Excel? Tabharfaidh an teagasc seo isteach roinnt modhanna éifeachtacha chun an post seo a chríochnú in Excel.

Físeán: Roinn teaghráin téacs trí theorainneacha i sraitheanna iolracha

Modh A: Roinn an téacs teorannaithe i sraitheanna iolracha de réir cód VBA

Sa chuid seo, tabharfaidh mé isteach dhá chód VBA chun cabhrú le scoilt na n-ábhar cille atá scartha le teorannóir áirithe.

Téacs scoilte scartha le camóg, spás, leathstad, etc.

Chun na teaghráin téacs a roinnt atá scartha le gnáth-theorainneacha áirithe, mar shampla camóg, spás, leathstad, slais, etc., is féidir leis an gcód seo a leanas bhfabhar a dhéanamh duit. Lean na céimeanna thíos le do thoil:

 nótaí: An cód seo nach bhfuil tacaíocht Undo, b'fhearr duit na sonraí a chúltaca roimh an gcód seo a chur i bhfeidhm.

Céim 1: Oscail an eagarthóir modúl VBA agus cóipeáil an cód

1. Gníomhachtaigh an leathán is mian leat a úsáid. Agus ansin, brúigh Alt + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa an fhuinneog oscail, cliceáil Ionsáigh > Modúil chun modúl bán nua a chruthú.

3. Ansin, cóipeáil agus greamaigh an cód thíos isteach sa mhodúl bán.

Cód VBA: Roinn an téacs de réir teorannóir ar leith (camóg, ponc, spás, etc.)

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   

Céim 2: Rith an cód a fháil ar an toradh

1. Tar éis an cód a ghreamú, brúigh le do thoil F5 eochair chun an cód seo a rith. Ansin, beidh bosca leide pop amach chun a chur i gcuimhne duit a roghnú na cealla a bhfuil an téacs teorannaithe is mian leat a scoilt, féach screenshot:

2. Ansin, cliceáil OK, tá bosca leid eile popped amach a chur i gcuimhne duit clóscríobh an deighilteoir mian leat a scoilt na sonraí bunaithe ar. Anseo, clóscríobhaim camóg agus spás (, ), féach an scáileán scáileáin:

3. Faoi dheireadh, cliceáil OK cnaipe. Anois, feicfidh tú go bhfuil na teaghráin roghnaithe téacs roinnte ina sraitheanna bunaithe ar an camóg agus déantar sonraí eile maidir leis na colúin a athdhéanamh mar a thaispeántar na scáileáin scáileáin thíos:

Téacs scoilte scartha le briseadh líne

Má tá do chuid ábhar cille scartha le sosanna líne, chun iad a roinnt i sraitheanna éagsúla, seo chugainn cód VBA eile a chabhróidh leat.

 nótaí: An cód seo nach bhfuil tacaíocht Undo b'fhearr duit na sonraí a chúltaca roimh an gcód seo a chur i bhfeidhm.

Céim 1: Oscail an eagarthóir modúl VBA agus cóipeáil an cód

1. Brúigh Alt + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa an fhuinneog oscail, cliceáil Ionsáigh > Modúil chun modúl bán nua a chruthú.

3. Ansin, cóipeáil agus greamaigh an cód thíos isteach sa mhodúl bán.

Cód VBA: Roinn an téacs ar bhriseadh líne

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 

Céim 2: Rith an cód a fháil ar an toradh

1. Tar éis an cód a ghreamú, brúigh le do thoil F5 eochair chun an cód seo a rith. Sa bhosca popped-out, roghnaigh le do thoil na cealla ar mhaith leat a scoilt, féach an scáileán scáileáin:

2. Ansin, cliceáil OK cnaipe, roinntear na sonraí sna cealla roghnaithe i sraitheanna mar a thaispeántar an scáileán thíos:

Modh B: 10s chun téacs teorannaithe a roinnt ina sraitheanna iolracha ag Kutools le haghaidh Excel

Má tá tú suiteáilte agat Kutools le haghaidh Excel, Lena Scoilt Sonraí go Rónna gné, is féidir leat na teaghráin téacs a roinnt ina sraitheanna iolracha ag aon teorannóir a shonraigh tú. Déan leis na céimeanna seo a leanas le do thoil:

Céim 1: Roghnaigh an Sonraí Scoilt go Sraitheanna gné

cliceáil Kutools > Cumaisc & Scoilt > Scoilt Sonraí go Rónna, féach ar an scáileán:

Céim 2: Sonraigh na cealla sonraí agus teorannóir le haghaidh scoilteadh

Sa bhosca dialóige popped-out, úsáid na roghanna seo a leanas:

• 1). Roghnaigh liosta na gcealla ar mhaith leat a scoilt ón Raon (colún singil) Bosca téacs;
• 2). Ansin, roghnaigh an teorannóir a scarann ​​do shonraí, anseo, roghnóidh mé Eile agus clóscríobh camóg agus spás (, ) isteach sa bhosca téacs;
• 3). Ar deireadh, cliceáil OK cnaipe.

Anois, tiontaíodh na cealla roghnaithe le teaghráin téacs teoranta ina sraitheanna iolracha bunaithe ar an deighilteoir ar leith, féach an scáileán scáileáin:

 Leideanna: Más mian leat na sonraí bunaidh a chur ar ais, ní gá duit ach brúigh Ctrl + Z. do chealú.

Éasca le húsáid? Suim agat sa ghné seo, le do thoil cliceáil é a íoslódáil chun triail saor in aisce a fháil ar feadh 30 lá.

Modh C: Roinn an téacs teorannaithe i sraitheanna iolracha de réir Power Query

Má tá Office 365 nó Excel 2016 agus leaganacha níos déanaí á rith agat, Power Query Is uirlis chumhachtach é a chuideoidh leat téacs teorannaithe a roinnt ina iliomad sraitheanna nó colúin. Tá sé úsáideach más mian leat na sonraí scoilte a athnuachan nuair a athraíonn do shonraí bunaidh. Déan leis na céimeanna seo a leanas chun é a chríochnú:

Céim 1: Faigh an tábla sonraí isteach Power Query

1. Roghnaigh an raon sonraí is mian leat a úsáid, ansin cliceáil Dáta > Ón Tábla, féach ar an scáileán:

 Leideanna: In Excel 2019 agus Office 365, cliceáil Dáta > Ó Tábla/Raon.

2. Sa popped-amach Cruthaigh Tábla dialóg, cliceáil OK cnaipe chun tábla a chruthú, féach an scáileán:

3. Anois, an Power Query Eagarthóir Taispeántar an fhuinneog leis na sonraí, féach screenshot:

Céim 2: Déan na claochluithe i Power Query

1. Roghnaigh an colún ar mhaith leat a scoilt. Agus ansin, cliceáil Baile > Colún Scoilte > De réir Teorainneora, féach ar an scáileán:

2. Sa Scoilt Colún ar Teorainneora bosca dialóige:

Chun na teaghráin téacs a roinnt le camóg, spás, leathstad, srl. Déan mar seo le do thoil:

• 1). Roghnaigh an teorannóir do shonraí scartha ó na Roghnaigh nó cuir isteach teorannóir liosta anuas;
• 2). Roghnaigh Gach teagmhas den teorannóir ó na Scoilt ag alt;
• 3). Ansin, cliceáil Roghanna Casta chun an t-alt a leathnú, agus roghnaigh Rónna faoi ​​na Scoilt isteach;
• 4). Ar deireadh, cliceáil OK chun an bosca dialóige seo a dhúnadh.

Chun teaghráin téacs a roinnt ina sraitheanna iolracha trí bhriseadh naisc, déan mar seo le do thoil:

• 1). Roghnaigh An Chustaim ó na Roghnaigh nó cuir isteach teorannóir liosta anuas;
• 2). Ón Cuir isteach carachtair speisialta titim síos, cliceáil Beatha Líne, agus na carachtair #(lf) a chur isteach sa bhosca téacs faoi na An Chustaim go huathoibríoch;
• 3). Roghnaigh Gach teagmhas den teorannóir ón Roinn ag;
• 4). Ansin, cliceáil Roghanna Casta chun an t-alt a leathnú, agus roghnaigh Rónna faoi ​​na Scoilt isteach;
• 5). Ar deireadh, cliceáil OK chun an bosca dialóige seo a dhúnadh.

3. Anois, tá na sonraí roghnaithe roinnte ina sraitheanna iolracha mar a thaispeántar thíos scáileáin:

Céim 3: Aschur an Power Query A chuig tábla Excel

1. Agus ansin, ba cheart duit na sonraí a aschur isteach i do bhileog oibre. Cliceáil le do thoil Baile > Dún & Luchtaigh > Dún & Luchtaigh / Dún & Luchtaigh go, (anseo, cliceáilfidh mé Dún & Luchtaigh), féach ar an scáileán:

 LeideannaCliceáil Dún & Luchtaigh aschuirfidh sé na sonraí chuig bileog oibre nua; Cliceáil Dún & Luchtaigh go rogha, déanfar na sonraí a aschur chuig aon bhileog eile a theastaíonn uait.

2. Ar deireadh, déanfar na sonraí a luchtú chuig bileog oibre nua, féach screenshot:

 Leideanna: Más gá duit do shonraí sa tábla bunaidh a nuashonrú go minic, ná bíodh imní ort, níl le déanamh agat ach cliceáil ar dheis ar an tábla toraidh agus cliceáil Athnuaigh chun an toradh nua a fháil go dinimiciúil.

Airteagail ghaolmhara: