Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas jagada andmed mitme töölehega ridade kaupa Excelis?

Näiteks mul on andmesidete loend, nüüd ma tahan jagada selle mitmeks tööleheks ridu arvuga, sel juhul jagan selle iga 5 rida (vt järgmisi ekraanikuvasid). Kas on võimalik lahendada see probleem kiiresti? Siin tutvustan teile kahte trikki, et saaksite seda lihtsalt teha.


doc-split-data-by-rows1


-2



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

Jaotage andmed mitmeks tööleheks rühmadena VBA koodiga

Eraldage andmed mitme töölehega ridade kaupa Exceliga Excelile Kutoolsi


nool sinine parempoolne mull Jaotage andmed mitmeks tööleheks rühmadena VBA koodiga


Järgmine VBA-kood aitab teil ridu mitme töölehega jagada ridu arvuga järgmiselt:

1. Hoidke all ALT + F11 võtme avamiseks Microsoft Visual Basic rakenduste jaoks aken.

2. Klõpsa Sisesta > moodulidja kleepige järgmine kood mooduli aknasse.

VBA: jaotatud andmed lehtedele ridade kaupa Excelis.

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. Siis vajuta F5 koodi käivitamiseks ning dialoogi avaneb jagamise vahemiku valimiseks ja seejärel klõpsake OK, ja teine ​​dialoog, kus saate määrata ridade loendi. Vaata pilti:

4. Click OK, ja ridade arv jagatakse mitmele lehele.

märkused: Jagatud töölehed asetatakse põhilõivu tagaküljele.


nool sinine parempoolne mull Eraldage andmed mitme töölehega ridade kaupa Exceliga Excelile Kutoolsi

Eespool toodud kood võimaldab andmeid jagada vaid määratud ridade loendiga ja see ei lisata iga töölehe andmete pealkirja, kui teie andmetel on pealkiri.

Kuid Kutools Exceli jaoks'S Jagatud andmed, saate mitte ainult lisada iga töölehe andmete päised, vaid ka määrata uue jaotatud töölehe nimed.

Kutools Exceli jaoks sisaldab rohkem kui 300i käepäraseid Exceli tööriistu. Tasuta proovida 30 päeva jooksul ilma piiranguteta. Seda kohe saama

Kui olete Kutools Exceli jaoks installinud, palun toimige järgmiselt:

1. Valige andmete hulk, mida soovite jagada.

2. Klõpsa ettevõte > Töölehe tööriistad > Jagatud andmed (Või ettevõte > Jagatud andmed ), vaata pilti:

doc-split-data-by-rows6

3. Aasta Jagatud andmed mitmeks tööleheks Dialoogikast:

  • valima Fikseeritud read pärit Split põhineb valik ja sisestage ridade arv, mida soovite iga töölehe jaoks jagada. (Kui teie andmetel on päised ja soovite neid lisada igasse uuesse jaotatud töölehelt, siis palun kontrollige Minu andmetel on päised võimalus.)
  • Seejärel saate määrata jaotatud töölehtede nimed, mille all on Uus töölehtede nimi jaotises valige töölehe nimede reeglid Reeglid rippmenüüst saate lisada eesliide or sufiks ka lehtede nimede jaoks. Vaata pilti:

doc-split-data-by-rows7

4. Pärast määrangute määramist klõpsake siis OKja iga 5-i rida on valitud andmed jagatud uue töövihiku mitu töölehte. Ja päised lisatakse iga uue töölehe jaoks. Vaata pilti:

doc-split-data-by-rows8

Klõpsake selle Split Data funktsiooni kohta lisateabe saamiseks.

Seotud artikkel:

Kuidas jagada andmed Excel'i veergude alusel mitmele töölehele?



Soovitatavad tööriistad

Office'i vahekaart

kuldne staatus1 Tooge kasulikke kaarte Exceli ja muudele Office'i tarkvaradele, nagu Chrome, Firefox ja uus Internet Explorer.

Kutools Exceli jaoks

kuldne staatus1 Amazing! Suurendage oma tootlikkust 5 minutiga. Ei vaja erilisi oskusi, välja arvatud kaks tundi iga päev!

kuldne staatus1 300 uued funktsioonid Exceli jaoks, tee Exceli palju lihtsaks ja võimsaks:

  • Ühendage lahtrid / ridad / veerud andmete kaotamata.
  • Mitme lehe ja töövihikute kombineerimine ja konsolideerimine.
  • Võrdlema diapasse, kopeeri mitu vahemikku, teisendades teksti kuupäeva, ühiku ja valuuta konverteerimise.
  • Värvide arv, lehtede vahesummad, täiustatud sorteerimine ja superfiltrid
  • Veel Vali / Lisa / Kustuta / Tekst / Vormindus / Link / Kommentaar / Töölehed / Töölehed Tööriistad ...

Kutoolsi ekraanipilt Exceli jaoks

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 · 9 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?