Memisahkan Lembar menggunakan kolom yang dipilih
Jika Anda memiliki banyak data, seperti pada tangkapan layar di bawah, dan ingin membaginya dengan cepat menjadi banyak lembar kerja berdasarkan kolom A dalam buku kerja, pisahkan setiap nama menjadi lembar kerja baru. Kelly, misalnya, akan dibagi menjadi satu lembar kerja. Anda dapat menyelesaikannya sebagai berikut
Untuk membagi rentang data menjadi banyak lembar kerja tergantung pada kolom, harap pilih rentangnya terlebih dahulu
Kemudian, dengan memilih Beranda > Lembar Kerja > Data Terpisah, gunakan alat tersebut. Silakan pilih kolom Spesifik dari daftar drop-down di kotak dialog Split Date into Multiple Worksheets sebelum memilih kolom yang ingin Anda bagi berdasarkan data
Anda sekarang dapat melihat bahwa setiap nama di kolom akan dipisahkan menjadi lembar kerja yang berbeda dan Anda telah membagi lembar di Excel dalam file terpisah di dalam buku kerja baru setelah Anda mengklik OK untuk membagi data. Lihat ilustrasi
MEMBAGI LEMBAR MENJADI BEBERAPA LEMBAR KERJA TERGANTUNG JUMLAH BARIS
Jika Anda memiliki berbagai data, seperti pada tangkapan layar di bawah ini, dan Anda ingin dengan cepat membagi lembar di Excel menjadi file terpisah, bagilah menjadi beberapa lembar kerja berdasarkan jumlah baris, Anda dapat menuliskannya seperti ini
silakan pilih rentang yang ingin Anda lakukan
Menggunakan Home > Worksheet > Split Data untuk menerapkan utilitas. Silakan pilih Baris tetap dan masukkan jumlah baris yang diinginkan di kotak yang tersedia di kotak dialog Tanggal Pemisahan menjadi Beberapa Lembar Kerja
Sebutkan nama lembar kerja baru. Nama lembar kerja baru mungkin Nomor Baris. File baru akan dibuat di folder terpisah. Periksa tangkapan layar yang diberikan di bawah ini
Apakah Anda belajar tentang cara membagi lembar di Excel menjadi file terpisah?
Anda juga dapat mendownload WPS Office untuk mengedit dokumen word, excel, powerpoint secara gratis. Unduh sekarang. Dan dapatkan pengalaman kerja yang mudah dan menyenangkan
Excel sangat berguna saat kita bekerja dengan data dalam jumlah besar. Terkadang kita perlu membagi data tersebut menjadi lembaran yang berbeda sesuai kebutuhan. Pada artikel ini, kita akan membahas cara membagi data menjadi beberapa lembar kerja Excel
Daftar isi
Download Buku Latihan
Unduh buku latihan latihan ini untuk berolahraga saat Anda membaca artikel ini
Pisahkan Data menjadi Beberapa Lembar Kerja. xlsm
Prosedur Langkah-demi-Langkah untuk Membagi Data menjadi Beberapa Lembar Kerja di Excel
Kami akan membagi data lembar menjadi lembar kerja yang berbeda menggunakan VBA dan Macro. Di kumpulan data, kami menampilkan data nama siswa, ID, dan bagian
Langkah 1. Buat Makro Baru di Modul VBA
Kami akan membagi data menjadi lembar kerja yang berbeda berdasarkan kolom
- Kami menyalin data dan menempelkannya ke lembar lain di Sel A1
- Untuk melakukan metode ini, kita harus selalu memulai data dari Sel A1
- Pilih tab Pengembang
- Sekarang, klik Visual Basic dari grup Kode
- Setelah itu klik,
Sisipkan → Modul
- Sekarang, tulis kode di bawah ini di kotak Modul
Sub Split_Data() Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer Application.ScreenUpdating = False VCL = Application.InputBox(prompt:="Which column would you like to filter by?", title:="Filter column", Type:=1) Set DS = ActiveSheet L = DS.Cells(DS.Rows.Count, VCL).End(xlUp).Row title = "A1" titlerow = DS.Range(title).Cells(1).Row XCL = DS.Columns.Count DS.Cells(3, XCL) = "Unique" For X = 2 To L On Error Resume Next If DS.Cells(X, VCL) <> "" And Application.WorksheetFunction.Match(DS.Cells(X, VCL), DS.Columns(XCL), 0) = 0 Then DS.Cells(DS.Rows.Count, XCL).End(xlUp).Offset(1) = DS.Cells(X, VCL) End If Next MARY = Application.WorksheetFunction.Transpose(DS.Columns(XCL).SpecialCells(xlCellTypeConstants)) DS.Columns(XCL).Clear For X = 2 To UBound(MARY) DS.Range(title).AutoFilter field:=VCL, Criteria1:=MARY(X) & "" If Not Evaluate("=ISREF('" & MARY(X) & "'!A1)") Then Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = MARY(X) & "" Else Sheets(MARY(X) & "").Move after:=Worksheets(Worksheets.Count) End If DS.Range("A" & titlerow & ":A" & L).EntireRow.Copy Sheets(MARY(X) & "").Range("A4") Next DS.AutoFilterMode = False DS.Activate Application.ScreenUpdating = True End Sub
Langkah 2. Simpan File dalam Format XLSM dan Jalankan Makro
- Kemudian tekan F5 untuk menjalankan kode.
- Akan muncul kotak dialog untuk menginputkan angka
- Letakkan 1 di sini, karena kami ingin membagi data berdasarkan Kolom 1
- Setelah memasukkan nomor tekan OK
- Kami akan mendapatkan data ke lembar yang berbeda sekarang
- Kita bisa melihat bahwa data sudah ada di lembar S-1, S-2, dan S-3 sekarang
- Buka lembar S-1
Pada lembar S-1, semua data mengenai bagian S-1 ada disini. Di sini, data dimulai dari Sel A4 karena kami menyetel ketentuan ini pada kode VBA
Penjelasan Kode
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_>> Deklarasikan variabel yang berbeda
Application.ScreenUpdating = False>> Perintah ini menentukan apakah layar akan diperbarui atau tidak. Di sini, False berhenti memperbarui. Pembaruan layar dimatikan untuk mempercepat makro.
VCL = Application.InputBox(prompt:="Which column would you like to filter by?", title:="Filter column", Type:=1)>> Perintah ini memperkenalkan kotak input. Kami akan memasukkan nomor kolom di kotak input
Set DS = ActiveSheet_>> Memperbaiki sheet aktif sebagai nilai variabel DS .
L = DS.Cells(DS.Rows.Count, VCL).End(xlUp).Row>> DS. Sel (DS. Baris. Count, VCL) mendefinisikan bahwa acuan kita adalah sel kolom VCL terletak di baris terakhir dari DS sheet. And, End(xlUp) pilih baris terakhir atau baris pertama ke arah atas.
titlerow = DS.Range(title).Cells(1).Row_>> Tunjukkan baris pertama sebagai judul
XCL = DS.Columns.Count>> Hitung jumlah kolom ke dalam variabel XCL .
>> Beri nama rentang sebagai “Unik”
For X = 2 To L_>> Gunakan For loop dan tetapkan nilai X from 2 to L
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_0>> Jika ditemukan kesalahan, lanjutkan operasi dan buka bagian Berikutnya .
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_1>> Jika kondisi diterapkan di sini. Fungsi Worksheet Match digunakan untuk mengatur kondisi
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_2>> Kami telah menggunakan fungsi Transpose lembar kerja di baris
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_3>> Ini digunakan untuk menghapus isi Kolom yang ditandai dengan variabel XCL
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_4>> Perulangan For diterapkan di sini. Kami menetapkan nilai X dari 2 hingga batas atas . MARY variable.
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_5>> Tetapkan variabel VCL sebagai rentang Filter Otomatis.
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_6>> Kami menetapkan kondisi JIKA lain
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_7>> Salin data seluruh baris
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_8>> Perintah ini menghapus simbol panah dari drop-down filter
Dim L As Long Dim DS As Worksheet Dim VCL, X As Integer Dim XCL As Long Dim MARY As Variant Dim title As String Dim titlerow As Integer_9>> Mengaktifkan lembar kerja variabel DS .
Application.ScreenUpdating = False0>> Aktifkan pembaruan layar dengan menetapkan nilai True.
Baca Selengkapnya. Excel Macro untuk Membagi Data menjadi Beberapa File (Dengan Langkah Sederhana)
Kesimpulan
Di artikel ini, kami menjelaskan metode untuk menjelaskan cara membagi data menjadi beberapa lembar kerja di Excel. Saya harap ini akan memuaskan kebutuhan Anda. Silakan lihat situs web kami Exceldemy. com dan berikan saran Anda di kotak komentar