Loncat ke daftar isi utama

Pisahkan data menjadi beberapa lembar kerja berdasarkan jumlah baris di Excel

Membagi rentang data yang besar secara efisien menjadi beberapa lembar kerja Excel berdasarkan jumlah baris tertentu dapat menyederhanakan pengelolaan data. Misalnya, membagi kumpulan data setiap 5 baris menjadi beberapa lembar dapat membuatnya lebih mudah dikelola dan terorganisir. Panduan ini menawarkan dua metode praktis untuk menyelesaikan tugas ini dengan cepat dan mudah.

Pisahkan data menjadi beberapa lembar kerja dengan menghitung baris dengan kode VBA

Pisahkan data menjadi beberapa lembar kerja dengan hitungan baris dengan Kutools for Excel


Pisahkan data menjadi beberapa lembar kerja dengan menghitung baris dengan kode VBA

Kode VBA berikut dapat membantu Anda membagi baris menjadi beberapa lembar kerja berdasarkan jumlah baris, lakukan hal berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

VBA: Membagi data menjadi lembar kerja berdasarkan jumlah baris di Excel

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci, di kotak dialog yang muncul, pilih baris header, lihat tangkapan layar:

4. Lalu klik OK, dan di kotak prompt kedua, pilih rentang data yang ingin Anda pisahkan dengan jumlah baris, lihat tangkapan layar:

5. Lanjutkan mengklik OK tombol, di kotak prompt ketiga, masukkan jumlah baris yang ingin Anda pisahkan, lihat tangkapan layar:

6. Lalu klik OK tombol, data telah dipecah menjadi beberapa lembar kerja berdasarkan jumlah baris, lihat tangkapan layar:


Pisahkan data menjadi beberapa lembar kerja dengan hitungan baris dengan Kutools for Excel

Jika menurut Anda kode VBA itu rumit, Kutools untuk Excel menawarkan solusi cepat dan intuitif untuk mengatasi masalah pemisahan data secara efisien. Ini Data split fitur menyederhanakan proses pengoperasian, memungkinkan pengguna dengan tingkat keahlian apa pun dengan mudah membagi kumpulan data besar menjadi beberapa lembar kerja tanpa memerlukan pengetahuan pemrograman mendalam, sehingga memfasilitasi pengelolaan data yang efektif.

Kutools untuk Excel mencakup lebih dari 300 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang

Jika sudah terpasang Kutools untuk Excel, lakukan hal berikut:

1. Pilih rentang data yang ingin Anda pisahkan. Lalu, klik Kutools Ditambah > Data split, lihat tangkapan layar:

3. di Pisahkan Data menjadi Beberapa Lembar Kerja kotak dialog:

  • Pilih Baris tetap dari Pisahkan berdasarkan opsi, dan masukkan jumlah jumlah baris yang ingin Anda bagi untuk setiap lembar kerja.
  • Jika data Anda memiliki header dan Anda ingin memasukkannya ke dalam setiap lembar kerja terpisah yang baru, silakan centang Data saya memiliki tajuk pilihan. (jenis: Anda dapat memasukkan jumlah baris penggembala berdasarkan data Anda.)
  • Kemudian Anda dapat menentukan nama lembar kerja terpisah, di bawah Nama lembar kerja baru bagian, pilih aturan nama lembar kerja dari Peraturan daftar drop-down, Anda dapat menambahkan Awalan or Akhiran untuk nama sheet juga. 

4. Setelah menentukan pengaturan, kemudian klik OK, dan data yang dipilih telah dipecah menjadi beberapa lembar kerja dari buku kerja baru dengan setiap 5 baris. Dan header disisipkan untuk setiap lembar kerja baru. Lihat tangkapan layar:

Note: Untuk menerapkan fitur ini, silakan unduh dan instal Kutools untuk Excel pertama.

Artikel Terkait:

  • Pisahkan data menjadi beberapa lembar kerja berdasarkan kolom
  • Misalkan Anda memiliki lembar kerja dengan deretan data yang sangat besar, dan sekarang, Anda perlu membagi data menjadi beberapa lembar kerja berdasarkan kolom Nama (lihat tangkapan layar berikut), dan nama-nama tersebut dimasukkan secara acak. Mungkin Anda bisa mengurutkannya terlebih dahulu, lalu menyalin dan menempelkannya satu per satu ke lembar kerja baru lainnya. Namun ini membutuhkan kesabaran Anda untuk menyalin dan menempel berulang kali. Hari ini, saya akan membahas beberapa trik cepat untuk menyelesaikan tugas ini.
  • Gabungkan baris duplikat dan jumlahkan nilainya di Excel
  • Di Excel, merupakan skenario umum untuk menemukan kumpulan data dengan entri duplikat. Seringkali, Anda mungkin menemukan serangkaian data yang tantangan utamanya adalah menggabungkan baris duplikat ini secara efisien sekaligus menjumlahkan nilai dalam kolom terkait seperti gambar layar berikut yang ditampilkan. Dalam konteks ini, kami akan mempelajari beberapa metode praktis yang dapat membantu Anda mengkonsolidasikan data duplikat dan mengagregasi nilai terkaitnya, sehingga meningkatkan kejelasan dan kegunaan buku kerja Excel Anda.
  • Gabungkan dua tabel atau lebih menjadi satu berdasarkan kolom kunci
  • Misalkan Anda memiliki tiga tabel di workbook, sekarang, Anda ingin menggabungkan tabel ini menjadi satu tabel berdasarkan kolom kunci yang sesuai untuk mendapatkan hasil seperti gambar di bawah ini. Ini mungkin tugas yang merepotkan bagi kebanyakan dari kita, tetapi, jangan khawatir, artikel ini, saya akan memperkenalkan beberapa metode untuk menyelesaikan masalah ini.

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (25)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Very useful thank u so much
This comment was minimized by the moderator on the site
Its awesome!
Rated 5 out of 5
This comment was minimized by the moderator on the site
But header is not retaining in the output. Please guide me if any solution.
This comment was minimized by the moderator on the site
Can we split this same data but by using a code in php?
This comment was minimized by the moderator on the site
U are the savior my brother. Take love from Bangladesh <3 
This comment was minimized by the moderator on the site
Is there a way to keep the header across all worksheet?
For example, row 1 is the column names and row 2 to row 51 are my data. When I split it into 10 worksheets, I hope to have row 1 be the header and row 2-6 be the data.
This comment was minimized by the moderator on the site
this was very helpful. thank you
This comment was minimized by the moderator on the site
I have 20 million data in excel. I need to segregate it with first 2500 rows followed by 250 data so on. How can I do it quickly.
This comment was minimized by the moderator on the site
Minmatar detected :O
This comment was minimized by the moderator on the site
thank you. saved a lot of my time.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations