Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip suskaidyti duomenis į kelis darbalapius eilučių skaičiumi "Excel"?

Pavyzdžiui, turiu duomenų sąrašo diapazoną, dabar noriu jį padalyti į kelis darbo lapus eilučių skaičiavimu, šiame pavyzdyje aš jį padalinsiu kiekvieną 5 eilutę (žr. Toliau pateiktus ekrano kopius). Ar yra kokių nors būdų, kaip greitai išspręsti šią problemą? Čia aš supažindinsiu du gudrybius, kad lengvai padarytumėte.


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

Padalinkite duomenis į kelis darbalapius eilučių skaičiumi su VBA kodu

Suskirstyti duomenis į kelis darbo lapus eilučių skaičiumi su "Kutools" "Excel"


rodyklė mėlyna dešinė burbulas Padalinkite duomenis į kelis darbalapius eilučių skaičiumi su VBA kodu


Šis VBA kodas gali padalinti eilutes į kelis darbo lapus eilučių skaičiumi, atlikite tokius veiksmus:

1. Laikykite nuspaudę ALT + F11 raktas atidaryti "Microsoft Visual Basic for Applications" langas.

2, Spauskite įsiuvas > Moduliaiir į modulio langą įklijuokite šį kodą.

VBA: "Excel" suskaidyti duomenis į lakštus eilėmis.

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. Tada paspauskite F5 paleiskite kodą, o dialogo langas atsiras, jei norite pasirinkti padalijamą diapazoną, tada spustelėkite OK, ir kitas dialogas, skirtas nurodyti eilučių skaičių. Žr. Ekrano kopiją:

4. Spauskite OK, o eilučių skaičius suskaidomas į kelis lapus.

pastabos: Padalintos darbo lapai yra pagrindinio darbo lapo pusėje.


rodyklė mėlyna dešinė burbulas Suskirstyti duomenis į kelis darbo lapus eilučių skaičiumi su "Kutools" "Excel"

Pirmiau nurodytas kodas gali suskaidyti duomenis tik pagal nurodytas eilučių skaičių, o kiekvieno darbalapio duomenų pavadinime jis nebus įtrauktas, jei jūsų duomenys turi pavadinimą.

Bet su Kutools for ExcelS Split Data, ne tik galite įterpti kiekvieno darbo lapo duomenų antraštes, bet ir nurodyti naujus padalijimo darbų sąrašo pavadinimus.

Kutools for Excel apima daugiau nei 300 patogių "Excel" įrankių. Nemokamai išbandyti be apribojimų 30 dienų. Gauk, tai dabar

Jei įdiegėte "Kutools for Excel", atlikite šiuos veiksmus:

1. Pasirinkite duomenų, kuriuos norite suskaidyti, diapazoną.

2, Spauskite įmonė > Darbalapio įrankiai > Split Data (Arba įmonė > Split Data ), žr. ekrano kopiją:

doc-split-data-by-rows6

3. Be Suskirstyti duomenis į keletą darbo lapų dialogo langas:

  • pasirinkti Fiksuotos eilutės nuo Splitas pagrįstas parinktį ir įveskite eilučių skaičių, kurį norite suskaidyti kiekvienai darbo lapai. (Jei jūsų duomenys turi antraštes ir norite juos įtraukti į kiekvieną naują atskyrimo lapą, patikrinkite Mano duomenys turi antraštes pasirinkimas.)
  • Tada galite nurodyti padalijimo darbalapio pavadinimus, po Naujas darbalapio pavadinimas skirsnyje pasirinkite darbalapio pavadinimo taisykles iš Taisyklės išskleidžiamajame sąraše galite pridėti Prefiksas or Priesaga taip pat už lapų pavadinimus. Žr. Ekrano kopiją:

doc-split-data-by-rows7

4. Nurodę nustatymus, tada spustelėkite OK, o kiekvienos 5 eilutės duomenys buvo padalyti į kelis naujos knygos darbalapius. Antraštės įterpiamos kiekvienam naujam darbalapiui. Žr. Ekrano kopiją:

doc-split-data-by-rows8

Spustelėkite, jei norite sužinoti daugiau apie šią Split Data funkciją.

Susijęs straipsnis:

Kaip suskaidyti duomenis į kelis darbalapius pagal "Excel" stulpelį?



Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1 Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1 "300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija 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 · 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?