Kako razdeliti Excelov list v več delovnih listov (metode 3) -

Hugh West

18-10-2023 Osnove programa Excel
  • Deliti To
Hugh West

Velik nabor podatkov lahko vsebuje več vrednosti na podlagi istega stolpca. Če želite, lahko razdelite vrednosti istih kategorij (oddelek, mesec, regija, države itd.) ali vaše želje v različne delovne liste ali delovne zvezke. V tem članku bom pojasnil, kako razdeliti Excelov list v več delovnih listov.

Da vam bo razlaga bolj jasna, bom uporabil vzorčni nabor podatkov. V naboru podatkov so 4 stolpci, ki predstavljajo podatke o prodaji v različnih mesecih. Ti stolpci so Prodajalec, regija, mesec, in . Prodaja .

Prenesi v prakso

Razdelite Excelov list v več delovnih listov.xlsm

Načini razdelitve Excelovega lista v več delovnih listov

1. Uporaba filtra in kopiranja

V katerem koli listu lahko podatke razdelite na več listov z uporabo Filter .

Najprej izberite območje celic, v katerem želite uporabiti Filter .

➤ tu sem izbral območje celic B3:E15 .

Nato odprite Podatki zavihek>> izberite Filter .

Uporabite lahko tudi CTRL + SHIFT + L za uporabo Filter uporaba tipkovnice .

Zdaj, Filter se uporabi za izbrano območje celic.

Nato kliknite na Mesec stolpec, saj želim razdeliti podatke glede na Mesec vrednosti.

Od tam sem izbrisano vse razen Januar . Nazadnje kliknite V REDU .

Zdaj so vse vrednosti, pri katerih je Mesec je . Januar so filtrirani.

Nato, Kopiraj podatke in Paste v nov delovni list.

Tu sem novi list poimenoval januar. Tako boste videli vse informacije o prodaji za Januar je predstavljena tukaj.

Za preostali del Meseci , lahko sledite enakim postopkom.

Ponovno kliknite na Mesec stolpec, saj želim razdeliti podatke glede na Mesec vrednosti.

Od tam izberite vse razen Februar . Nazadnje kliknite V REDU .

Zdaj so vse vrednosti za Februar Mesec so filtrirani.

Nato, Kopiraj podatke in Paste v nov delovni list.

Kasneje sem novi list poimenoval Februar. Tako boste videli vse informacije o prodaji za Mesec na spletnem mestu Februar je predstavljena tukaj.

Ponovno kliknite na Mesec stolpec, saj želim razdeliti podatke glede na Mesec vrednosti.

Od tam izberite vse razen marec . Nazadnje kliknite V REDU .

Zdaj boste videli vse vrednosti marec so filtrirani.

Nato, Kopiraj podatke in Paste v nov delovni list.

Na koncu sem novi list poimenoval marec . Tako boste videli vse prodajne informacije za marec je predstavljena tukaj.

Preberite več: Razdelite Excelov list v več listov na podlagi vrstic

2. Razdelitev Excelovega lista na podlagi števila vrstic z uporabo VBA

Preden začnete s postopkom, se morate zavedati, da morate podatke začeti zajemati iz prvih vrstic.

Zdaj odprite Razvijalec zavihek>> izberite Visual Basic

Odprlo se bo novo okno Microsoft Visual Basic za aplikacije .

Zdaj, od Vstavite >> izberite Modul

A Modul tam se bo odprla.

Nato napišite naslednjo kodo v Modul . 

 Sub SplitExcelSheet_into_MultipleSheets() Dim WorkRng As Range Dim xRow As Range Dim SplitRow As Integer Dim xWs As Worksheet On Error Resume Next EcelTitleId = "Split Row Numt" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", ExcelTitleId, WorkRng.Address, Type:=8) SplitRow = Application.InputBox("Split Row Num", ExcelTitleId, 4, Type:=1) Set xWs = WorkRng.ParentSet 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

Tu sem ustvaril podproceduro z imenom SplitExcelSheet_into_MultipleSheets .

Kjer sem razglasil nekaj spremenljivk, so to WorkRng in . xRow kot Razpon vrsta potem

SplitRow kot Integer tudi xWs kot Delovni list vrsta.

Uporabljajte tudi ExcelTitleId da bi zagotovili pogovorno okno naslov.

Navedel sem razdeljeno številko vrstice 4 za razdelitev podatkov po 4 vrsticah, ker je v mojem naboru podatkov Mesec na spletnem mestu Januar ima 4 vrstice.

Nazadnje uporabite Za zanke na SplitRow dokler se dani obseg celic ne konča.

Nato, Shrani kodo in se vrnite na delovni list.

Zdaj odprite Razvijalec zavihek>> Od Vstavite >> izberite Gumb

A pogovorno okno se prikaže.

Dodelitev Makro v vstavljenem Gumb .

Izberite SplitExcelSheet_into_Multiplesheets iz Ime makra nato kliknite V REDU .

Samo kliknite na Gumb za zagon Makro .

Zdaj je pogovorno okno se prikaže okno, kamor lahko vnesete podatke obseg.

➤ tu sem izbral območje celic B1:E12

Nato kliknite V REDU .

Še en pogovorno okno se prikaže število izbranih vrstic, ki ste jih že navedli v kodi za razdelitev nabora podatkov.

➤ V kodi sem navedel 4 kot Številka razdeljene vrstice

Kot sem v celoti 12 vrstice tako z 4 vrstice bo 3 listi .

Na spletnem mestu List1 , bodo prikazani podatki prvih štirih vrstic.

Na spletnem mestu List2 , boste videli podatke vrstic od 5 do 8.

Na spletnem mestu List3 , bodo prikazani podatki zadnjih štirih vrstic.

Preberite več: Excel VBA: Razdelitev lista v več listov na podlagi vrstic

Podobna branja

  • Kako razdeliti zaslon v Excelu (3 načini)
  • [Popravek:] Excelov pogled Side by Side ne deluje
  • Kako ločiti liste v programu Excel (6 učinkovitih načinov)
  • Odprite dve ločeni Excelovi datoteki (5 enostavnih metod)
  • Kako razdeliti Excelov list v več datotek (3 hitre metode)

3. Razdelite Excelov list v več delovnih zvezkov na podlagi stolpca

Preden začnete s postopkom, si morate zapomniti, da morate podatke začeti v prvi vrstici in prvem stolpcu.

Zdaj odprite Razvijalec zavihek>> izberite Visual Basic

Odprlo se bo novo okno Microsoft Visual Basic za aplikacije .

Zdaj, od Vstavite >> izberite Modul

A Modul tam se bo odprla.

Nato napišite naslednjo kodo v Modul . 

 Sub SplitSheetIntoMultipleWorkbooksBasedOnColumn() Dim objWorksheet As Excel.Worksheet Dim nLastRow, nRow, nNextRow As Integer Dim strColumnValue As String Dim objDictionary As Object Dim varColumnValues As Variant Dim varColumnValue As Variant Dim objExcelWorkbook As Excel.Workbook Dim objSheet As Excel.Worksheet Set objWorksheet = ActiveSheet nLastRow =objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row Set objDictionary = CreateObject("Scripting.Dictionary") For nRow = 2 To nLastRow strColumnValue = objWorksheet.Range("C" & nRow).Value If objDictionary.Exists(strColumnValue) = False Then objDictionary.Add strColumnValue, 1 End If Next varColumnValues = objDictionary.KeysFor i = LBound(varColumnValues) To UBound(varColumnValues) varColumnValue = varColumnValues(i) Set objExcelWorkbook = Excel.Application.Workbooks.Add Set objSheet = objExcelWorkbook.Sheets(1) objSheet.Name = objWorksheet.Name objWorksheet.Rows(1).EntireRow.Copy objSheet.Activate objSheet.Range("A1").Select objSheet.PasteZa nRow = 2 Do nLastRow If CStr(objWorksheet.Range("C" & nRow).Value) = CStr(varColumnValue) Then objWorksheet.Rows(nRow).EntireRow.Copy nNextRow = objSheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row + 1 objSheet.Range("A" & nNextRow).Select objSheet.PasteobjSheet.Columns("A:D").AutoFit End If Next Next End Sub

Tu sem ustvaril podproces z imenom SplitSheetIntoMultipleWorkbooksBasedOnColumn , kjer sem deklariral več spremenljivk.

Uporabil sem 3 ZA zanke. 1. ZA zanka bo štela vrstice od vrstice 2 do zadnje vrstice z vrednostjo za pridobitev določenega stolpca. "C" stolpec.

Lahko ga spremenite v skladu s svojim primerom

2. Za zanka bo ustvarila nov delovni zvezek programa Excel.

3. Fo r zanka bo kopirala podatke z istim stolpcem "C" vrednost v nov delovni zvezek od 2. vrstice do zadnje vrstice z vrednostjo.

Nato, Shrani kodo in se vrnite na delovni list.

Zdaj odprite Oglejte si zavihek>> Od Makroji >> izberite Ogled makrov

A pogovorno okno se prikaže.

Zdaj, od Ime makra izberite SplitSheetIntoMultipleWorkbooksBasedOnColumn izberite tudi delovni zvezek v Makroji v .

Končno, Spustite izbrani Makro .

Končno boste videli, da so bili ustvarjeni 3 novi delovni zvezki, saj obstajajo 3 različni Meseci v stolpcu C . Knjiga1 za Januar .

Spletna stran Knjiga2 za Februar .

Spletna stran Book3 za marec .

Preberite več: Kako razdeliti Excelov list v več listov na podlagi vrednosti stolpca

Zaključek

V tem članku sem razložil 3 načine, kako razdeliti Excelov list v več delovnih listov. Lahko sledite kateremu koli od razloženih načinov za razdelitev Excelovega lista v več delovnih listov. Če imate kakršno koli nejasnost ali vprašanje v zvezi s temi metodami, lahko komentirate spodaj.

Prejšnja objava Zaokroževanje na najbližje celo število v Excelu (9 enostavnih metod)
Naslednja objava Kako narediti SUMIF med dvema datumoma in z drugim kriterijem (7 načinov)

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.