Sut i drosi llinyn testun sydd wedi'i wahanu â choma i restru neu resi yn Excel?
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 gan goma 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:
4. a chliciwch OK, yn y dialog canlynol, nodwch gell lle rydych chi am allbwn y canlyniad, gweler y screenshot:
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:
Trosi llinyn testun wedi'i wahanu gan goma 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:
4. Yna cliciwch Ok, a bydd deialog arall yn galw allan i'ch atgoffa i ddewis cell i roi'r canlyniad, gweler y screenshot:
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:
Cliciwch i wybod mwy am y nodwedd Celloedd Hollt hon ...
Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !
Demo: Trosi llinyn testun wedi'i wahanu gan goma i resi gyda Kutools ar gyfer Excel
Erthyglau cysylltiedig:
Sut i rannu celloedd yn golofnau neu resi lluosog trwy ddychwelyd cerbyd?
Sut i rannu gwerthoedd celloedd yn golofnau lluosog yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!