Vihje: Muut kielet ovat Google-käännettyjä. Voit vierailla English tämän linkin versio.
Kirjaudu
x
or
x
x
Rekis.
x

or

Miten jakaa tiedot useisiin laskentataulukoihin rivien määräksi Excelissä?

Esimerkiksi minulla on joukko tietoluetteloa, nyt haluan jakaa sen useisiin laskentataulukoihin rivien mukaan, tässä esimerkissä jakan sen jokaisella 5-rivillä (katso seuraavia kuvakaappauksia). Onko jotain tapoja auttaa meitä ratkaisemaan tämä ongelma nopeasti? Tässä esitän kaksi temppua, jotta voit tehdä sen helposti.


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

Jakaa tiedot useisiin laskentataulukoihin rivien mukaan VBA-koodilla

Jakaa tiedot useisiin laskentataulukoihin rivien määrällä Kutools for Excel -ohjelmalla


nuoli sininen oikeus kupla Jakaa tiedot useisiin laskentataulukoihin rivien mukaan VBA-koodilla


Seuraavalla VBA-koodilla voidaan jakaa rivit useisiin laskentataulukoihin rivien lukumäärän mukaan seuraavasti:

1. Pidä alhaalla ALT + F11 avain avata Microsoft Visual Basic for Applications ikkunassa.

2. Klikkaus liite > Moduulit, ja liitä seuraava koodi Moduuli-ikkunaan.

VBA: jakaa tiedot arkkeihin rivejä laskettaessa 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. Paina sitten F5 -näppäintä, ja valintaikkuna avautuu, kun valitset jakamisen alueeksi ja napsauta sitten OK, ja toinen valintaikkuna, jolla voit määrittää rivit laskemaan. Katso kuvakaappaus:

4. Klikkaus OK, ja alue jakautuu useisiin arkkeihin rivien lukumäärän mukaan.

Huomautuksia: Jaetut laskentataulukot sijoitetaan master-taulukon taakse.


nuoli sininen oikeus kupla Jakaa tiedot useisiin laskentataulukoihin rivien määrällä Kutools for Excel -ohjelmalla

Edellä oleva koodi voi jakaa tiedot vain määritettyjen rivien lukumäärän mukaan, eikä se lisää otsikkotietoja kutakin laskentataulukkoa varten, jos tieto on otsikossa.

Mutta Kutools for Excel'S Jaa tiedot, et voi vain lisätä otsakkeita jokaiseen laskentataulukkoon, mutta voi myös määrittää uuden jaetun laskentataulukon nimen.

Kutools for Excel sisältää enemmän kuin 300 käteviä Excel-työkaluja. Vapaata yrittämistä ilman rajoituksia 30 päivinä. Hae se nyt

Jos olet asentanut Kutools for Excel, toimi seuraavasti:

1. Valitse halutun tiedon alue.

2. Klikkaus yritys > Työkalun työkalut > Jaa tiedot (Tai yritys > Jaa tiedot ), katso kuvakaappaus:

doc-split-data-by-rows6

3. Vuonna Jaa tiedot useisiin laskentataulukkoihin valintaikkuna:

  • valita Kiinteät rivit alkaen Split perustuu -vaihtoehto ja kirjoita rivien määrä, jonka haluat jakaa jokaiselle työarkille. (Jos tietojasi on otsakkeita ja haluat lisätä ne kaikkiin uusiin jaettuun laskentataulukkoon, tarkista Omat tiedot ovat otsakkeita vaihtoehto.)
  • Tällöin voit määrittää haluttujen laskentataulukkojen nimet Uusi laskentataulukko -osassa, valitse laskentataulukon nimiä Säännöt avattava luettelo, voit lisätä Etuliite or jälkiliite myös arkin nimiä varten. Katso kuvakaappaus:

doc-split-data-by-rows7

4. Kun olet määrittänyt asetukset, napsauta sitten OK, ja valitut tiedot on jaettu jokaiseen 5-riviin usean uuden työkirjan taulukkona. Ja otsikot lisätään jokaiselle uudelle laskentataulukkalle. Katso kuvakaappaus:

doc-split-data-by-rows8

Napsauta saat lisätietoja tästä Split Data -ominaisuudesta.

Aiheeseen liittyvä artikkeli:

Kuinka jakaa tiedot useisiin laskentataulukoihin, jotka perustuvat Excel-sarakkeeseen?



Suositeltavat tuottavuustyökalut

Office-välilehti

kulta star1 Tuo kätevät välilehdet Exceliin ja muihin Office-ohjelmistoihin, kuten Chrome, Firefox ja uusi Internet Explorer.

Kutools for Excel

kulta star1 Hämmästyttävä! Lisää tuottavuutta 5 minuutissa. Älä tarvitse mitään erikoistaitoja, paitsi kaksi tuntia päivässä!

kulta star1 300 Excelin uudet ominaisuudet, Excelin ansiosta helppo ja tehokas:

  • Yhdistä solu / rivit / sarakkeet ilman tietojen menettämistä.
  • Yhdistä ja yhdistä useita arkkeja ja työkirjoja.
  • Vertaa alueita, kopioi useita alueita, muuntaa tekstin päivämäärän, yksikön ja valuutan muuntamisen.
  • Laske värit, hakulausekartat, Advanced Sort ja Super Filter,
  • Lisää Valitse / Lisää / Poista / Teksti / Muoto / Link / Kommentti / Työkirjat / Työtaso Työkalut ...

Kutools for Excel -näyttö

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?