Büyük bir veri kümesi aynı sütuna dayalı birden çok değer içerebilir. İsterseniz aynı kategorilerin (Departman, Ay, Bölge, Eyaletler vb.) değerlerini veya tercihlerinizi farklı çalışma sayfalarına veya çalışma kitaplarına bölebilirsiniz. Bu makalede, Excel sayfasını birden çok çalışma sayfasına nasıl böleceğinizi açıklayacağım.

Bu açıklamayı sizin için daha açık hale getirmek için örnek bir veri kümesi kullanacağım. Veri kümesinde farklı ayların satış bilgilerini temsil eden 4 sütun vardır. Bu sütunlar şunlardır Satış Elemanı, Bölge, Ay, ve Satış .

Pratik Yapmak İçin İndirin

Excel Sayfasını Birden Çok Çalışma Sayfasına Bölmenin Yolları

1. Filtre ve Kopyalama Kullanımı

Herhangi bir sayfadan, aşağıdakileri kullanarak verileri birden çok sayfaya bölebilirsiniz Filtre .

İlk olarak, uygulamak istediğiniz hücre aralığını seçin Filtre .

➤Burada, hücre aralığını seçtim B3:E15 .

Daha sonra Veri tab>> seçin Filtre .

Ayrıca şunları da kullanabilirsiniz CTRL + SHIFT + L başvurmak için Filtre klavye kullanarak .

Şimdi, Filtre seçilen hücre aralığına uygulanır.

Ardından, aşağıdaki Ay sütununa bağlı olarak verileri bölmek istediğim için Ay değerler.

Oradan ben seçilmemiş her şey hariç Ocak . Son olarak, tıklayın TAMAM. .

Şimdi, tüm değerler Ay o Ocak filtrelenir.

Sonra, Anlaşıldı veri ve Yapıştır yeni çalışma sayfasına aktarın.

Burada, yeni sayfaya şu adı verdim Ocak ayında. Böylece, aşağıdakiler için tüm satış bilgilerini göreceksiniz Ocak burada sunulmuştur.

Geri kalanı için Aylar aynı prosedürleri takip edebilirsiniz.

Tekrar, üzerine tıklayın Ay sütununa bağlı olarak verileri bölmek istediğim için Ay değerler.

Oradan seçimi kaldır her şey hariç Şubat . Son olarak, tıklayın TAMAM. .

Şimdi, tüm değerler için Şubat Ay filtrelenir.

Sonra, Anlaşıldı veri ve Yapıştır yeni çalışma sayfasına aktarın.

Daha sonra, yeni sayfaya şu adı verdim Şubat. Böylece, aşağıdaki satış bilgilerinin tümünü görürsünüz Ay . Şubat burada sunulmuştur.

Tekrar, üzerine tıklayın Ay sütununa bağlı olarak verileri bölmek istediğim için Ay değerler.

Oradan seçimi kaldır her şey hariç Mart . Son olarak, tıklayın TAMAM. .

Şimdi, tüm değerleri göreceksiniz Mart filtrelenir.

Sonra, Anlaşıldı veri ve Yapıştır yeni çalışma sayfasına aktarın.

Sonunda, yeni sayfaya şu adı verdim Mart Bu nedenle, aşağıdakiler için tüm satış bilgilerini göreceksiniz Mart burada sunulmuştur.

Daha fazlasını okuyun: Excel Sayfasını Satırlara Göre Birden Çok Sayfaya Bölme

2. Excel Sayfasını VBA Kullanarak Satır Sayısına Göre Bölme

Prosedüre başlamadan önce, verileri ilk satırlardan başlatmanız gerektiğini hatırlamanız gerekir.

Şimdi, açın Geliştirici tab>> seçin Visual Basic

Yeni bir pencere açacaktır Uygulamalar için Microsoft Visual Basic .

Şimdi Ekleme >> seçin Modül

A Modül orada açılacak.

Ardından, aşağıdaki kodu Modül .

 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 

Burada, şu adda bir alt prosedür oluşturdum SplitExcelSheet_into_MultipleSheets .

Birkaç değişken tanımladığım yerde bunlar WorkRng ve xSatır olarak Menzil yazın o zaman

SplitRow olarak Tamsayı Ayrıca xWs olarak Çalışma Sayfası tip.

Ayrıca, kullanılmış ExcelTitleId vermek için iletişim kutusu Başlık.

Bölünmüş satır numarası verdim 4 verileri 4 satıra bölmek için çünkü veri kümemde Ay . Ocak 4 sıra vardır.

Son olarak, bir İçin döngü SplitRow verilen hücre aralığı sona erene kadar.

Sonra, Kaydet kodu girin ve çalışma sayfasına geri dönün.

Şimdi, açın Geliştirici tab>> Kimden Ekleme >> seçin Düğme

A iletişim kutusu açılır.

Atamak için Makro yerleştirilmiş Düğme .

Seçiniz SplitExcelSheet_into_Multiplesheets bir şey yok. Makro Adı ardından tıklayın TAMAM. .

Sadece üzerine tıklayın Düğme çalıştırmak için Makro .

Şimdi, bir iletişim kutusu verileri koyabileceğiniz bir yer açılacaktır menzil.

➤Burada, hücre aralığını seçtim B1:E12

Ardından, tıklayın TAMAM. .

Başka bir iletişim kutusu veri kümesini bölmek için kodda zaten sağladığınız seçilen satır sayısını göstermek için açılır.

➤ Kodda, şunları sağladım 4 olarak Bölünmüş Satır Sayısı

Toplamda 12 sıraları ile 4 sıra orada olacak 3 sayfa .

İçinde Sayfa1 'yi seçtiğinizde ilk 4 satırın verilerini göreceksiniz.

İçinde Sayfa2 'yi seçtiğinizde, 5 ila 8. satırların verilerini göreceksiniz.

İçinde Sayfa3 'yi seçtiğinizde, son 4 satırın verilerini göreceksiniz.

Daha fazlasını okuyun: Excel VBA: Sayfayı Satırlara Göre Birden Çok Sayfaya Bölme

Benzer Okumalar

• Excel'de Ekran Nasıl Bölünür (3 Yol)
• [Düzeltme:] Excel Yan Yana Görünüm Çalışmıyor
• Excel'de Sayfalar Nasıl Ayrılır (6 Etkili Yol)
• İki Excel Dosyasını Ayrı Ayrı Açın (5 Kolay Yöntem)
• Excel Sayfası Birden Fazla Dosyaya Nasıl Bölünür (3 Hızlı Yöntem)

3. Excel Sayfasını Sütuna Göre Birden Çok Çalışma Kitabına Bölme

Prosedüre başlamadan önce, verileri ilk satır ve ilk sütundan başlatmanız gerektiğini hatırlamanız gerekir.

Şimdi, açın Geliştirici tab>> seçin Visual Basic

Yeni bir pencere açacaktır Uygulamalar için Microsoft Visual Basic .

Şimdi Ekleme >> seçin Modül

A Modül orada açılacak.

Ardından, aşağıdaki kodu Modül .

 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 

Burada, şu adda bir alt prosedür oluşturdum SplitSheetIntoMultipleWorkbooksBasedOnColumn Burada birden fazla değişken bildirdim.

3 tane kullandım. İÇİN Döngüler. 1. İÇİN döngüsü, belirli sütunu elde etmek için 2. satırdan değer içeren son satıra kadar satırları sayacaktır. "C" sütun.

Bunu kendi durumunuza göre değiştirebilirsiniz

İkincisi İçin döngüsü yeni bir Excel çalışma kitabı oluşturacaktır.

Üçüncüsü Fo r döngüsü aynı sütuna sahip verileri kopyalayacaktır "C" değerini yeni çalışma kitabına 2. satırdan değer içeren son satıra kadar aktarır.

Sonra, Kaydet kodu girin ve çalışma sayfasına geri dönün.

Şimdi, açın Görünüm tab>> Kimden Makrolar >> seçin Makroları Görüntüle

A iletişim kutusu açılır.

Şimdi Makro adı seçin SplitSheetIntoMultipleWorkbooksBasedOnColumn içindeki çalışma kitabını da seçin Makrolar içinde .

Sonunda, Koşmak seçilen Makro .

Son olarak, 3 farklı çalışma kitabı olduğu için 3 yeni çalışma kitabının oluşturulduğunu göreceksiniz Aylar sütun içinde C . Bu Kitap1 için Ocak .

Bu Kitap2 için Şubat .

Bu Kitap3 için Mart .

Daha fazlasını okuyun: Excel Sayfasını Sütun Değerine Göre Birden Çok Sayfaya Bölme

Sonuç

Bu makalede, Excel sayfasını birden çok çalışma sayfasına bölmenin 3 yolunu açıkladım. Excel sayfanızı birden çok çalışma sayfasına bölmek için açıklanan yollardan herhangi birini takip edebilirsiniz. Bu yöntemlerle ilgili herhangi bir karışıklığınız veya sorunuz olması durumunda aşağıya yorum yapabilirsiniz.