Sut i rannu colofn hir yn golofnau lluosog yn Excel?
Rhannwch golofn hir yn golofnau lluosog gyda VBA
Rhannwch golofn hir yn golofnau lluosog gyda Kutools ar gyfer Excel
Rhannwch golofn hir yn golofnau lluosog gyda VBA
1. Gwasgwch Alt + F11 allweddi gyda'i gilydd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau a chopïwch y cod VBA canlynol i'r ffenestr popped out.
VBA: Rhannwch golofn hir yn golofnau lluosog.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. Cliciwch Run botwm neu wasg F5 allwedd i redeg y VBA, a deialog wedi'i ddewis ar gyfer dewis y rhestr ddata, ac yna cliciwch OK i fynd i nodi faint o resi mewn un golofn sydd eu hangen arnoch yn y dialog nesaf, yna cliciwch OK a dewis cell i allbwn y canlyniad. Gweler sgrinluniau:
4. Cliciwch OK, yna gallwch weld bod y golofn hir wedi'i rhannu'n golofnau lluosog ac mae gan bob colofn 15 cell.
Rhannwch golofn hir yn golofnau lluosog gyda Kutools ar gyfer Excel
Efallai nad yw rhai ohonoch yn hoffi defnyddio cod VBA, yn ffodus, gallwch chi ddefnyddio'r Trawsnewid Ystod cyfleustodau Kutools ar gyfer Excel i drosi colofn hir yn gyflym ac yn hawdd i nifer sefydlog o golofnau.
Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)
1. Dewiswch y data colofn rydych chi am ei rannu, yna cliciwch Kutools > Ystod > Trawsnewid Ystod. Gweler y screenshot:
2. Yn y dialog popped allan, gwiriwch Colofn sengl i amrediad opsiwn, yna gwiriwch Gwerth sefydlog opsiwn a theipiwch nifer y colofnau sydd eu hangen arnoch chi i'r blwch testun. Gweler y screenshot:
3. Cliciwch Ok a dewis un gell i roi'r data hollt allan. Gweler y screenshot:
4. Cliciwch OK i orffen y gweithrediadau. Nawr mae'r data colofn hir wedi'i rannu'n dair colofn.
A yw'n haws na chod VBA? Gyda T.ransform Ystod cyfleustodau, gallwch drosi rhes i amrediad, amrediad i res neu un golofn.
Trosi colofn sengl / Rhes i amrediad neu i'r gwrthwyneb
Rhannwch un gell yn gyflym yn golofnau neu resi yn seiliedig ar amffinydd
|
Yn Excel, mae rhannu cell yn golofnau yn ddiflas gyda'r Dewin gam wrth gam. Ond gyda Kutools ar gyfer Excel's Celloedd Hollt cyfleustodau, gallwch: 1, trosi un gell yn golofnau neu resi yn seiliedig ar amffinydd; 2, trosi llinyn yn destun a rhif; 3, trosi llinyn yn seiliedig ar led penodol, gyda chliciau. Cliciwch ar gyfer treial llawn sylw 30 diwrnod am ddim! |
Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
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!