Satura rādītājs
Liela datu kopa var saturēt vairākas vērtības, pamatojoties uz vienu un to pašu kolonnu. Ja vēlaties, varat sadalīt tās pašas kategorijas vērtības (departaments, mēnesis, reģions, valstis utt.) vai savas preferences dažādās darblapās vai darbgrāmatās. Šajā rakstā es gatavojos paskaidrot, kā sadalīt Excel lapu vairākās darblapās.
Lai šis skaidrojums jums būtu saprotamāks, es izmantošu datu kopas paraugu. Datu kopā ir 4 slejas, kurās ir informācija par dažādu mēnešu pārdošanas apjomiem. Šīs slejas ir šādas. Pārdevējs, reģions, mēnesis, un Pārdošana .
Lejupielādēt praksē
Excel lapas sadalīšana vairākās darblapās.xlsmVeidi, kā sadalīt Excel lapu vairākās darblapās
1. Filtra un kopēšanas izmantošana
Jebkuras lapas datus var sadalīt vairākās lapās, izmantojot Filtrs .
Vispirms atlasiet šūnu diapazonu, kurā vēlaties piemērot Filtrs .
➤Tur es izvēlējos šūnu diapazonu B3:E15 .
Pēc tam atveriet Dati cilne>> atlasiet Filtrs .
Varat arī izmantot CTRL + SHIFT + L pieteikties Filtrs izmantojot tastatūru .
Tagad, Filtrs tiek piemērots atlasītajam šūnu diapazonam.
Pēc tam noklikšķiniet uz Mēnesis slejā, jo vēlos sadalīt datus atkarībā no Mēnesis vērtības.
No turienes es atcelts viss, izņemot Janvāris . beidzot noklikšķiniet uz LABI .
Tagad visas vērtības, kurās Mēnesis ir Janvāris tiek filtrēti.
Tad, Kopēt datus un Paste to jaunajā darblapā.
Šeit es nosaucu jauno lapu Janvāris. Tādējādi redzēsiet visu pārdošanas informāciju par Janvāris šeit ir sniegts.
Par pārējo Mēneši , varat veikt tās pašas procedūras.
Vēlreiz noklikšķiniet uz Mēnesis slejā, jo vēlos sadalīt datus atkarībā no Mēnesis vērtības.
No turienes atcelt atlasi viss, izņemot Februāris . beidzot noklikšķiniet uz LABI .
Tagad visas vērtības Februāris Mēnesis tiek filtrēti.
Tad, Kopēt datus un Paste to jaunajā darblapā.
Vēlāk es nosaucu jauno lapu Februāris. Tādējādi jūs redzēsiet visu pārdošanas informāciju par Mēnesis no Februāris šeit ir sniegts.
Vēlreiz noklikšķiniet uz Mēnesis slejā, jo vēlos sadalīt datus atkarībā no Mēnesis vērtības.
No turienes atcelt atlasi viss, izņemot Marts . beidzot noklikšķiniet uz LABI .
Tagad redzēsiet visas vērtības Marts tiek filtrēti.
Tad, Kopēt datus un Paste to jaunajā darblapā.
Galu galā es nosaucu jauno lapu Marts . Tādējādi jūs redzēsiet visu pārdošanas informāciju par Marts šeit ir sniegts.
Lasīt vairāk: Excel lapas sadalīšana vairākās lapās, pamatojoties uz rindām
2. Sadaliet Excel lapu, pamatojoties uz rindu skaitu, izmantojot VBA
Pirms sākt procedūru, jāatceras, ka dati jāsāk apstrādāt no pirmajām rindām.
Tagad atveriet Izstrādātājs cilne>> atlasiet Visual Basic
Tiks atvērts jauns logs Microsoft Visual Basic lietojumprogrammām .
Tagad no Ievietot >> atlasīt Modulis
A Modulis tur tiks atvērts.
Pēc tam ierakstiet šādu kodu Modulis .
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 
Šeit esmu izveidojis apakšprocedūru ar nosaukumu SplitExcelSheet_into_MultipleSheets .
Kur es deklarēju pāris mainīgie tie ir WorkRng un xRow kā Diapazons tips tad
SplitRow kā Vesels skaitlis arī xWs kā Darba lapa tips.
Arī izmantotie ExcelTitleId lai sniegtu dialoglodziņš nosaukums.
Esmu norādījis sadalītu rindas numuru 4 sadalīt datus pa 4 rindām, jo manā datu kopā Mēnesis no Janvāris ir 4 rindas.
Visbeidzot, izmanto Vietnei cilpa uz SplitRow līdz dotā šūnu diapazona beigām.
Tad, Saglabāt kodu un atgriezieties darblapā.
Tagad atveriet Izstrādātājs cilne>> no Ievietot >> atlasīt Poga
A dialoglodziņš parādīsies.
Lai piešķirtu Makro ievietotajā Poga .
Atlasiet SplitExcelSheet_into_Multiplesheets no Makro nosaukums pēc tam noklikšķiniet uz LABI .
Vienkārši noklikšķiniet uz Poga lai palaistu Makro .
Tagad dialoglodziņš parādīsies logs, kurā varat ievietot datus diapazons.
➤Tur es izvēlējos šūnu diapazonu B1:E12
Pēc tam noklikšķiniet uz LABI .
Vēl viens dialoglodziņš parādīsies logs, lai parādītu atlasīto rindu skaitu, ko jau norādījāt kodā, lai sadalītu datu kopu.
➤ Kodā es sniedza 4 kā Sadalīt rindu skaitu
Kā es esmu pavisam 12 rindas, lai ar 4 rindas būs 3 lapas .
In Lapa1 , redzēsiet pirmo 4 rindu datus.
In 2 lapa , redzēsiet 5.-8. rindas datus.
In Lapa3 , redzēsiet pēdējo 4 rindu datus.
Lasīt vairāk: Excel VBA: sadaliet lapu vairākās lapās, pamatojoties uz rindām
Līdzīgi lasījumi
- Kā sadalīt ekrānu programmā Excel (3 veidi)
- [Labojums:] Excel skats blakus nedarbojas
- Kā atdalīt lapas programmā Excel (6 efektīvi veidi)
- Divu Excel failu atvēršana atsevišķi (5 vienkāršas metodes)
- Kā sadalīt Excel lapu vairākos failos (3 ātras metodes)
3. Sadaliet Excel lapu vairākās darbgrāmatā, pamatojoties uz kolonnu
Pirms sākt procedūru, jāatceras, ka dati jāsāk ievadīt no pirmās rindas un pirmās kolonnas.
Tagad atveriet Izstrādātājs cilne>> atlasiet Visual Basic
Tiks atvērts jauns logs Microsoft Visual Basic lietojumprogrammām .
Tagad no Ievietot >> atlasīt Modulis
A Modulis tur tiks atvērts.
Pēc tam ierakstiet šādu kodu Modulis .
Sub SplitSheetIntoMultipleWorkbookBasedOnColumn() 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 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 apjSheet.PasteobjSheet.Columns("A:D").AutoFit End If Next Next Next End Sub 
Šeit esmu izveidojis apakšprocedūru ar nosaukumu SplitSheetIntoMultipleWorkbookBasedOnColumn , kurā deklarēju vairākus mainīgos.
Es izmantoju 3 PAR cilpas. 1. PAR cilpa saskaitīs rindas no 2. rindas līdz pēdējai rindai ar vērtību, lai iegūtu konkrēto kolonnu. Es esmu norādījis instance of "C" sleja.
Varat to mainīt atbilstoši savam gadījumam
2. Vietnei cilpa izveidos jaunu Excel darbgrāmatu.
3. Fo r cilpa kopēs datus ar to pašu kolonnu "C" vērtību uz jauno darbgrāmatu no 2. rindas līdz pēdējai rindai ar vērtību.
Tad, Saglabāt kodu un atgriezieties darblapā.
Tagad atveriet Skatīt cilne>> no Makroprocesori >> atlasīt Apskatīt makrouzdevumus
A dialoglodziņš parādīsies.
Tagad no Makro nosaukums atlasiet SplitSheetIntoMultipleWorkbookBasedOnColumn atlasiet arī darbgrāmatu Makro .
Visbeidzot, Palaist izvēlēto Makro .
Visbeidzot, redzēsiet, ka ir izveidotas 3 jaunas darbgrāmatas, jo ir 3 dažādas. Mēneši kolonnā C . Grāmata1 vietnē Janvāris .
Portāls Grāmata2 par Februāris .
Portāls Grāmata3 vietnē Marts .
Lasīt vairāk: Kā sadalīt Excel lapu vairākās lapās, pamatojoties uz kolonnas vērtību
Secinājums
Šajā rakstā es esmu izskaidrojis 3 veidus, kā sadalīt Excel lapu vairākās darblapās. Jūs varat sekot jebkuram no izskaidrotajiem veidiem, kā sadalīt Excel lapu vairākās darblapās. Ja jums ir neskaidrības vai jautājumi par šīm metodēm, varat komentēt zemāk.
