Przejdź do głównej zawartości

Podziel dane na wiele arkuszy według liczby wierszy w programie Excel

Efektywne podzielenie dużego zakresu danych na wiele arkuszy programu Excel w oparciu o określoną liczbę wierszy może usprawnić zarządzanie danymi. Na przykład podzielenie zbioru danych co 5 wierszy na wiele arkuszy może ułatwić zarządzanie nim i jego organizację. W tym przewodniku przedstawiono dwie praktyczne metody szybkiego i łatwego wykonania tego zadania.

Podziel dane na wiele arkuszy według liczby wierszy za pomocą kodu VBA

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


Podziel dane na wiele arkuszy według liczby wierszy za pomocą kodu VBA

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

1. Przytrzymaj 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 Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Następnie naciśnij F5 klucz, w wyskakującym oknie dialogowym wybierz wiersz nagłówka, zobacz zrzut ekranu:

4. Następnie kliknij OK, aw drugim polu zachęty wybierz zakres danych, który chcesz podzielić według liczby wierszy, patrz zrzut ekranu:

5. Kliknij dalej OK przycisk, w trzecim polu zachęty wprowadź liczbę wierszy, według których chcesz podzielić, patrz zrzut ekranu:

6. Następnie kliknij OK przycisk, dane zostały podzielone na wiele arkuszy na podstawie liczby wierszy, zobacz zrzut ekranu:


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

Jeśli uważasz, że kod VBA jest skomplikowany, Kutools dla programu Excel oferuje szybkie i intuicyjne rozwiązanie pozwalające skutecznie rozwiązać problem dzielenia danych. Ten Podziel dane funkcja upraszcza proces obsługi, umożliwiając użytkownikom o dowolnym poziomie umiejętności łatwe dzielenie dużych zbiorów danych na wiele arkuszy bez konieczności posiadania dogłębnej wiedzy programistycznej, ułatwiając efektywne zarządzanie danymi.

Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz

Jeśli masz zainstalowany Kutools dla programu Excelwykonaj następujące czynności:

1. Wybierz zakres danych, który chcesz podzielić. Następnie kliknij Kutools Plus > Podziel danezobacz zrzut ekranu:

3, w Podziel dane na wiele arkuszy roboczych Okno dialogowe:

  • Wybierz Naprawiono rzędy od Podziel na podstawie opcję i wprowadź 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. (Wskazówka: możesz wprowadzić liczbę wierszy herdera na podstawie swoich danych.)
  • Następnie możesz określić nazwy podzielonych arkuszy roboczych w obszarze Nowa nazwa arkusza wybierz reguły nazw arkuszy z Zasady rozwijanej listy, możesz dodać Prefiks or Przyrostek również dla nazw arkuszy. 

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

Note: Aby zastosować tę funkcję, proszę pobierz i zainstaluj Kutools dla Excela pierwszy.

Podobne artykuły:

  • Podziel dane na wiele arkuszy roboczych na podstawie kolumny
  • Załóżmy, że masz arkusz z ogromnymi wierszami danych i teraz musisz podzielić dane na wiele arkuszy na podstawie kolumny Nazwa (patrz poniższy zrzut ekranu), a nazwy są wprowadzane losowo. Może możesz najpierw je posortować, a następnie skopiować i wkleić jeden po drugim do innych nowych arkuszy. Jednak wielokrotne kopiowanie i wklejanie będzie wymagało cierpliwości. Dzisiaj opowiem o kilku szybkich trikach, które pomogą rozwiązać to zadanie.
  • Połącz zduplikowane wiersze i zsumuj wartości w programie Excel
  • W programie Excel częstym scenariuszem jest napotkanie zestawu danych ze zduplikowanymi wpisami. Często możesz spotkać się z zakresem danych, dla którego kluczowym wyzwaniem jest efektywne połączenie tych zduplikowanych wierszy przy jednoczesnym sumowaniu wartości w odpowiedniej kolumnie, jak pokazano na poniższym zrzucie ekranu. W tym kontekście przyjrzymy się kilku praktycznym metodom, które mogą pomóc w konsolidacji zduplikowanych danych i agregowaniu powiązanych z nimi wartości, zwiększając zarówno przejrzystość, jak i użyteczność skoroszytów programu Excel.
  • Scal dwie lub więcej tabel w jedną na podstawie kluczowych kolumn
  • Przypuśćmy, że masz trzy tabele w skoroszycie, teraz chcesz scalić te tabele w jedną tabelę na podstawie odpowiednich kolumn kluczowych, aby uzyskać wynik jak na poniższym zrzucie ekranu. Dla większości z nas może to być kłopotliwe zadanie, ale proszę się nie martwić, w tym artykule przedstawię kilka metod rozwiązania tego problemu.

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (25)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Very useful thank u so much
This comment was minimized by the moderator on the site
Its awesome!
Rated 5 out of 5
This comment was minimized by the moderator on the site
But header is not retaining in the output. Please guide me if any solution.
This comment was minimized by the moderator on the site
Can we split this same data but by using a code in php?
This comment was minimized by the moderator on the site
U are the savior my brother. Take love from Bangladesh <3 
This comment was minimized by the moderator on the site
Is there a way to keep the header across all worksheet?
For example, row 1 is the column names and row 2 to row 51 are my data. When I split it into 10 worksheets, I hope to have row 1 be the header and row 2-6 be the data.
This comment was minimized by the moderator on the site
this was very helpful. thank you
This comment was minimized by the moderator on the site
I have 20 million data in excel. I need to segregate it with first 2500 rows followed by 250 data so on. How can I do it quickly.
This comment was minimized by the moderator on the site
Minmatar detected :O
This comment was minimized by the moderator on the site
thank you. saved a lot of my time.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations