Padoms. Citas valodas ir Google tulkotas. Jūs varat apmeklēt English šīs saites versiju.
Pieslēgties
x
or
x
x
Reģistrēties
x

or

Kā sadalīt datus vairākās darblapās ar rindām programmā Excel?

Piemēram, man ir virkne datu sarakstu, tagad es vēlos sadalīt to vairākās darblapās ar rindu skaitu, šajā piemērā es to sadalīšu par katru 5 rindu (skatiet tālāk redzamos ekrānuzņēmumus). Vai ir kādi veidi, kā palīdzēt mums ātrāk atrisināt šo problēmu? Šeit es ieviešu divus trikus, lai jūs varētu viegli izdarīt.


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

Sadalīt datus vairākās darblapās ar rindu skaitu ar VBA kodu

Sadalīt datus vairākās darblapās ar rindu skaitu ar Kutools programmā Excel


bultiņa zils labais burbulis Sadalīt datus vairākās darblapās ar rindu skaitu ar VBA kodu


Šis VBA kods var palīdzēt jums sadalīt rindas vairākās darblapās ar rindu skaitu, rīkojoties šādi:

1. Turiet nospiestu ALT + F11 taustiņš, lai atvērtu Microsoft Visual Basic for Applications logs.

2. Noklikšķiniet ielaidums > Moduļiun ielīmējiet moduļa logā šādu kodu.

VBA: sadaliet datus lapās ar rindām programmā 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. Tad nospiediet F5 lai palaistu kodu, un parādās dialoglodziņš, lai atlasītu sadalījumu, un pēc tam noklikšķiniet uz OK, un vēl viens dialogs, lai jūs varētu norādīt rindu skaitu. Skatīt ekrānuzņēmumu:

4. Noklikšķiniet OK, un rindu skaits tiek sadalīts vairākās lapās.

Piezīmes: Sadalītās darblapas tiek ievietotas galvenā darblapas aizmugurē.


bultiņa zils labais burbulis Sadalīt datus vairākās darblapās ar rindu skaitu ar Kutools programmā Excel

Iepriekš minētais kods var sadalīt datus tikai pēc norādīto rindu skaita, un tas nerada nosaukumu katram darblapas datiem, ja jūsu datiem ir virsraksts.

Bet ar Kutools Excel'S Sadalīt datus, jūs varat ne tikai ievietot galvenes katram darblapas datiem, bet arī var norādīt jaunos sadalīto darblapu nosaukumus.

Kutools Excel ietver vairāk par 300 ērtiem Excel rīkiem. Bezmaksas mēģināt bez ierobežojumiem 30 dienās. Get to tagad

Ja esat instalējis programmu Kutools Excel, lūdzu, rīkojieties šādi:

1. Atlasiet datu diapazonu, kuru vēlaties sadalīt.

2. Noklikšķiniet uzņēmums > Darblapas rīki > Sadalīt datus (Vai uzņēmums > Sadalīt datus ), skatiet ekrānuzņēmumu:

doc-split-data-by-rows6

3. Iekš Sadalīt datus vairākās darblapās dialoglodziņš:

  • atlasīt Fiksētās rindas no Split balstīts uz un ievadiet rindu skaitu, kuru vēlaties sadalīt katrai darblapai. (Ja jūsu datiem ir galvenes un vēlaties tos ievietot katrā jaunajā sadalītajā darblapā, lūdzu, pārbaudiet Maniem datiem ir galvenes iespēja.)
  • Tad jūs varat norādīt split darblapas nosaukumus, zem Jauns darblapu nosaukums sadaļā atlasiet darblapas nosaukumu noteikumus no Noteikumi nolaižamo sarakstu, jūs varat pievienot Prefikss or piedēklis par lapu nosaukumiem, kā arī. Skatīt ekrānuzņēmumu:

doc-split-data-by-rows7

4. Pēc tam norādiet iestatījumus un pēc tam noklikšķiniet uz OK, un katras 5 rindas atlasītie dati ir sadalīti vairākās jaunās darbgrāmatas darblapās. Un galvenes tiek ievietotas katrai jaunai darblapai. Skatīt ekrānuzņēmumu:

doc-split-data-by-rows8

Noklikšķiniet, lai uzzinātu vairāk par šo Split Data funkciju.

Saistītais raksts:

Kā sadalīt datus vairākās darblapās, pamatojoties uz kolonnu Excel?



Ieteicamie produktivitātes rīki

Cilnē Office

zelta zvaigzne1 Novietojiet parocīgas cilnes Excel un citai Office programmatūrai, tāpat kā Chrome, Firefox un jaunā Internet Explorer.

Kutools Excel

zelta zvaigzne1 Pārsteidzošs! Palieliniet savu produktivitāti 5 minūtēs. Nepieciešamas īpašas prasmes, izņemot katru dienu divas stundas!

zelta zvaigzne1 300 jaunas funkcijas Excel, Make Excel daudz viegli un jaudīgu:

  • Apvienot šūnu / rindas / kolonnas, nezaudējot datus.
  • Apvienot un konsolidēt vairākas lapas un darbgrāmatas.
  • Salīdziniet diapazonus, kopējiet vairākus diapazonus, pārveidojiet tekstu uz datumu, vienību un valūtas konvertēšanu.
  • Count by Colors, Paging Starpsvars, Advanced Kārtot un Super Filter,
  • Vairāk Izvēlēties / Ievietot / Dzēst / Teksts / Format / Saite / Komentārs / Darbgrāmatas / Darblapas Rīki ...

Kutools ekrānuzņēmums 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?