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.
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:
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
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...
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!