Skip to main content

Conas sreang téacs scartha camóg a thiontú go liosta nó sraitheanna in Excel?

Údar: Xiaoyang Athraithe Deiridh: 2020-07-03
déanann doc luachanna camóg a thiontú go liosta 1

Ag ceapadh, tá liosta agat de luachanna cille atá scartha le camóga, anois, ní mór duit na teaghráin téacs scartha camóg seo a thiontú go sraitheanna iolracha nó colún mar a thaispeántar ar an scáileán a leanas. Conas a d’fhéadfaí luachanna iolracha cille a roinnt ina sraitheanna bunaithe ar theorannú camóg in Excel ag an am céanna?

Tiontaigh sreangán téacs scartha le camóga go sraitheanna le cód VBA

Tiontaigh sreangán téacs scartha camóg go sraitheanna le Kutools le haghaidh Excel


Tiontaigh sreangán téacs scartha le camóga go sraitheanna le cód VBA

D’fhéadfadh an cód VBA seo a leanas cabhrú leat luachanna iolracha cille scartha le camóga a thiontú go colún, déan mar a leanas:

1. Coinnigh síos an Alt + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an macra seo a leanas sa Modúil Fuinneog.

Cód VBA: Teaghrán téacs scartha camóg a thiontú go sraitheanna nó liosta

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. Ansin brúigh F5 eochair chun an cód seo a rith, sa bhosca dialóige popped out, roghnaigh an raon sonraí a theastaíonn uait a thiontú, féach an scáileán:

déanann doc luachanna camóg a thiontú go liosta 2

4. agus cliceáil OK, sa dialóg seo a leanas, sonraigh cill inar mian leat an toradh a aschur, féach an scáileán:

déanann doc luachanna camóg a thiontú go liosta 3

5. Cliceáil OK cnaipe, athraíodh na luachanna roghnaithe cille scartha le camóga ina liosta sraitheanna. Féach an pictiúr:

déanann doc luachanna camóg a thiontú go liosta 4


Tiontaigh sreangán téacs scartha camóg go sraitheanna le Kutools le haghaidh Excel

Má tá tú Kutools le haghaidh Excel, Lena Cealla Scoilt áirgiúlacht, is féidir leat luachanna cille scartha camóg a roinnt go tapa i sraitheanna nó i gcolúin iolracha bunaithe ar an teimpléad camóg de réir mar is gá duit.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. 

Tar éis a shuiteáil Kutools le haghaidh Excel, déan na céimeanna seo a leanas le do thoil:

1. Roghnaigh na luachanna cille is mian leat a thiontú go sraitheanna bunaithe ar an deighilteoir camóg.

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 rogha faoin cineál alt, agus ansin ón Sonraigh deighilteoir alt, seiceáil Eile bosca seiceála agus ansin cuir an camóg isteach sa bhosca téacs, féach an pictiúr:

déanann doc luachanna camóg a thiontú go liosta 6 6

4. Ansin cliceáil Ok, agus popfaidh dialóg eile amach le cur i gcuimhne duit cill a roghnú chun an toradh a chur, féach an scáileán:

déanann doc luachanna camóg a thiontú go liosta 7

5. Agus ansin cliceáil Ok cnaipe, tá na cealla scartha camóg roinnte ina sraitheanna iolracha bunaithe ar an teimpléad camóg, féach an scáileán:

déanann doc luachanna camóg a thiontú go liosta 8

Cliceáil chun níos mó eolais a fháil ar an ngné Cealla Scoilt seo ...

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


Taispeántas: Tiontaigh teaghrán téacs scartha camóg go sraitheanna le Kutools le haghaidh Excel

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Earraí gaolmhara:

Conas cealla a roinnt ina gcolúin nó ina sraitheanna iolracha trí fhilleadh ar iompar?

Conas luachanna cille a roinnt ina gcolúin iolracha in Excel?

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

Sub RedistributeCommaDelimitedData_singleCell()

'Updateby Extendoffice 201592

Dim xArr() As String

Dim xAddress As String

Dim Rg As Range

Dim Rg1 As Range

On Error Resume Next

xAddress = Application.ActiveWindow.RangeSelection.Address

Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

If Rg Is Nothing Then Exit Sub

Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

If Rg Is Nothing Then Exit Sub

Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

If Rg1 Is Nothing Then Exit Sub



' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

' replace with this for single input cell for Rg:

xArr = Split(Rg.value, ",")

Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

Rg1.Parent.Activate

Rg1.Resize(UBound(xArr) + 1).Select



End Sub
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
Hi, I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help Thanks
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations