Miten jakaa Excel-arkki useisiin työarkkeihin (3 menetelmää) -

Hugh West

18-10-2023 Excelin perusteet
  • Jaa Tämä
Hugh West

Suuri tietokokonaisuus voi sisältää useita arvoja, jotka perustuvat samaan sarakkeeseen. Jos haluat, voit jakaa samojen luokkien (osasto, kuukausi, alue, osavaltiot jne.) arvot tai mieltymyksesi eri laskentataulukoihin tai työkirjoihin. Tässä artikkelissa selitän, miten Excel-arkki jaetaan useisiin laskentataulukoihin.

Selityksen selventämiseksi käytän esimerkkitietokokonaisuutta. Tietokokonaisuudessa on neljä saraketta, jotka edustavat eri kuukausien myyntitietoja. Nämä sarakkeet ovat seuraavat Myyntihenkilö, alue, kuukausi, ja Myynti .

Lataa Practice

Jaa Excel-arkki useisiin työtaulukoihin.xlsm

Tapoja jakaa Excel-arkki useisiin työarkkeihin

1. Suodattimen ja kopioinnin käyttäminen

Voit jakaa tiedot miltä tahansa arkilta useammalle arkille käyttämällä komentoa Suodatin .

Valitse ensin soluväli, johon haluat soveltaa Suodatin .

➤Tässä valitsin soluvälialueen B3:E15 .

Avaa sitten Tiedot Valitse välilehti>> Valitse Suodatin .

Voit myös käyttää CTRL + SHIFT + L hakea Suodatin näppäimistön käyttäminen .

Nyt, Suodatin sovelletaan valittuun solualueeseen.

Napsauta seuraavaksi Kuukausi sarakkeeseen, koska haluan jakaa tiedot riippuen Kuukausi arvot.

Sieltä minä deselected kaikki paitsi Tammikuu . Lopuksi napsauta OK .

Nyt kaikki arvot, joissa Kuukausi on Tammikuu suodatetaan.

Sitten, Kopioi tiedot ja Liitä se uuteen laskentataulukkoon.

Tässä nimesin uuden arkin Tammikuu. Näin näet kaikki myyntitiedot seuraavilta Tammikuu esitetään tässä.

Loput Kuukaudet voit noudattaa samoja menettelyjä.

Napsauta jälleen Kuukausi sarakkeeseen, koska haluan jakaa tiedot riippuen Kuukausi arvot.

Sieltä poista valinta kaikki paitsi Helmikuu . Lopuksi napsauta OK .

Nyt kaikki arvot Helmikuu Kuukausi suodatetaan.

Sitten, Kopioi tiedot ja Liitä se uuteen laskentataulukkoon.

Myöhemmin nimesin uuden arkin Helmikuu. Näin ollen näet kaikki myyntitiedot, jotka koskevat Kuukausi of Helmikuu esitetään tässä.

Napsauta jälleen Kuukausi sarakkeeseen, koska haluan jakaa tiedot riippuen Kuukausi arvot.

Sieltä poista valinta kaikki paitsi Maaliskuu . Lopuksi napsauta OK .

Nyt näet kaikki arvot Maaliskuu suodatetaan.

Sitten, Kopioi tiedot ja Liitä se uuteen laskentataulukkoon.

Lopulta nimesin uuden arkin Maaliskuu Näin ollen näet kaikki myyntitiedot seuraavilta sivuilta. Maaliskuu esitetään tässä.

Lue lisää: Jaa Excel-arkki useisiin riveihin perustuviin arkkeihin

2. Jaa Excel-arkki rivien lukumäärän perusteella VBA: n avulla

Ennen kuin aloitat menettelyn, sinun on muistettava, että sinun on aloitettava tiedot ensimmäisistä riveistä.

Avaa nyt Kehittäjä Valitse välilehti>> Valitse Visual Basic

Se avaa uuden ikkunan Microsoft Visual Basic for Applications .

Nyt, alkaen Lisää >> Valitse Moduuli

A Moduuli avautuu siellä.

Kirjoita sitten seuraava koodi tiedostoon Moduuli . 

 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.Parent.Set 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.Worksheet.Count)Application.ActiveSheet.Range("A1").PasteSpecial Set xRow = xRow.Offset(SplitRow) Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Tässä olen luonut ali-proseduurin nimeltä SplitExcelSheet_into_MultipleSheets (SplitExcelSheet_into_MultipleSheets) .

Jos olen ilmoittanut pari muuttujaa nämä ovat seuraavat WorkRng ja xRow kuten Valikoima tyyppi sitten

SplitRow kuten Kokonaisluku myös xWs kuten Työtaulukko tyyppi.

Myös käytetyt ExcelTitleId antaa valintaikkuna otsikko.

Olen antanut jaetun rivin numeron 4 jakaa tiedot 4 rivin mukaan, koska minun datasetissäni on Kuukausi of Tammikuu on 4 riviä.

Lopuksi käytettiin Osoitteessa silmukkaan SplitRow kunnes annettu solualue päättyy.

Sitten, Tallenna koodi ja palaa takaisin laskentataulukkoon.

Avaa nyt Kehittäjä tab>> From Lisää >> Valitse Nappi

A valintaikkuna tulee esiin.

Määrittääksesi Makro sisään työnnettyyn Nappi .

Valitse SplitExcelSheet_into_Multiplesheets (SplitExcelSheet_into_Multiplesheets) alkaen Makron nimi napsauta sitten OK .

Klikkaa vain Nappi ajaa Makro .

Nyt, a valintaikkuna avautuu, johon voit laittaa tiedot alue.

➤Tässä valitsin soluvälialueen B1:E12

Napsauta sitten OK .

Toinen valintaikkuna avautuu ja näyttää valitun rivimäärän, jonka annoit jo koodissa, jolla jaoit tietokokonaisuuden.

➤ Koodissa annoin seuraavat tiedot 4 kuten Jaettu rivi Num

Kuten olen yhteensä 12 rivejä niin että 4 riviä tulee olemaan 3 arkkia .

Osoitteessa Sheet1 , näet 4 ensimmäisen rivin tiedot.

Osoitteessa Sheet2 , näet rivien 5-8 tiedot.

Osoitteessa Sheet3 näet 4 viimeisen rivin tiedot.

Lue lisää: Excel VBA: Jaa arkki useisiin riveihin riveihin perustuviin arkkeihin

Samanlaisia lukemia

  • Näytön jakaminen Excelissä (3 tapaa)
  • [Korjaa:] Excel-näkymä vierekkäin ei toimi
  • Miten Excel-arkit erotetaan toisistaan (6 tehokasta tapaa)?
  • Avaa kaksi Excel-tiedostoa erikseen (5 helppoa menetelmää)
  • Miten jakaa Excel-arkki useisiin tiedostoihin (3 nopeaa menetelmää)

3. Jaa Excel-arkki useaan työkirjaan sarakkeen perusteella

Ennen menettelyn aloittamista on muistettava, että tiedot on aloitettava ensimmäiseltä riviltä ja ensimmäisestä sarakkeesta.

Avaa nyt Kehittäjä Valitse välilehti>> Valitse Visual Basic

Se avaa uuden ikkunan Microsoft Visual Basic for Applications .

Nyt, alkaen Lisää >> Valitse Moduuli

A Moduuli avautuu siellä.

Kirjoita sitten seuraava koodi tiedostoon Moduuli . 

 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 = AktiivinenTyökirja 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

Tässä olen luonut ali-proseduurin nimeltä SplitSheetIntoMultipleWorkbooksBasedOnColumn , jossa ilmoitin useita muuttujia.

Käytin 3 FOR silmukat. 1. FOR silmukka laskee rivit riviltä 2 viimeiselle riville, jolla on arvo tietyn sarakkeen saamiseksi. Olen antanut instanssin "C" sarake.

Voit muuttaa sen tapauksesi mukaan

2. Osoitteessa silmukka luo uuden Excel-työkirjan.

Kolmas Fo r-silmukka kopioi tiedot samaan sarakkeeseen. "C" arvo uuteen työkirjaan 2. riviltä viimeiselle riville, jolla on arvo.

Sitten, Tallenna koodi ja palaa takaisin laskentataulukkoon.

Avaa nyt Näytä tab>> From Makrot >> Valitse Näytä makrot

A valintaikkuna tulee esiin.

Nyt, alkaen Makron nimi valitse SplitSheetIntoMultipleWorkbooksBasedOnColumn valitse myös työkirja Makrot .

Vihdoinkin, Suorita valittu Makro .

Lopuksi näet, että 3 uutta työkirjaa on luotu, koska on olemassa 3 erilaista työkirjaa. Kuukaudet sarakkeessa C . Kirja1 osoitteessa Tammikuu .

The Kirja2 varten Helmikuu .

The Book3 osoitteessa Maaliskuu .

Lue lisää: Kuinka jakaa Excel-arkki useisiin lehtiin sarakearvon perusteella

Päätelmä

Tässä artikkelissa olen selittänyt 3 tapaa jakaa Excel-arkki useisiin työarkkeihin. Voit seurata mitä tahansa selitetyistä tavoista jakaa Excel-arkki useisiin työarkkeihin. Jos sinulla on epäselvyyksiä tai kysymyksiä näistä menetelmistä, voit kommentoida alla.

Edellinen viesti Pyöristäminen lähimpään kokonaislukuun Excelissä (9 helppoa menetelmää)
Seuraava postaus Miten SUMIF kahden päivämäärän välillä ja toisella kriteerillä (7 tapaa)?

Hugh West on erittäin kokenut Excel-kouluttaja ja analyytikko, jolla on yli 10 vuoden kokemus alalta. Hän on koulutukseltaan laskentatoimen ja rahoituksen kandidaatti sekä kauppatieteiden maisteri. Hughilla on intohimo opettamiseen, ja hän on kehittänyt ainutlaatuisen opetusmenetelmän, jota on helppo seurata ja ymmärtää. Hänen asiantuntemuksensa Excelistä on auttanut tuhansia opiskelijoita ja ammattilaisia ​​maailmanlaajuisesti parantamaan taitojaan ja menestymään urallaan. Blogissaan Hugh jakaa tietämyksensä maailman kanssa tarjoamalla ilmaisia ​​Excel-opetusohjelmia ja verkkokoulutusta auttaakseen yksilöitä ja yrityksiä saavuttamaan täyden potentiaalinsa.