Razdelite podatke na več delovnih listov glede na število vrstic v Excelu
Učinkovita razdelitev velikega obsega podatkov na več Excelovih delovnih listov na podlagi določenega števila vrstic lahko poenostavi upravljanje podatkov. Če na primer razdelite nabor podatkov vsakih 5 vrstic na več listov, ga lahko naredite bolj obvladljivega in organiziranega. Ta priročnik ponuja dve praktični metodi za hitro in enostavno izvedbo te naloge.
Podatke razdelite na več delovnih listov po številu vrstic s kodo VBA
Razdelite podatke na več delovnih listov po številu vrstic s programom Kutools za Excel
Podatke razdelite na več delovnih listov po številu vrstic s kodo VBA
Naslednja koda VBA vam lahko pomaga razdeliti vrstice na več delovnih listov po številu vrstic, naredite naslednje:
1. Držite tipko ALT + F11 ključ, da odprete Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.
VBA: Razdelite podatke v delovne liste glede na število vrstic v Excelu
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. Nato pritisnite F5 v pojavnem pogovornem oknu izberite vrstico glave in si oglejte posnetek zaslona:
4. Nato kliknite OKin v drugem pozivnem polju izberite obseg podatkov, ki ga želite razdeliti po številu vrstic, glejte posnetek zaslona:
5. Pojdi na klik OK v tretje pozivno polje vnesite število vrstic, ki jih želite razdeliti, glejte posnetek zaslona:
6. Nato kliknite OK gumb, so bili podatki razdeljeni na več delovnih listov glede na število vrstic, glejte posnetek zaslona:
Razdelite podatke na več delovnih listov po številu vrstic s programom Kutools za Excel
Če menite, da je koda VBA zapletena, Kutools za Excel ponuja hitro in intuitivno rešitev za učinkovito reševanje težave z delitvijo podatkov. to Razdeljeni podatki funkcija poenostavi postopek delovanja in uporabnikom vseh stopenj znanja omogoča enostavno razdelitev velikih naborov podatkov na več delovnih listov brez potrebe po poglobljenem znanju programiranja, kar olajša učinkovito upravljanje podatkov.
Če ste namestili Kutools za Excel, naredite naslednje:
1. Izberite obseg podatkov, ki jih želite razdeliti. Nato kliknite Kutools Plus > Razdeljeni podatki, glej posnetek zaslona:
3. v Razdelite podatke na več delovnih listov pogovorno okno:
- Izberite Fiksne vrstice iz Razdeljeno na podlagi možnost in vnesite število vrstic, ki jih želite razdeliti za vsak delovni list.
- Če imajo vaši podatki glave in jih želite vstaviti v vsak nov razdeljeni delovni list, preverite Moji podatki imajo glave možnost. (Nasvet: na podlagi vaših podatkov lahko vnesete število pastirjev.)
- Nato lahko pod imenom deljeni delovni list podate imena Ime novega delovnega lista v razdelku izberite pravila za imena delovnih listov v Pravila spustni seznam, lahko dodate Prefiks or pripona tudi za imena listov.
4. Ko določite nastavitve, kliknite OK, izbrani podatki pa so bili razdeljeni na več delovnih listov novega delovnega zvezka za vsakih 5 vrstic. In glave so vstavljene za vsak nov delovni list. Oglejte si posnetek zaslona:
Sorodni članki:
- Razdelite podatke na več delovnih listov glede na stolpec
- Recimo, da imate delovni list z ogromnimi vrsticami podatkov, zdaj pa morate podatke razdeliti na več delovnih listov glede na stolpec Ime (glejte naslednji posnetek zaslona), imena pa so vnesena naključno. Morda jih lahko najprej razvrstite, nato pa enega za drugim kopirate in prilepite v druge nove delovne liste. Toda to bo zahtevalo vašo potrpežljivost za večkratno kopiranje in lepljenje. Danes bom govoril o nekaj hitrih trikih za rešitev te naloge.
- Združite podvojene vrstice in seštejte vrednosti v Excelu
- V Excelu je pogost scenarij, da naletite na nabor podatkov s podvojenimi vnosi. Pogosto se lahko znajdete z vrsto podatkov, pri katerih je ključni izziv učinkovito združiti te podvojene vrstice in hkrati sešteti vrednosti v ustreznem stolpcu, kot je prikazano na naslednjem posnetku zaslona. V tem kontekstu se bomo poglobili v več praktičnih metod, ki vam lahko pomagajo konsolidirati podvojene podatke in združiti njihove povezane vrednosti, s čimer izboljšate jasnost in uporabnost vaših Excelovih delovnih zvezkov.
- Združite dve ali več tabel v eno na podlagi ključnih stolpcev
- Recimo, da imate v delovnem zvezku tri tabele, jih želite združiti v eno tabelo na podlagi ustreznih stolpcev s ključi, da dobite rezultat, kot je prikazano spodaj. To je lahko za večino od nas težavna naloga, toda, ne skrbite, v tem članku bom predstavil nekaj metod za reševanje te težave.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!