Skip i'r prif gynnwys

Sut i rannu colofn hir yn golofnau lluosog yn Excel?

rhannwyd doc i golofnau lluosog 4
Os oes gennych ddata colofn hir yn Excel a fydd yn drafferthus wrth edrych arnynt. Ond nawr os gallwch chi rannu rhestr mor hir yn sawl colofn yn Excel, bydd yn gwneud y gwylio yn gyfleus.
Rhannwch golofn hir yn golofnau lluosog gyda VBA
Rhannwch golofn hir yn golofnau lluosog gyda Kutools for Excel syniad da3

swigen dde glas saeth 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:

doc-split-to-multiple-column-1
doc-saeth
doc-split-to-multiple-column-2
doc-saeth
doc-split-to-multiple-column-3


4. Cliciwch OK, yna gallwch weld bod y golofn hir wedi'i rhannu'n golofnau lluosog ac mae gan bob colofn 15 cell.
doc-split-to-multiple-column-4


swigen dde glas saeth Rhannwch golofn hir yn golofnau lluosog gyda Kutools for Excel

Efallai nad yw rhai ohonoch yn hoffi defnyddio cod VBA, yn ffodus, gallwch chi ddefnyddio'r Trawsnewid Ystod cyfleustodau Kutools for Excel i drosi colofn hir yn gyflym ac yn hawdd i nifer sefydlog o golofnau.

Kutools for Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools for Excel, gwnewch fel y nodir isod:(Lawrlwythiad Am Ddim Kutools for Excel Nawr!)

1. Dewiswch y data colofn rydych chi am ei rannu, yna cliciwch Kutools > Ystod > Trawsnewid Ystod. Gweler y screenshot:
hollt doc kte 1

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:hollt doc kte 2

3. Cliciwch Ok a dewis un gell i roi'r data hollt allan. Gweler y screenshot:
hollt doc kte 3

4. Cliciwch OK i orffen y gweithrediadau. Nawr mae'r data colofn hir wedi'i rannu'n dair colofn.
hollt doc kte 4

A yw'n haws na chod VBA? Gyda T.ransform Ystod cyfleustodau, gallwch drosi rhes i amrediad, amrediad i res neu un golofn.

swigen dde glas saeth 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 for 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 i gael sylw llawn 30 diwrnod treial am ddim!
cell hollt doc
 
Kutools for Excel: gyda mwy na 300 o ychwanegion Excel defnyddiol, am ddim i roi cynnig arnynt heb unrhyw gyfyngiad 30 diwrnod.

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...

tab kte 201905


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Really awesome...
This comment was minimized by the moderator on the site
Thank you so much!It's a big problem to copy web table to Excel.Thanks to your script I finally managed it.
This comment was minimized by the moderator on the site
Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations