Cara Membagi Lembar Excel menjadi Beberapa Lembar Kerja (3 Metode) -

Hugh West

18-10-2023 Dasar-dasar Excel
  • Bagikan Ini
Hugh West

Kumpulan data yang besar mungkin berisi beberapa nilai berdasarkan kolom yang sama. Jika Anda mau, Anda dapat membagi nilai 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, cara membagi lembar Excel menjadi beberapa lembar kerja.

Untuk membuat penjelasan ini lebih jelas bagi Anda, saya akan menggunakan contoh dataset. Ada 4 kolom dalam dataset yang mewakili informasi penjualan dari bulan yang berbeda. Kolom-kolom ini adalah Tenaga Penjualan, Wilayah, Bulan, dan Penjualan .

Unduh untuk Berlatih

Pisahkan Lembar Excel menjadi Beberapa Lembar Kerja.xlsm

Cara Membagi Lembar Excel menjadi Beberapa Lembar Kerja

1. Menggunakan Filter dan Salin

Dari sheet mana pun, Anda bisa membagi data ke dalam beberapa sheet dengan menggunakan Filter .

Pertama, pilih cell range di mana Anda ingin menerapkan Filter .

Di sini, saya memilih rentang sel B3:E15 .

Kemudian, buka Data tab>> pilih Filter .

Anda juga bisa menggunakan CTRL + SHIFT + L untuk diterapkan Filter menggunakan keyboard .

Sekarang, Filter diterapkan ke rentang sel yang dipilih.

Berikutnya, klik pada Bulan kolom karena saya ingin membagi data tergantung pada Bulan nilai.

Dari sana saya tidak dipilih semuanya kecuali Januari Akhirnya, klik OK .

Sekarang, semua nilai di mana Bulan adalah Januari disaring.

Kemudian, Salinan data dan Tempel itu ke dalam lembar kerja baru.

Di sini, saya menamai sheet baru Januari. Dengan demikian, Anda akan melihat semua informasi penjualan untuk Januari disajikan di sini.

Untuk sisa dari Bulan Anda bisa mengikuti prosedur yang sama.

Sekali lagi, klik pada Bulan kolom karena saya ingin membagi data tergantung pada Bulan nilai.

Dari sana hapus pilihan semuanya kecuali Februari Akhirnya, klik OK .

Sekarang, semua nilai untuk Februari Bulan disaring.

Kemudian, Salinan data dan Tempel itu ke dalam lembar kerja baru.

Kemudian, saya menamai sheet baru Februari. Dengan demikian, Anda akan melihat semua informasi penjualan untuk Bulan dari Februari disajikan di sini.

Sekali lagi, klik pada Bulan kolom karena saya ingin membagi data tergantung pada Bulan nilai.

Dari sana hapus pilihan semuanya kecuali Maret Akhirnya, klik OK .

Sekarang, Anda akan melihat semua nilai Maret disaring.

Kemudian, Salinan data dan Tempel itu ke dalam lembar kerja baru.

Pada akhirnya, saya menamai sheet baru Maret Oleh karena itu, Anda akan melihat semua informasi penjualan untuk Maret disajikan di sini.

Baca selengkapnya: Pisahkan Lembar Excel menjadi Beberapa Lembar Berdasarkan Baris

2. Pisahkan Lembar Excel Berdasarkan Jumlah Baris Menggunakan VBA

Sebelum memulai prosedur, Anda perlu mengingat bahwa Anda harus memulai data dari baris pertama.

Sekarang, buka Pengembang tab>> pilih Visual Basic

Ini akan membuka jendela baru Microsoft Visual Basic untuk Aplikasi .

Sekarang, dari Sisipkan >>> pilih Modul

A Modul akan dibuka di sana.

Kemudian, tulis kode berikut ini di dalam 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

Di sini, saya telah membuat sub-prosedur yang disebut PisahkanExcelSheet_menjadi_LembarBanyak .

Di mana saya mendeklarasikan beberapa variabel, yaitu WorkRng dan xRow sebagai Rentang ketik kemudian

SplitRow sebagai Bilangan bulat juga xWs sebagai Lembar Kerja Tipe.

Juga, digunakan ExcelTitleId untuk memberikan kotak dialog judul.

Saya telah menyediakan nomor baris terpisah 4 untuk membagi data dengan 4 baris karena dalam dataset saya Bulan dari Januari memiliki 4 baris.

Terakhir, menggunakan Untuk perulangan ke SplitRow sampai rentang sel yang diberikan berakhir.

Kemudian, Simpan kode dan kembali ke lembar kerja.

Sekarang, buka Pengembang tab>> Dari Sisipkan >>> pilih Tombol

A kotak dialog akan muncul.

Untuk menetapkan Makro di dalam yang disisipkan Tombol .

Pilih PisahkanExcelSheet_menjadi_Multiplesheets dari Nama Makro lalu klik OK .

Cukup klik pada Tombol untuk menjalankan Makro .

Sekarang, a kotak dialog akan muncul di mana Anda dapat meletakkan data jangkauan.

Di sini, saya memilih rentang sel B1:E12

Kemudian, klik OK .

Lain-lain kotak dialog akan muncul untuk menunjukkan jumlah baris yang dipilih yang sudah Anda berikan dalam kode untuk membagi dataset.

Dalam kode, saya menyediakan 4 sebagai Jumlah Baris Terpisah

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

Dalam Sheet1 Anda akan melihat data dari 4 baris pertama.

Dalam Sheet2 Anda akan melihat data baris 5 sampai 8.

Dalam Sheet3 Anda akan melihat data dari 4 baris terakhir.

Baca selengkapnya: Excel VBA: Pisahkan Lembar menjadi Beberapa Lembar Berdasarkan Baris

Bacaan Serupa

  • Cara Membagi Layar di Excel (3 Cara)
  • [Perbaiki:] Tampilan Excel Berdampingan Tidak Bekerja
  • Cara Memisahkan Lembar 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 dengan prosedur, Anda perlu mengingat bahwa Anda harus memulai data dari baris pertama dan kolom pertama.

Sekarang, buka Pengembang tab>> pilih Visual Basic

Ini akan membuka jendela baru Microsoft Visual Basic untuk Aplikasi .

Sekarang, dari Sisipkan >>> pilih Modul

A Modul akan dibuka di sana.

Kemudian, tulis kode berikut ini di dalam 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

Di sini, saya telah membuat sub-prosedur yang disebut PisahkanLembarKeBeberapaBukuKerjaBerdasarkanKolom , di mana saya mendeklarasikan beberapa variabel.

Saya menggunakan 3 UNTUK loop. UNTUK loop akan menghitung baris dari baris 2 ke baris terakhir dengan nilai untuk mendapatkan kolom tertentu. Saya telah memberikan instance dari "C" kolom.

Anda bisa mengubahnya sesuai kasus Anda

Yang ke-2 Untuk loop akan membuat buku kerja Excel baru.

Yang ke-3 Fo r loop akan menyalin data dengan kolom yang sama "C" nilai ke buku kerja baru dari baris ke-2 hingga baris terakhir dengan nilai.

Kemudian, Simpan kode dan kembali ke lembar kerja.

Sekarang, buka Lihat tab>> Dari Makro >>> pilih Lihat Makro

A kotak dialog akan muncul.

Sekarang, dari Nama makro pilih PisahkanLembarKeBeberapaBukuKerjaBerdasarkanKolom juga memilih buku kerja di dalam Makro dalam .

Akhirnya, Lari yang dipilih Makro .

Akhirnya, Anda akan melihat 3 buku kerja baru telah dibuat karena ada 3 buku kerja yang berbeda. Bulan dalam kolom C . Buku1 untuk Januari .

The Buku2 untuk Februari .

The Buku3 untuk Maret .

Baca selengkapnya: Cara Membagi Lembar Excel menjadi Beberapa Lembar Berdasarkan Nilai Kolom

Kesimpulan

Pada artikel ini, saya telah menjelaskan 3 cara bagaimana membagi lembar Excel menjadi beberapa lembar kerja. Anda dapat mengikuti salah satu cara yang dijelaskan untuk membagi lembar Excel Anda menjadi beberapa lembar kerja. Jika Anda memiliki kebingungan atau pertanyaan tentang metode ini, Anda dapat berkomentar di bawah ini.

Postingan sebelumnya Membulatkan ke Bilangan Bulat Terdekat di Excel (9 Metode Mudah)
Postingan berikutnya Cara SUMIF antara Dua Tanggal dan dengan Kriteria Lain (7 Cara)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.