Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?

Mungkin perlu membagi buku kerja yang besar menjadi banyak file Excel dengan menyimpan setiap lembar kerja sebagai file Excel yang berbeda. Anda mungkin, misalnya, membagi buku kerja menjadi banyak file Excel terpisah dan kemudian memberikan setiap file kepada orang yang berbeda untuk dikelola. Anda dapat menyimpan data Anda dengan aman dan menugaskan individu tertentu untuk mengelola berbagai jenis data dengan melakukan ini. Bayangkan Nama siswa mungkin ada di kolom A lembar kerja yang berisi data, dan Anda mungkin perlu membagi data ini secara otomatis menjadi beberapa lembar kerja sesuai nama di kolom A. Lembar kerja baru akan dibuat untuk setiap siswa. Alat Tanggal Berpisah di Kutools for Excel membantu membagi lembar di excel menjadi pemilihan kolom file terpisah dan pemilihan baris. Artikel ini berisi langkah-langkah untuk membagi data penting menjadi sheet, baris, dan kolom

Memisahkan Lembar menggunakan kolom yang dipilih

  1. 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

  1. 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

  1. 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

 

 

  1. 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

  1. 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

  1. 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

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?


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

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?


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

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?

  • Pilih tab Pengembang
  • Sekarang, klik Visual Basic dari grup Kode

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?

  • Setelah itu klik,

Sisipkan → Modul

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?

  • 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 
			

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?


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

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?

  • Setelah memasukkan nomor tekan OK
  • Kami akan mendapatkan data ke lembar yang berbeda sekarang

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?

  • Kita bisa melihat bahwa data sudah ada di lembar S-1, S-2, dan S-3 sekarang
  • Buka lembar S-1

Bagaimana Anda membagi data menjadi beberapa lembar kerja berdasarkan kolom di excel tanpa vba?

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 .

DS.Cells(3, XCL) = "Unique"
_

>> 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 = False
0

>> 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

Bagaimana cara membagi lembar Excel menjadi beberapa lembar kerja tanpa VBA?

Pilih di bawah baris tempat Anda ingin memisahkan, atau kolom di sebelah kanan tempat Anda ingin memisahkan. Pada tab Tampilan, di grup Jendela, klik Pisahkan . Untuk menghapus panel pemisah, klik Pisahkan lagi.

Bagaimana cara membagi spreadsheet Excel menjadi beberapa lembar kerja berdasarkan kolom?

Untuk membagi rentang data menjadi beberapa lembar kerja tergantung kolom, harap pilih rentang terlebih dahulu. Kemudian, dengan memilih Beranda > Lembar Kerja > Pisahkan Data , gunakan alat.

Bagaimana cara membagi lembar Excel menjadi beberapa lembar berdasarkan nilai baris?

Di kotak dialog Pisahkan Data menjadi Beberapa Lembar Kerja. Pilih Baris tetap dari Pisahkan berdasarkan opsi, dan masukkan jumlah baris yang ingin Anda pisahkan untuk setiap lembar kerja. (Jika data Anda memiliki header dan Anda ingin memasukkannya ke dalam setiap lembar kerja terpisah yang baru, harap centang opsi Data saya memiliki header. )

Bagaimana cara membagi lembar Excel menjadi beberapa lembar kerja menggunakan makro?

Cara memisahkan file CSV atau Excel .
Buka file baru di Excel
Aktifkan makro
Buka editor makro
Salin teks di bawah ini mulai dari "Sub" dan diakhiri dengan "End Sub"
Rekatkan ke editor makro
Kembali ke Excel dari editor makro
Simpan file sebagai file tipe. xlsm