Conas luachanna cille a roinnt go hingearach in Excel?

In Excel, féadfaidh tú an Téacs chuig na Colúin gné chun na luachanna cille a roinnt ina gcolúin iolracha go cothrománach, ach, ní chuidíonn sé leat ábhar na cille a roinnt ina iliomad sraitheanna go hingearach. Agus an t-alt seo, labhróidh mé faoi roinnt bealaí gasta chun na luachanna cille a roinnt ina sraitheanna go hingearach ag deighilteoir ar leith in Excel.

Roinn luachanna cille ina sraitheanna go hingearach ag deighilteoir le cód VBA

Roinn luachanna cille ina sraitheanna go hingearach ag deighilteoir le Kutools le haghaidh Excel

Roinn luachanna cille ina sraitheanna go hingearach ag deighilteoir le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat na luachanna cille a roinnt ina sraitheanna go hingearach ag aon deighilteoir mar is mian leat, déan mar a leanas:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Roinn luachanna cille i sraitheanna go hingearach de réir deighilteora ar leith

Sub splitvertically()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit na luachanna cille a theastaíonn uait a roinnt go hingearach a roghnú, féach an scáileán:

4. Agus ansin cliceáil OK cnaipe, popfaidh bosca eile amach le cur i gcuimhne duit cill a roghnú chun an toradh a chur, féach an scáileán:

5. Cliceáil OK cnaipe, agus tá na luachanna cille roinnte i liosta ag deighilteoir, féach an scáileán:

nótaí: Sa chód thuas, is féidir leat an leathchlón a athrú ; le haon teorantóirí eile a theastaíonn uait.

Roinn luachanna cille ina sraitheanna go hingearach ag deighilteoir le Kutools le haghaidh Excel

Kutools le haghaidh Excel'S Cealla Scoilt Is fóntais chumhachtach í an ghné, is féidir léi cabhrú leat luachanna cille a roinnt ina gcolúin nó ina sraitheanna iolracha ag aon deighilteoirí de réir mar a theastaíonn uait.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil:

1. Roghnaigh na cealla ar mhaith leat iad a roinnt ina sraitheanna de réir an teorantóra shonraigh.

2. Ansin cliceáil Kutools > Cumaisc & Scoilt > Cealla Scoilt, féach ar an scáileán:

3. Sa an Cealla Scoilt dialóg, roghnaigh Scoilt go Sraitheanna faoi ​​na cineál alt, agus ansin seiceáil Eile ó na Scoilt ag alt, agus cuir isteach an deighilteoir ar mhaith leat na luachanna cille a roinnt air, féach ar an scáileán:

4. Agus ansin cliceáil Ok cnaipe, sa bhosca popping out, roghnaigh cill chun an toradh a aschur, féach an scáileán:

5. agus cliceáil OK cnaipe, roinneadh na luachanna cille ina sraitheanna bunaithe ar an deighilteoir sonrach mar a thaispeántar an scáileán a leanas:

  Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!

Taispeántas: Roinn luachanna cille i sraitheanna go hingearach ag deighilteoir le Kutools le haghaidh Excel