Note: The other languages of the website are Google-translated. Back to English

Sut i drosi llinyn testun sydd wedi'i wahanu â choma i restru neu resi yn Excel?

doc trosi gwerthoedd coma i restr 1

Gan dybio, mae gennych chi restr o werthoedd celloedd sydd wedi'u gwahanu gan atalnodau, nawr, mae angen i chi drosi'r llinynnau testun wedi'u gwahanu â choma i resi lluosog neu golofn fel y dangosir y screenshot canlynol. Sut y gallai rhannu gwerthoedd celloedd lluosog yn rhesi yn seiliedig ar amffin coma ar unwaith yn Excel?

Trosi llinyn testun wedi'i wahanu â choma yn rhesi gyda chod VBA

Trosi llinyn testun wedi'i wahanu â choma yn rhesi gyda Kutools ar gyfer Excel


Trosi llinyn testun wedi'i wahanu â choma yn rhesi gyda chod VBA

Efallai y bydd y cod VBA canlynol yn eich helpu i drosi gwerthoedd celloedd sydd wedi'u gwahanu gan goma yn golofn, gwnewch fel a ganlyn:

1. Daliwch i lawr y Alt + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y macro canlynol yn y Modiwlau Ffenestr.

Cod VBA: Trosi llinyn testun wedi'i wahanu â choma yn rhesi neu restr

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. Yna pwyswch F5 allwedd i redeg y cod hwn, yn y blwch deialog popped out, dewiswch yr ystod ddata rydych chi am ei drosi, gweler y screenshot:

doc trosi gwerthoedd coma i restr 2

4. a chliciwch OK, yn y dialog canlynol, nodwch gell lle rydych chi am allbwn y canlyniad, gweler y screenshot:

doc trosi gwerthoedd coma i restr 3

5. Cliciwch OK botwm, mae'r gwerthoedd celloedd sydd wedi'u gwahanu gan goma wedi'u dewis wedi'u trosi'n rhestr o resi. Gweler y screenshot:

doc trosi gwerthoedd coma i restr 4


Trosi llinyn testun wedi'i wahanu â choma yn rhesi gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel, Gyda'i Celloedd Hollt cyfleustodau, gallwch chi rannu gwerthoedd celloedd sydd wedi'u gwahanu gan goma yn gyflym yn rhesi neu golofnau lluosog yn seiliedig ar y terfynwr coma yn ôl yr angen.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch y camau canlynol:

1. Dewiswch y gwerthoedd celloedd rydych chi am eu trosi i resi yn seiliedig ar y gwahanydd coma.

2. Yna cliciwch Kutools > Uno a Hollti > Celloedd Hollt, gweler y screenshot:

3. Yn y Celloedd Hollt blwch deialog, dewiswch Hollti i Rhesi opsiwn o dan y math adran, ac yna o'r Nodwch wahanydd adran, gwirio Arall blwch gwirio ac yna rhowch y coma yn y blwch testun, gweler y screenshot:

doc trosi gwerthoedd coma i restr 6 6

4. Yna cliciwch Ok, a bydd deialog arall yn galw allan i'ch atgoffa i ddewis cell i roi'r canlyniad, gweler y screenshot:

doc trosi gwerthoedd coma i restr 7

5. Ac yna cliciwch Ok botwm, mae'r celloedd sydd wedi'u gwahanu â choma wedi'u rhannu'n resi lluosog yn seiliedig ar y terfynwr coma, gweler y screenshot:

doc trosi gwerthoedd coma i restr 8

Cliciwch i wybod mwy am y nodwedd Celloedd Hollt hon ...

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Now!


Demo: Trosi llinyn testun wedi'i wahanu â choma yn rhesi gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthyglau cysylltiedig:

Sut i rannu celloedd yn golofnau neu resi lluosog trwy ddychwelyd cerbyd?

Sut i rannu gwerthoedd celloedd yn golofnau lluosog yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gennyf un rhes ond nid yw'r fformiwla hon yn gweithio ar gyfer rhes sengl tra ei bod yn gweithio ar gyfer rhesi lluosog a allech chi arwain ar hynny fyddai'n help mawr Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diweddariad i weithio ar gyfer un gell mewnbwn (a grybwyllwyd gan Sid wedi'i bostio o'm blaen). Ffordd o wneud hyn yn ôl pob tebyg ar gyfer y ddau senario, ond fe weithiodd hyn i mi, roedd gennyf yr un mater.

Is-AilddosbarthuCommaDelimitedData_singleCell()

'Updateby Extendoffice 201592

Dim xArr() Fel Llinynnol

Dim xCyfeiriad Fel Llinyn

Dim Rg Fel Ystod

Dim Rg1 Fel Ystod

Ar Ail-ddechrau Gwall Nesaf

xAddress = Cais.ActiveWindow.RangeSelection.Address

Gosod Rg = Application.InputBox ("dewiswch yr ystod data:"", "Kutools ar gyfer Excel", xAddress, , , , , 8)

Os nad yw RG yn Dim Yna Ymadael Is

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

Os nad yw RG yn Dim Yna Ymadael Is

Gosod Rg1 = Application.InputBox ("dewiswch gell allbwn:", "Kutools ar gyfer Excel", , , , , , 8)

Os Nad yw RG1 yn Ddim Yna Ymadael Is



' xArr = Hollti(Ymunwch(Application.Transpose(Rg.value), ","), ",") -------- angen hyn os oes gennych gelloedd mewnbwn lluosog yn eich ystod mewnbwn (Rg)

' disodli hwn am gell fewnbwn sengl ar gyfer Rg:

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

Rg1.Resize(UBound(xArr) + 1) = Cais.Trawsnewid(xArr)

Rg1.Rhiant.Gweithredu

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



Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i gell gyda 667 o nodau, ac mae 119 ohonynt yn atalnodau. Gyda'r cod VBA hwn ni allaf rannu. Allwch chi fy helpu os gwelwch yn dda? Diolch yn fawr iawn!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir