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

Excel Productiviteit Tools

Office Tab: Bring kragtige tabbladen na Office (insluitend Excel), net soos Chrome, Safari, Firefox en Internet Explorer. Bespaar jou die helfte van die tyd, en verminder duisende muis klik vir jou. 30-dag onbeperkte gratis toets

Kutools for Excel: Stoor 70% van jou tyd en Los 80% Excel probleme op vir jou. 300 + gevorderde funksies ontwerp vir 1500 + werk scenario, maak Excel baie maklik en verhoog produktiwiteit dadelik.60-dag onbeperkte gratis toets


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

Lint van Excel (met Kutools vir Excel geïnstalleer)

300 + Gevorderde funksies Verhoog jou produktiwiteit deur 70%, en help jou om uit die menigte te staan!

Wil jy jou daaglikse werk vinnig en perfek voltooi? Kutools vir Excel bring 300 + koel en kragtige gevorderde funksies (Kombineer werkboeke, som volgens kleur, verdeel selinhoud, verander datum, en so aan ...) vir 1500 + werk scenario's, help jou om op te los 80% Excel probleme.

  • Hanteer alle ingewikkelde take in sekondes, help om jou werksvermoë te verbeter, kry sukses uit die strawwe kompetisie, en moenie bekommerd wees dat jy ontslaan word nie.
  • Bespaar baie werk tyd, laat baie tyd vir jou om die familie lief te hê en te versorg en nou 'n gemaklike lewe te geniet.
  • Verminder duisende sleutelbord- en muiskliek elke dag, verlig jou moeg oë en hande, en gee jou 'n gesonde liggaam.
  • Word 'n Excel-deskundige in 3 minute en kry 'n bewonderende blik van jou kollegas of vriende.
  • Moet nie meer pynlike formules en VBA-kodes onthou nie, 'n ontspannende en aangename gees, gee jou 'n opwinding wat jy nog nooit tevore gehad het nie.
  • Spandeer slegs $ 39, maar die moeite werd as $ 4000 opleiding van ander. Word gebruik deur 110,000 elites en 300 + bekende maatskappye.
  • 60-dag onbeperkte gratis proeflopie. 60-dag geld terug waarborg. Gratis opgradering en ondersteuning vir 2 jaar. Koop een keer, gebruik vir ewig.
  • Verander die manier waarop jy nou werk en gee jou dadelik 'n beter lewe!

Office Tab Bring Doeltreffende En Handige Tabs Office (insluitend Excel), Net soos Chrome, Firefox, en Nuwe IE

  • Verhoog jou produktiwiteit deur 50% wanneer jy verskeie dokumente bekyk en redigeer.
  • Verminder elke dag honderde muis klik vir jou, sê totsiens aan die hand van die muis.
  • Maak en skep dokumente in nuwe oortjies van dieselfde venster, eerder as in nuwe vensters.
  • Help jou om vinniger en makliker uit die skare uit te kom! Een sekonde om te wissel tussen dekades oop dokumente!
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.
    MattG · 3 years ago
    I've searched endlessly for this. Thank you so much for this tutorial!!!!
  • To post as a guest, your comment is unpublished.
    John Boyd · 3 years ago
    Works great coupled with this one as necessary: http://www.extendoffice.com/documents/excel/628-excel-split-workbook.html
  • To post as a guest, your comment is unpublished.
    Teri · 4 years ago
    It works with one row of column headers. I use multiple rows that include averages and totals. Plus, I have a distribution chart at the bottom. How can I keep these intact? Currently this info is not transferring over to the new worksheets it creates.
  • To post as a guest, your comment is unpublished.
    Teri · 4 years ago
    I have multiple rows of column headers containing averages and totals at the top of each sheet. I have a distribution chart at the bottom. This needs to be kept on each new sheet split out. How do I make this happen with the tool?
  • To post as a guest, your comment is unpublished.
    joms · 4 years ago
    hello,

    its not working for me. my data is coming from a pivot table and it has header. this vba can export some data but not all... pls assist