Ako rozdeliť hárok programu Excel na viac pracovných hárkov (3 metódy) -

Hugh West

18-10-2023 Základy programu Excel
  • Zdieľajte To
Hugh West

Veľký súbor údajov môže obsahovať viacero hodnôt založených na rovnakom stĺpci. Ak chcete, môžete rozdeliť hodnoty rovnakých kategórií (oddelenie, mesiac, región, štáty atď.) alebo vaše preferencie do rôznych pracovných hárkov alebo zošitov. V tomto článku budem vysvetľovať, ako rozdeliť hárok programu Excel do viacerých pracovných hárkov.

Aby vám bolo toto vysvetlenie zrozumiteľnejšie, použijem vzorový súbor údajov. V súbore údajov sú 4 stĺpce, ktoré predstavujú informácie o predaji v rôznych mesiacoch. Tieto stĺpce sú Predajca, región, mesiac, a Predaj .

Stiahnutie do praxe

Rozdelenie hárku programu Excel na viac pracovných hárkov.xlsm

Spôsoby rozdelenia hárku programu Excel na viac pracovných hárkov

1. Používanie filtrov a kopírovania

Z ľubovoľného hárka môžete údaje rozdeliť do viacerých hárkov pomocou Filter .

Najprv vyberte rozsah buniek, na ktoré chcete použiť Filter .

➤Tu som vybral rozsah buniek B3:E15 .

Potom otvorte Údaje karta>> vybrať Filter .

Môžete tiež použiť CTRL + SHIFT + L použiť Filter používanie klávesnice .

Teraz, Filter sa použije na vybraný rozsah buniek.

Potom kliknite na Mesiac stĺpec, pretože chcem rozdeliť údaje v závislosti od Mesiac hodnoty.

Odtiaľ som zrušenie výberu všetko okrem Január . Nakoniec kliknite na OK .

Teraz všetky hodnoty, pri ktorých Mesiac je . Január sú filtrované.

Potom, Kopírovať údaje a Vložiť do nového pracovného hárka.

Tu som pomenoval nový hárok Január. Zobrazia sa tak všetky informácie o predaji pre Január je tu uvedený.

Pre zvyšok Mesiace , môžete postupovať rovnako.

Opäť kliknite na Mesiac stĺpec, pretože chcem rozdeliť údaje v závislosti od Mesiac hodnoty.

Odtiaľto zrušiť výber všetko okrem Február . Nakoniec kliknite na OK .

Teraz sú všetky hodnoty pre Február Mesiac sú filtrované.

Potom, Kopírovať údaje a Vložiť do nového pracovného hárka.

Neskôr som nový hárok pomenoval Február. Zobrazia sa tak všetky informácie o predaji pre Mesiac z Február je tu uvedený.

Opäť kliknite na Mesiac stĺpec, pretože chcem rozdeliť údaje v závislosti od Mesiac hodnoty.

Odtiaľto zrušiť výber všetko okrem Marec . Nakoniec kliknite na OK .

Teraz uvidíte všetky hodnoty Marec sú filtrované.

Potom, Kopírovať údaje a Vložiť do nového pracovného hárka.

Nakoniec som nový hárok pomenoval Marec . Preto uvidíte všetky informácie o predaji pre Marec je tu uvedený.

Prečítajte si viac: Rozdelenie hárku programu Excel na viac hárkov na základe riadkov

2. Rozdelenie hárku programu Excel na základe počtu riadkov pomocou VBA

Pred začatím postupu si musíte uvedomiť, že údaje musíte začať od prvých riadkov.

Teraz otvorte Vývojár karta>> vybrať Visual Basic

Otvorí sa nové okno Microsoft Visual Basic pre aplikácie .

Teraz, od Vložte >> vybrať Modul

A Modul otvorí sa tam.

Potom napíšte nasledujúci kód do 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 som vytvoril čiastkovú procedúru s názvom SplitExcelSheet_into_MultipleSheets .

Kde som deklaroval niekoľko premenných, sú to WorkRng a xRow ako Rozsah typ potom

SplitRow ako Celé číslo tiež xWs ako Pracovný list typ.

Tiež použité ExcelTitleId poskytnúť dialógové okno názov.

Poskytol som rozdelené číslo riadku 4 rozdeliť údaje na 4 riadky, pretože v mojom súbore údajov Mesiac z Január má 4 riadky.

Nakoniec použil Pre slučky na SplitRow kým sa daný rozsah buniek neskončí.

Potom, Uložiť kód a vráťte sa na pracovný hárok.

Teraz otvorte Vývojár karta>> Od Vložte >> vybrať Tlačidlo

A dialógové okno sa objaví.

Priradenie Makro vo vloženom Tlačidlo .

Vyberte SplitExcelSheet_into_Multiplesheets z Názov makra potom kliknite na OK .

Stačí kliknúť na Tlačidlo spustiť Makro .

Teraz, a dialógové okno sa zobrazí okno, do ktorého môžete vložiť údaje rozsah.

➤Tu som vybral rozsah buniek B1:E12

Potom kliknite na tlačidlo OK .

Ďalšia stránka dialógové okno sa zobrazí počet vybraných riadkov, ktorý ste už zadali v kóde na rozdelenie súboru údajov.

➤ V kóde som uviedol 4 ako Rozdelený riadok Num

Ako som celkom 12 riadky tak s 4 riadky bude 3 listy .

Na stránke List1 , zobrazia sa údaje prvých 4 riadkov.

Na stránke List2 , zobrazia sa údaje riadkov 5 až 8.

Na stránke List3 , zobrazia sa údaje posledných 4 riadkov.

Prečítajte si viac: Excel VBA: Rozdelenie hárku na viac hárkov na základe riadkov

Podobné čítania

  • Ako rozdeliť obrazovku v programe Excel (3 spôsoby)
  • [Oprava:] Nefunguje zobrazenie programu Excel vedľa seba
  • Ako oddeliť hárky v programe Excel (6 efektívnych spôsobov)
  • Otvorenie dvoch súborov programu Excel samostatne (5 jednoduchých metód)
  • Ako rozdeliť hárok programu Excel do viacerých súborov (3 rýchle metódy)

3. Rozdelenie hárku programu Excel do viacerých zošitov na základe stĺpcov

Pred začatím postupu si musíte uvedomiť, že údaje musíte začať od prvého riadku a prvého stĺpca.

Teraz otvorte Vývojár karta>> vybrať Visual Basic

Otvorí sa nové okno Microsoft Visual Basic pre aplikácie .

Teraz, od Vložte >> vybrať Modul

A Modul otvorí sa tam.

Potom napíšte nasledujúci kód do 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.PasteFor nRow = 2 To 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 som vytvoril čiastkovú procedúru s názvom SplitSheetIntoMultipleWorkbooksBasedOnColumn , kde som deklaroval viacero premenných.

Použil som 3 PRE slučky. 1. PRE cyklus bude počítať riadky od riadku 2 po posledný riadok s hodnotou, aby sa získal konkrétny stĺpec. "C" stĺpec.

Môžete ho zmeniť podľa svojho prípadu

2. Pre slučka vytvorí nový zošit programu Excel.

3. Fo r slučka skopíruje údaje s rovnakým stĺpcom "C" hodnotu do nového zošita od 2. riadku po posledný riadok s hodnotou.

Potom, Uložiť kód a vráťte sa na pracovný hárok.

Teraz otvorte Zobraziť karta>> Od Makrá >> vybrať Zobraziť makrá

A dialógové okno sa objaví.

Teraz z Názov makra vyberte SplitSheetIntoMultipleWorkbooksBasedOnColumn vyberte aj zošit v rámci Makrá v .

Nakoniec, Spustiť vybrané Makro .

Nakoniec uvidíte, že boli vytvorené 3 nové zošity, pretože existujú 3 rôzne Mesiace v stĺpci C . Kniha1 pre Január .

Stránka Kniha2 pre Február .

Stránka Kniha3 pre Marec .

Prečítajte si viac: Ako rozdeliť hárok programu Excel na viac hárkov na základe hodnoty stĺpca

Záver

V tomto článku som vysvetlil 3 spôsoby, ako rozdeliť hárok programu Excel na viac pracovných hárkov. Môžete postupovať podľa niektorého z vysvetlených spôsobov rozdelenia hárku programu Excel na viac pracovných hárkov. V prípade, že máte akékoľvek nejasnosti alebo otázky týkajúce sa týchto metód, môžete komentovať nižšie.

Predchádzajúci príspevok Zaokrúhľovanie na najbližšie celé číslo v programe Excel (9 jednoduchých metód)
Ďalší príspevok Ako sčítať SUMIF medzi dvoma dátumami a s iným kritériom (7 spôsobov)

Hugh West je veľmi skúsený tréner a analytik Excelu s viac ako 10-ročnými skúsenosťami v tomto odvetví. Má bakalársky titul v odbore účtovníctvo a financie a magisterský titul v odbore Business Administration. Hugh má vášeň pre vyučovanie a vyvinul jedinečný vyučovací prístup, ktorý sa dá ľahko sledovať a pochopiť. Jeho odborné znalosti Excelu pomohli tisíckam študentov a profesionálov na celom svete zlepšiť svoje zručnosti a vyniknúť vo svojej kariére. Hugh sa prostredníctvom svojho blogu delí o svoje znalosti so svetom a ponúka bezplatné výukové programy Excelu a online školenia, ktoré jednotlivcom a firmám pomôžu naplno využiť ich potenciál.