Sut i rannu data yn daflenni gwaith lluosog yn ôl rhesi cyfrif yn Excel?
Er enghraifft, mae gen i ystod o restr ddata, nawr rydw i eisiau ei rhannu'n daflenni gwaith lluosog yn ôl cyfrif rhesi, yn yr enghraifft hon, byddaf yn ei rhannu â phob 5 rhes (gweler y sgrinluniau canlynol). A oes unrhyw ffyrdd i'n helpu i ddatrys y broblem hon yn gyflym? Yma, byddaf yn cyflwyno dau dric i chi ei wneud yn hawdd.
 |
 |
 |
 |
||
 |
||
 |
Mae rhannu data yn daflenni gwaith lluosog yn ôl rhesi yn cyfrif gyda chod VBA
Rhannu data yn daflenni gwaith lluosog yn ôl rhesi cyfrif gyda Kutools for Excel
Mae rhannu data yn daflenni gwaith lluosog yn ôl rhesi yn cyfrif gyda chod VBA
Gall y cod VBA canlynol eich helpu i rannu'r rhesi yn daflenni gwaith lluosog yn ôl cyfrif rhesi, gwnewch fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddol i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
VBA: Mae rhannu data yn ddalennau yn ôl rhesi yn cyfrif yn Excel.
Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
xRow.Resize(resizeCount).Copy
Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
Application.ActiveSheet.Range("A1").PasteSpecial
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Yna pwyswch F5 allwedd i redeg y cod, ac mae deialog yn galw allan am ddewis ystod i'w hollti, ac yna cliciwch OK, a deialog arall i chi nodi cyfrif y rhesi. Gweler y screenshot:
 |
|
 |
4. Cliciwch OK, ac mae'r amrediad wedi'i rannu'n ddalennau lluosog yn ôl cyfrif y rhesi.
Nodyn: Rhoddir y taflenni gwaith rhanedig yng nghefn y brif daflen waith.
Rhannu data yn daflenni gwaith lluosog yn ôl rhesi cyfrif gyda Kutools for Excel
Dim ond os yw'r cyfrif rhesi penodedig y gall y cod uchod rannu'r data, ac ni fydd yn ychwanegu'r teitl ar gyfer pob data taflen waith os oes gan eich data'r teitl.
Ond gyda Kutools for Excel'S Data Hollti, gallwch nid yn unig fewnosod y penawdau ar gyfer data pob taflen waith, ond gallwch hefyd nodi'r enwau taflenni gwaith rhanedig newydd.
Kutools for Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now
Os ydych chi wedi gosod Kutools for Excel, gwnewch fel a ganlyn:
1. Dewiswch yr ystod o ddata rydych chi am ei rannu.
2. Cliciwch Menter > Offer Taflen Waith > Data Hollti (neu Menter > Data Hollti ), gweler y screenshot:
3. Yn y Rhannwch Ddata yn Daflenni Gwaith Lluosog blwch deialog:
- dewiswch Rhesi sefydlog o Hollti yn seiliedig ar opsiwn, a nodwch nifer y rhesi rydych chi am eu rhannu ar gyfer pob taflen waith. (Os oes penawdau i'ch data a'ch bod am eu mewnosod ym mhob taflen waith hollt newydd, gwiriwch Mae penawdau yn fy data opsiwn.)
- Yna gallwch chi nodi'r enwau taflen waith rhanedig, o dan y Enw taflenni gwaith newydd adran, dewiswch reolau enwau taflenni gwaith o'r Rheolau rhestr ostwng, gallwch ychwanegu'r Rhagolwg or Ôl-ddodiad ar gyfer yr enwau dalen hefyd. Gweler y screenshot:
4. Ar ôl nodi'r gosodiadau, yna cliciwch OK, ac mae'r data a ddewiswyd wedi'i rannu'n daflenni gwaith lluosog o lyfr gwaith newydd gan bob 5 rhes. Ac mae'r penawdau wedi'u mewnosod ar gyfer pob taflen waith newydd. Gweler y screenshot:
Cliciwch i wybod mwy am y nodwedd Data Hollti hon.
Erthygl gysylltiedig:
Sut i rannu data yn daflenni gwaith lluosog yn seiliedig ar golofn yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!
