Bagaimana cara membagi data menjadi beberapa lembar kerja di excel berdasarkan baris?

Kumpulan data besar mungkin berisi banyak nilai berdasarkan kolom yang sama. Jika mau, Anda dapat membagi kategori yang sama '(Departemen, Bulan, Wilayah, Negara Bagian, dll. ) atau preferensi Anda ke dalam lembar kerja atau buku kerja yang berbeda. Pada artikel ini, saya akan menjelaskan 3 metode yang cocok untuk membagi lembar Excel menjadi beberapa lembar kerja. Sebelum itu, lihat ikhtisar membagi lembar Excel menjadi beberapa lembar kerja

Daftar isi

Unduh ke Latihan

Pisahkan Lembar Excel menjadi Beberapa Lembar Kerja. xlsm

3 Cara Mudah Membagi Lembar Excel Menjadi Beberapa Lembar Kerja

Untuk membuat penjelasan ini lebih jelas bagi Anda, saya akan menggunakan kumpulan data sampel. Ada 4 kolom dalam kumpulan data yang mewakili informasi penjualan dari bulan yang berbeda. Kolom ini adalah Orang Penjualan, Wilayah, Bulan, dan Penjualan

1. Menggunakan Filter dan Salin

Dari lembar apa pun, Anda dapat membagi data menjadi beberapa lembar dengan menggunakan Filter

Langkah

• Pertama, pilih rentang sel tempat Anda ingin menerapkan Filter. Di sini, saya memilih rentang sel B3. E15
• Kemudian, buka tab Data >> pilih Filter
• Anda juga dapat menggunakan CTRL + SHIFT + L untuk menerapkan Filter menggunakan keyboard

• Sekarang, Filter diterapkan ke rentang sel yang dipilih
• Selanjutnya, klik kolom Bulan karena saya ingin membagi data berdasarkan nilai Bulan
• Dari sana saya membatalkan pilihan semuanya kecuali Januari. Terakhir, klik OK

• Sekarang, semua nilai di mana Bulan adalah Januari akan difilter
• Kemudian, Salin data dan Tempelkan ke lembar kerja baru

• Di sini, saya beri nama lembar baru Januari. Dengan demikian, Anda akan melihat semua informasi penjualan untuk bulan Januari disajikan di sini.  

• Untuk sisa Bulan, Anda dapat mengikuti prosedur yang sama
• Sekali lagi, klik kolom Bulan karena saya ingin membagi data berdasarkan nilai Bulan
• Dari sana batalkan pilihan semuanya kecuali Februari. Terakhir, klik OK

• Sekarang, semua nilai untuk Bulan Februari difilter
• Kemudian, Salin data dan Tempelkan ke lembar kerja baru

• Belakangan, saya beri nama lembar baru itu Februari. Dengan demikian, Anda akan melihat semua informasi penjualan untuk Bulan Februari disajikan di sini.  

• Sekali lagi, klik kolom Bulan karena saya ingin membagi data berdasarkan nilai Bulan
• Dari sana batalkan pilihan semuanya kecuali Maret. Terakhir, klik OK

• Sekarang, Anda akan melihat semua nilai Maret difilter
• Kemudian, Salin data dan Tempelkan ke lembar kerja baru

• Akhirnya, saya beri nama lembar baru itu Maret. Karenanya, Anda akan melihat semua informasi penjualan untuk bulan Maret disajikan di sini.  

Baca Selengkapnya. Pisahkan Lembar Excel menjadi Beberapa Lembar Berdasarkan Baris

2. Pisahkan Lembar Excel Berdasarkan Hitungan Baris Menggunakan VBA

Selanjutnya, Anda dapat menggunakan Editor Makro VBA untuk membagi lembaran. Sebelum memulai prosedur, Anda harus ingat bahwa Anda harus memulai data dari baris pertama

Langkah

• Sekarang, buka tab Pengembang >> pilih Visual Basic

• Ini akan membuka jendela baru Microsoft Visual Basic for Applications
• Sekarang, dari Sisipkan >> pilih Modul

• Modul akan terbuka di sana
• Kemudian, tulis kode berikut di 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.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.Worksheets.Count)     Application.ActiveSheet.Range("A1").PasteSpecial     Set xRow = xRow.Offset(SplitRow) Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

• Di sini, saya telah membuat sub-prosedur bernama SplitExcelSheet_into_MultipleSheets
• Di mana saya mendeklarasikan beberapa variabel, ini adalah WorkRng dan xRow sebagai tipe Range kemudian SplitRow sebagai Integer juga xWs sebagai tipe Worksheet
• Juga, gunakan ExcelTitleId untuk memberi judul kotak dialog
• Saya telah menyediakan nomor baris terpisah 4 untuk membagi data menjadi 4 baris karena dalam kumpulan data saya, Bulan Januari memiliki 4 baris
• Terakhir, gunakan perulangan For ke SplitRow hingga rentang sel yang diberikan berakhir
• Kemudian, Simpan kode dan kembali ke lembar kerja
• Sekarang, buka tab Pengembang >> Dari Sisipkan >> pilih Tombol

• Sebuah kotak dialog akan muncul
• Untuk menetapkan Makro di Tombol yang disisipkan
• Pilih SplitExcelSheet_into_Multiplesheets dari Nama Makro lalu klik OK

• Cukup klik pada Tombol untuk menjalankan Makro

• Sekarang, kotak dialog akan muncul di mana Anda dapat meletakkan rentang data
• Di sini, saya memilih rentang sel B1. E12
• Lalu, klik Oke

• Kotak dialog lain akan muncul untuk menunjukkan kepada Anda jumlah baris yang dipilih yang sudah Anda berikan dalam kode untuk membagi kumpulan data
• Dalam kode, saya memberikan 4 sebagai Nomor Baris Terpisah

• Karena saya sudah total 12 baris jadi dengan 4 baris akan ada 3 lembar

• Di Sheet1, Anda akan melihat data dari 4 baris pertama

• Di Sheet2, Anda akan melihat data baris 5 hingga 8

• Di Sheet3, Anda akan melihat data dari 4 baris terakhir

Baca Selengkapnya. VBA Excel. Pisahkan Lembar menjadi Beberapa Lembar Berdasarkan Baris

Bacaan Serupa

• Cara Membagi Layar di Excel (3 Cara)
• [Memperbaiki. ] Tampilan Excel Berdampingan Tidak Berfungsi
• Cara Memisahkan Sheet di Excel (6 Cara Efektif)
• Buka Dua File Excel Secara Terpisah (5 Metode Mudah)
• Cara Membagi Lembar Excel Menjadi Beberapa File (3 Metode Cepat)

3. Pisahkan Lembar Excel menjadi Beberapa Buku Kerja Berdasarkan Kolom

Sebelum memulai prosedur, Anda harus ingat bahwa Anda harus memulai data dari baris pertama dan kolom pertama

Langkah

• Sekarang, buka tab Pengembang >> pilih Visual Basic

• Ini akan membuka jendela baru Microsoft Visual Basic for Applications
• Sekarang, dari Sisipkan >> pilih Modul

• Modul akan terbuka di sana
• Kemudian, tulis kode berikut di 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.Keys     For 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.Paste         For 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.Paste                objSheet.Columns("A:D").AutoFit             End If         Next     Next End Sub_

• Di sini, saya telah membuat sub-prosedur bernama SplitSheetIntoMultipleWorkbooksBasedOnColumn, tempat saya mendeklarasikan beberapa variabel
• Saya menggunakan 3 loop UNTUK. Perulangan FOR ke-1 akan menghitung baris dari baris 2 hingga baris terakhir dengan nilai untuk mendapatkan kolom tertentu. Saya telah memberikan contoh kolom "C". Anda dapat mengubahnya ke kasus Anda
• Pengulangan For ke-2 akan membuat buku kerja Excel baru
• Loop For ke-3 akan menyalin data dengan nilai kolom "C" yang sama ke buku kerja baru dari baris ke-2 ke baris terakhir dengan nilai
• Kemudian, Simpan kode dan kembali ke lembar kerja
• Sekarang, buka tab View >> From Macros >> pilih View Macros

• Sebuah kotak dialog akan muncul

• Sekarang, dari nama Makro pilih SplitSheetIntoMultipleWorkbooksBasedOnColumn juga pilih buku kerja di dalam Macro di
• Terakhir, Jalankan Makro yang dipilih
• Terakhir, Anda akan melihat 3 buku kerja baru telah dibuat karena ada 3 Bulan berbeda di kolom C. Buku 1 untuk Januari

• Buku2 untuk bulan Februari

• Buku 3 untuk bulan Maret

Baca Selengkapnya. Cara Membagi Lembar Excel Menjadi Beberapa Lembar Berdasarkan Nilai Kolom

Kesimpulan

Pada artikel ini, saya telah menjelaskan 3 cara membagi lembar Excel menjadi beberapa lembar kerja. Anda dapat mengikuti salah satu cara yang dijelaskan untuk membagi lembar Excel Anda menjadi beberapa lembar kerja. Ikuti lebih banyak artikel serupa di situs web Exceldemy kami. Jika Anda memiliki kebingungan atau pertanyaan mengenai metode ini, Anda dapat berkomentar di bawah

Bagaimana membagi data menjadi beberapa buku kerja berdasarkan kolom di Excel?

Bagaimana cara memisahkan data di Excel berdasarkan kriteria?

Bagaimana Anda membagi data tabel besar menjadi beberapa lembar Excel pada satu file Excel dengan menggunakan paket SSIS?