Bagaimana Anda membagi file excel berdasarkan kolom?

Saat Anda akan menjalankan prosedur SplitIntoSheets(), sheet akan dibagi menjadi beberapa sheet, berdasarkan kolom yang diberikan. Anda dapat menambahkan tombol pada lembar dan menetapkan makro ini ke dalamnya

Bagaimana itu bekerja
Kode di atas memiliki dua prosedur dan satu fungsi. Dua prosedur adalah Split Into Sheets(), Create Sheets(uniques As Range, clmNo As Long) dan satu fungsi adalah RemoveDuplicates(unik As Range) As Range

Prosedur Pertama adalah SplitIntoSheets(). Ini adalah prosedur utama. Prosedur ini mengatur variabel dan RemoveDuplicates untuk mendapatkan nama unik dari kolom yang diberikan dan kemudian meneruskan nama tersebut ke CreateSheets untuk membuat sheet

RemoveDuplicates mengambil satu argumen yaitu rentang yang berisi nama. Menghapus duplikat darinya dan mengembalikan objek rentang yang berisi nama unik

Sekarang CreateSheets dipanggil. Dibutuhkan dua argumen. Pertama nama unik dan kedua kolom no. dari mana kita akan memfilter data. Sekarang CreateSheets mengambil setiap nama dari keunikan dan memfilter nomor kolom yang diberikan dengan setiap nama. Menyalin data yang difilter, menambahkan sheet, dan menempelkan data di sana. Dan data Anda dibagi menjadi beberapa lembar berbeda dalam hitungan detik

Jika Anda mencari beberapa cara termudah untuk membagi lembar Excel menjadi beberapa lembar berdasarkan nilai kolom, maka artikel ini akan bermanfaat bagi Anda.

Kadang-kadang menjadi perlu untuk membagi sejumlah besar data berdasarkan kolom dan mengerjakan beberapa lembar setelah memisahkan lembar utama. Untuk mengetahui cara melakukan pekerjaan ini secara efektif, mari selami artikelnya

Daftar isi

Unduh Buku Kerja

Pisahkan Lembar Excel menjadi Beberapa Lembar. xlsm

5 Cara Membagi Lembar Excel Menjadi Beberapa Lembar Berdasarkan Nilai Kolom

Saya akan menggunakan tabel data berikut yang berisi hasil siswa yang berbeda di suatu perguruan tinggi. Lembar ini akan saya bagi menjadi tiga lembar berdasarkan kolom Nama Mahasiswa untuk ketiga mahasiswa tersebut

Untuk tujuan ini, saya menggunakan versi Microsoft Excel 365, tetapi Anda dapat menggunakan versi lain sesuai keinginan Anda

Metode-1. FILTER Berfungsi untuk Membagi Lembar menjadi Beberapa Lembar Berdasarkan Nilai Kolom

Jika Anda ingin membagi lembar data menjadi beberapa lembar berdasarkan kolom Nama Siswa, maka Anda dapat menggunakan. Di sini, saya akan membagi lembar berikut menjadi tiga lembar yang berisi data masing-masing untuk Daniel Defoe, Henry Jackson, dan Donald Paul

Langkah-01.
➤Buat tiga lembar dengan nama tiga siswa.
➤Pilih sel, seperti B3 di lembar untuk siswa Daniel Defoe

➤Ketik rumus berikut

=FILTER(Filter!B5:D16,Filter!B5:B16="Daniel Defoe")_

Saring. B5. D16 adalah rentang data tanpa header di lembar utama yang diberi nama Filter dan Filter. B5. B16 adalah rentang Nama Siswa di lembar utama dan akan sama dengan "Daniel Defoe"

➤Tekan ENTER
Sekarang, Anda akan mendapatkan data siswa Daniel Defoe di lembar siswa ini

➤Mari ketikkan nama tajuk di atas semua kolom dan buat batas untuk tabel data ini

Langkah-02.
Setelah mengikuti metode ini untuk dua lembar lainnya untuk siswa Henry Jackson dan Donald Paul, Anda akan mendapatkan dua tabel berikut di lembar masing-masing.

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

Metode-2. Tabel Pivot untuk Membagi Lembar menjadi Beberapa Lembar Berdasarkan Nilai Kolom

Anda dapat membagi lembar berikut menjadi tiga lembar untuk tiga siswa berdasarkan kolom Nama Siswa dengan menggunakan Tabel Pivot

Langkah-01.
➤Buka Sisipkan Tab>>Opsi PivotTable

Kemudian PivotTable dari table atau range Dialog Box akan muncul
➤Pilih Tabel/Range
➤Klik pada Lembar Kerja Baru (merupakan praktik yang baik untuk menempatkan Tabel Pivot ke dalam lembaran baru)
➤Tekan OK

Setelah itu akan terbuka lembaran baru yang memiliki dua bagian;

➤Seret ke bawah Nama Siswa di area Filter (kolom mana saja yang menjadi dasar Anda ingin membagi lembar utama menjadi beberapa lembar) dan Subjek dan Nilai ke area Baris

➤Buka Tab Desain>>Layout Group>>Report Layout Dropdown>>Show in Outline Form Option

➤Ikuti Tab Desain>>Grup Tata Letak>>Dropdown Total Keseluruhan>>Nonaktif untuk Opsi Baris dan Kolom

➤Kemudian pergi ke PivotTable Analyze Tab>>PivotTable Group>>Options Dropdown>>Show Report Filter Pages Option

Kemudian Wizard Tampilkan Halaman Filter Laporan akan muncul
➤Pilih kolom Nama Siswa yang berada di area Filter
➤Tekan OK

Hasil.
Setelah itu, Anda akan mendapatkan tiga lembar berbeda untuk masing-masing tiga siswa Daniel Defoe, Henry Jackson, dan Donald Paul.

Baca Selengkapnya. Pisahkan Lembar Excel menjadi Beberapa Lembar Berdasarkan Baris

Metode-3. Menggunakan Opsi Tabel

Untuk membagi lembar utama menjadi beberapa lembar berdasarkan kolom Nama Siswa dapat menggunakan Opsi Tabel

Langkah-01.
➤Buat tiga lembar dengan nama tiga siswa.
➤Salin tabel data dari lembar utama dan tempelkan ke dalam tiga lembar berbeda ini

Langkah-02.
➤Buka Sisipkan Tab>>Opsi Tabel

Kemudian akan muncul Kotak Dialog Buat Tabel
➤Pilih data untuk Tabel Anda
➤Klik pada Meja saya memiliki tajuk
➤Tekan OK

Kemudian, tabel berikut akan dibuat

➤Pergi ke Tab Desain Meja>>Dropdown Alat>>Sisipkan Opsi Pemotong

Setelah itu Kotak Dialog Insert Slicers akan muncul
➤Pilih kolom Nama Siswa (kolom berdasarkan mana Anda ingin membagi lembar)
➤Tekan OK

Setelah itu akan muncul Kotak Nama Mahasiswa yang memiliki tiga pilihan (tiga nama mahasiswa)

➤Klik Daniel Defoe untuk lembar siswa ini

Hasil.
Anda akan mendapatkan data siswa Daniel Defoe di lembar siswa ini.

Langkah-03.
➤Ikuti untuk dua lembar lainnya.
Dengan cara ini, Anda akan membuat dua lembar lainnya untuk Henry Jackson dan Donald Paul seperti di bawah ini

Baca Selengkapnya. Cara Membagi Lembar Excel menjadi Beberapa File (3 Metode Cepat)

Bacaan Serupa

• Cara Membagi Layar di Excel (3 Cara)
• [Memperbaiki. ] Tampilan Excel Berdampingan Tidak Berfungsi
• Cara Mengaktifkan Tampilan Berdampingan dengan Perataan Vertikal di Excel

Metode-4. Menggunakan Opsi Filter

Untuk membagi lembar utama menjadi beberapa lembar berdasarkan kolom Nama Siswa saya akan menggunakan opsi Filter dalam metode ini

Langkah-01.
➤Buat tiga lembar dengan nama tiga siswa.
➤Salin tabel data dari lembar utama dan tempelkan ke dalam tiga lembar berbeda ini

Langkah-02.
➤Pilih tabel data
➤Pergi ke Tab Data>>Opsi Filter

Kemudian, Opsi Filter akan diaktifkan untuk tabel data ini
➤Klik tanda Dropdown pada kolom Nama Siswa

➤Pilih nama Daniel Defoe untuk lembar ini dan Tekan OK

Hasil.
Setelah itu, Anda akan mendapatkan data siswa Daniel Defoe di lembar siswa ini.

Langkah-03.
➤Ikuti untuk dua lembar lainnya.
Kemudian, Anda akan mendapatkan dua lembar lainnya untuk Henry Jackson dan Donald Paul seperti di bawah ini

Baca Selengkapnya. Cara Memisahkan Sheet di Excel (6 Cara Efektif)

Metode-5. Kode VBA untuk Membagi Lembar menjadi Beberapa Lembar Berdasarkan Nilai Kolom

Anda dapat membagi satu sheet menjadi beberapa sheet berdasarkan nilai kolom dengan menggunakan kode VBA seperti metode ini

Langkah-01.
➤Buka Tab Pengembang>>Opsi Visual Basic

Kemudian, Editor Visual Basic akan terbuka
➤Pergi ke Tab Sisipkan>> Opsi Modul

Setelah itu, sebuah Modul akan dibuat

Langkah-02

➤Tulis kode berikut

Sub Splitsheet()
Dim lr As Long
Dim sheet As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Select the header row:", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox _
("Select the column on the basis of which split data:", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set sheet = xTRg.Worksheet
lr = sheet.Cells(sheet.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = sheet.Columns.Count
sheet.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
sheet.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If sheet.Cells(i, vcol) <> "" And Application.WorksheetFunction. _
Match(ws.Cells(i, vcol), sheet.Columns(icol), 0) = 0 Then
sheet.Cells(sheet.Rows.Count, icol).End(xlUp).Offset(1) = sheet.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(sheet.Columns(icol). _
SpecialCells(xlCellTypeConstants))
sheet.Columns(icol).Clear
For i = 2 To UBound(myarr)
sheet.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
sheet.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr) _
.EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
sheet.AutoFilterMode = False
sheet.Activate
Application.DisplayAlerts = True
End Sub

Di sini, Splitsheet() adalah nama prosedur Sub dan variabel lr, sheet, vcol, i, icon, myarr, title, titlerow, xTRg, xVRg, xWSTRg dideklarasikan sebagai tipe data yang berbeda dengan menggunakan parameter Dimensi

Di sini, beberapa loop IF dan FOR telah digunakan untuk membagi sheet menjadi beberapa sheet

➤Tekan F5

Pilih baris tajuk. Kotak Dialog akan terbuka
➤Pilih rentang baris tajuk dan Tekan OK

Kemudian Pilih kolom berdasarkan data yang dibagi. Wizard akan muncul
➤Pilih kolom Nama Siswa dan tekan OK

Hasil.
Akhirnya, Anda akan mendapatkan tiga lembar untuk Daniel Defoe, Henry Jackson, dan Donald Paul seperti di bawah ini.

Di sini kami telah menggunakan tujuan tempel di sel A1, itu sebabnya data terpisah dimulai dari sel itu

Baca Selengkapnya. Cara Membagi Buku Kerja untuk Memisahkan File Excel dengan Kode VBA

Bagian Praktek

Untuk melakukan latihan sendiri kami telah menyediakan bagian Latihan seperti di bawah ini dalam lembar bernama Latihan. Silakan lakukan sendiri

Kesimpulan

Pada artikel ini, saya mencoba membahas cara termudah untuk membagi lembar Excel menjadi beberapa lembar berdasarkan nilai kolom di Excel secara efektif. Harap Anda akan menemukan itu berguna. Jika Anda memiliki saran atau pertanyaan jangan ragu untuk membaginya dengan kami

Bagaimana cara membagi data menjadi beberapa file berdasarkan kolom di Excel?

Bagaimana cara memisahkan data di Excel berdasarkan kriteria?

Bagaimana cara membagi spreadsheet Excel secara otomatis menjadi beberapa file?

Bagaimana Anda membagi kolom di Excel berdasarkan?