Wskazówka: inne języki są tłumaczone przez Google. Możesz odwiedzić English wersja tego linku.
Zaloguj Się
x
or
x
x
Zarejestruj
x

or

Jak podzielić dane na wiele arkuszy roboczych według liczby wierszy w programie Excel?

Na przykład, mam zakres listy danych, teraz chcę podzielić go na wiele arkuszy roboczych według liczby wierszy, w tym przykładzie podzielę go przez każde wiersze 5 (zobacz poniższe zrzuty ekranu). Czy są jakieś sposoby, aby pomóc nam szybko rozwiązać ten problem? Tutaj przedstawię dwie sztuczki, abyś mógł to łatwo zrobić.


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

Podziel dane na wiele arkuszy roboczych według liczby wierszy z kodem VBA

Podziel dane na wiele arkuszy roboczych według liczby wierszy za pomocą Kutools for Excel


strzałka niebieska prawa bańka Podziel dane na wiele arkuszy roboczych według liczby wierszy z kodem VBA


Poniższy kod VBA może pomóc w podzieleniu wierszy na wiele arkuszy roboczych według liczby wierszy, wykonaj następujące czynności:

1. Przytrzymaj przycisk ALT + F11 klucz, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

VBA: Podziel dane na arkusze według liczby wierszy w programie 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. Następnie naciśnij F5 aby uruchomić kod, pojawi się okno dialogowe wyboru zakresu do podziału, a następnie kliknij OKi inne okno dialogowe, w którym można określić liczbę wierszy. Zobacz zrzut ekranu:

4. Kliknij OK, a zakres jest dzielony na wiele arkuszy według liczby wierszy.

Uwagi: Podział arkuszy znajduje się z tyłu głównego arkusza.


strzałka niebieska prawa bańka Podziel dane na wiele arkuszy roboczych według liczby wierszy za pomocą Kutools for Excel

Powyższy kod może dzielić dane tylko według określonej liczby wierszy i nie doda tytułu do każdego arkusza roboczego, jeśli Twoje dane mają tytuł.

Ale z Kutools dla programu Excel'S Podziel danemożna nie tylko wstawiać nagłówki dla każdego arkusza roboczego, ale także określać nowe nazwy podzielonego arkusza roboczego.

Kutools dla programu Excel zawiera więcej niż 300 poręcznych narzędzi Excel. Darmowe, aby spróbować bez ograniczeń w 30 dni. Pobierz teraz

Jeśli masz zainstalowane Kutools dla Excel, wykonaj następujące czynności:

1. Wybierz zakres danych, które chcesz podzielić.

2, Kliknij Przedsiębiorstwo > Narzędzia arkusza roboczego > Podziel dane (lub Przedsiębiorstwo > Podziel dane ), patrz zrzut ekranu:

doc-split-data-by-rows6

3, w Podziel dane na wiele arkuszy Okno dialogowe:

  • Wybierz Naprawiono wiersze od Podziel na podstawie i podaj liczbę wierszy, które chcesz podzielić dla każdego arkusza. (Jeśli twoje dane mają nagłówki i chcesz wstawić je do każdego nowego podzielonego arkusza, sprawdź Moje dane mają nagłówki opcja.)
  • Następnie możesz podać nazwy podzielonego arkusza roboczego, pod nazwą Nowa nazwa arkusza roboczego sekcja, wybierz reguły nazw arkuszy roboczych z Zasady rozwijana lista, możesz dodać Prefiks or Przyrostek także dla nazw arkuszy. Zobacz zrzut ekranu:

doc-split-data-by-rows7

4. Po określeniu ustawień, kliknij OK, a wybrane dane zostały podzielone na wiele arkuszy roboczych nowego skoroszytu przy każdym wierszu 5. Nagłówki są wstawiane do każdego nowego arkusza. Zobacz zrzut ekranu:

doc-split-data-by-rows8

Kliknij, aby dowiedzieć się więcej o tej funkcji podziału danych.

Podobne artykuły:

Jak podzielić dane na wiele arkuszy na podstawie kolumny w programie Excel?



Zalecane narzędzia zwiększające wydajność

Karta Office

złota star1 Przynieś poręczne zakładki do Excela i innego oprogramowania Office, tak jak Chrome, Firefox i nowy Internet Explorer.

Kutools dla programu Excel

złota star1 Niesamowity! Zwiększ swoją produktywność za 5 minut. Nie potrzebujesz żadnych specjalnych umiejętności, oszczędzając dwie godziny dziennie!

złota star1 300 Nowe funkcje programu Excel, uczynienie z Excela bardzo prostym i wydajnym:

  • Scal komórki / wiersze / kolumny bez utraty danych.
  • Łącz i konsoliduj wiele arkuszy i zeszytów.
  • Porównaj zakresy, skopiuj wiele zakresów, przelicz tekst na datę, jednostkę i walutę.
  • Zliczaj według kolorów, podstrony stronicowania, sortowanie zaawansowane i super filtry,
  • Więcej Wybierz / Wstaw / Usuń / Tekst / Format / Link / Komentarz / Skoroszyty / Arkusze zadań Narzędzia ...

Zrzut ekranu z Kutools dla Excela

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?