Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om data in verskeie werkkaarte deur rye te verdeel, tel in Excel?

Byvoorbeeld, ek het 'n reeks data lys, nou wil ek dit in verskeie werkkaarte verdeel deur rye te tel. In hierdie voorbeeld sal ek dit verdeel deur elke 5-rye (sien volgende skermkiekies). Is daar enige maniere om ons te help om hierdie probleem vinnig op te los? Hier sal ek twee truuks voor stel om dit maklik te doen.


doc-split-data-vir-rows1


-2



doc-split-data-vir-rows2
doc-split-data-vir-rows3
doc-split-data-vir-rows4
doc-split-data-vir-rows5

Verdeel data in verskeie werkkaarte deur rye tel met VBA-kode

Verdeel data in verskeie werkkaarte deur rye tel met Kutools vir Excel


pyl blou regte borrel Verdeel data in verskeie werkkaarte deur rye tel met VBA-kode


Die volgende VBA-kode kan jou help om die rye in verskeie werkkaarte deur rye te verdeel, soos volg:

1. Hou die ALT + F11 sleutel om die Microsoft Visual Basic vir toepassings venster.

2. Kliek Plaas > module, en plak die volgende kode in die Module-venster.

VBA: Verdeel data in velle deur rye tel in 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. Druk dan F5 sleutel om die kode uit te voer, en 'n dialoog verskyn vir die kies van 'n reeks om te verdeel en klik dan OK, en 'n ander dialoog vir u om die rye telling te spesifiseer. Sien skermkiekie:

4. Klik OK, en die reeks word verdeel in veelvuldige velle deur die rye telling.

nota: Die gesplete werkkaarte word agter in die meesterwerkblad geplaas.


pyl blou regte borrel Verdeel data in verskeie werkkaarte deur rye tel met Kutools vir Excel

Bogenoemde kode kan die data slegs met die gespesifiseerde rye telling verdeel, en dit sal nie die titel vir elke werkblad data byvoeg as u data die titel het nie.

Maar met Kutools for Excel'N Verdeel data, kan u nie net die opskrifte vir elke werkblad data invoeg nie, maar kan ook die nuwe verdeel werkkaart name spesifiseer.

Kutools for Excel sluit meer as 300 handige Excel-gereedskap in. Gratis om sonder beperking in 30 dae te probeer. Kry dit nou

As jy Kutools vir Excel geïnstalleer het, doen as volg:

1. Kies die reeks data wat jy wil verdeel.

2. Kliek Enterprise > Werkkaartgereedskap > Verdeel data (Of Enterprise > Verdeel data ), sien skermkiekie:

doc-split-data-vir-rows6

3. in die Verdeel data in verskeie werkkaarte dialoog boks:

  • Kies Vaste rye van Verdeel op grond van opsie, en gee die aantal rye wat jy wil verdeel vir elke werkkaart in. (As u data opskrifte het en u dit wil plaas in elke nuwe verdeelwerkblad, gaan asseblief na My data het opskrifte opsie.)
  • Dan kan jy die gesplete werkkaartname spesifiseer onder die Nuwe werkkaart naam afdeling, kies die reëls van die werkblad name van die Reëls drop down lys, kan jy die Prefix or suffix vir die vel name ook. Sien skermkiekie:

doc-split-data-vir-rows7

4. Nadat u die instellings opgeeft, klik dan OK, en die gekose data is verdeel in verskeie werkkaarte van 'n nuwe werkboek deur elke 5-rye. En die opskrifte word vir elke nuwe werkblad ingevoeg. Sien skermkiekie:

doc-split-data-vir-rows8

Klik om meer te wete te kom oor hierdie Split Data-funksie.

Verwante artikel:

Hoe om data te verdeel in verskeie werkkaarte gebaseer op kolom in Excel?



Aanbevole Produktiviteitsinstrumente

Office Tab

goud star1 Bring handige oortjies na Excel en ander Office-sagteware, net soos Chrome, Firefox en nuwe Internet Explorer.

Kutools for Excel

goud star1 Amazing! Verhoog jou produktiwiteit in 5 minute. Geen spesiale vaardighede nodig nie, bespaar twee uur elke dag!

goud star1 300 Nuwe funksies vir Excel, maak Excel baie maklik en kragtig:

  • Voeg sel / Rye / Kolomme saam sonder om data te verloor.
  • Kombineer en konsolideer veelvuldige blaaie en werkboeke.
  • Vergelyk waardes, Kopieer verskeie reekse, skakel teks na datum, Eenheid en Geld Omskakeling.
  • Tel deur kleure, plasingsubtotale, gevorderde sorteer en superfilter,
  • Meer Kies / Invoeg / Skrap / Teks / Formaat / Skakel / Kommentaar / Werkboeke / Werkkaarte Gereedskap ...

Skermskoot van Kutools vir Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 10 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?