Opdel data i flere regneark efter antal rækker i Excel
Effektiv opdeling af et stort dataområde i flere Excel-regneark baseret på et bestemt rækkeantal kan strømline datastyring. For eksempel kan opdeling af et datasæt hver 5. række i flere ark gøre det mere overskueligt og organiseret. Denne vejledning tilbyder to praktiske metoder til at udføre denne opgave hurtigt og nemt.
Opdel data i flere regneark efter antal rækker med VBA-kode
Opdel data i flere regneark efter rækker tæller med Kutools til Excel
Opdel data i flere regneark efter antal rækker med VBA-kode
Følgende VBA-kode kan hjælpe dig med at opdele rækkerne i flere regneark efter antal rækker, gør som følger:
1. Hold nede ALT + F11 nøgle til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.
VBA: Opdel data i regneark efter antal rækker i 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. Tryk derefter på F5 nøgle, i pop op-dialogboksen skal du vælge overskriftsrækken, se skærmbillede:
4. Klik derefter på OK, og i det andet felt til prompt skal du vælge det dataområde, du vil opdele efter antal rækker, se skærmbillede:
5. Fortsæt med at klikke OK knap, i det tredje promptfelt, indtast antallet af rækker, som du vil opdele efter, se skærmbillede:
6. Klik derefter på OK knappen, er dataene blevet opdelt i flere regneark baseret på antallet af rækker, se skærmbillede:
Opdel data i flere regneark efter rækker tæller med Kutools til Excel
Hvis du mener, at VBA-koden er kompleks, Kutools til Excel tilbyder en hurtig og intuitiv løsning til effektivt at løse problemet med opsplitning af data. Det her Opdel data Funktionen forenkler betjeningsprocessen og giver brugere på ethvert færdighedsniveau mulighed for nemt at opdele store datasæt i flere regneark uden behov for dybdegående programmeringsviden, hvilket letter effektiv datastyring.
Hvis du har installeret Kutools til Excelskal du gøre som følger:
1. Vælg det dataområde, du vil opdele. Klik derefter Kutools Plus > Opdel data, se skærmbillede:
3. I Opdel data i flere regneark dialog boks:
- Type Faste rækker fra Split baseret på mulighed, og indtast antallet af rækker, som du vil opdele for hvert regneark.
- Hvis dine data har overskrifter, og du ønsker at indsætte dem i hvert nyt opdelt regneark, så tjek venligst Mine data har overskrifter mulighed. (Tip: du kan indtaste antallet af hyrderækker baseret på dine data.)
- Derefter kan du angive navnene på delt regneark under Nyt regnearknavn sektion, skal du vælge regnearkets navne regler fra Regler rulleliste, kan du tilføje Præfiks or Suffiks også for arknavne.
4. Når du har angivet indstillingerne, skal du klikke på OK, og de valgte data er opdelt i flere regneark i en ny projektmappe med hver 5. række. Og overskrifterne indsættes for hvert nye regneark. Se skærmbillede:
Relaterede artikler:
- Opdel data i flere regneark baseret på kolonne
- Antag, at du har et regneark med enorme rækker af data, og nu skal du opdele dataene i flere regneark baseret på kolonnen Navn (se følgende skærmbillede), og navnene indtastes tilfældigt. Måske kan du sortere dem først, og derefter kopiere og indsætte dem en efter en i andre nye arbejdsark. Men dette kræver din tålmodighed til at kopiere og indsætte gentagne gange. I dag vil jeg tale om nogle hurtige tricks til at løse denne opgave.
- Kombiner duplikatrækker og summer værdierne i Excel
- I Excel er det et almindeligt scenarie at støde på et datasæt med duplikerede poster. Ofte kan du finde dig selv med en række data, hvor hovedudfordringen er at kombinere disse duplikerede rækker effektivt, mens du samtidig opsummerer værdierne i en tilsvarende kolonne som vist på følgende skærmbillede. I denne sammenhæng vil vi dykke ned i flere praktiske metoder, der kan hjælpe dig med at konsolidere duplikerede data og aggregere deres tilknyttede værdier, hvilket forbedrer både klarheden og anvendeligheden af dine Excel-projektmapper.
- Flet to eller flere tabeller til én baseret på nøglekolonner
- Antag, at du har tre tabeller i en projektmappe, nu vil du flette disse tabeller i en tabel baseret på de tilsvarende nøglekolonner for at få resultatet som vist nedenstående skærmbillede. Dette kan være en besværlig opgave for de fleste af os, men bare rolig, denne artikel, jeg vil introducere nogle metoder til løsning af dette problem.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!