Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana membagi data menjadi beberapa lembar kerja dengan jumlah baris di Excel?

Sebagai contoh, saya memiliki daftar data, sekarang saya ingin membaginya menjadi beberapa lembar kerja dengan jumlah baris, dalam contoh ini, saya akan membaginya dengan setiap baris 5 (lihat screenshot berikut). Apakah ada cara untuk membantu kami mengatasi masalah ini dengan cepat? Di sini saya akan memperkenalkan dua trik agar Anda bisa melakukannya dengan mudah.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

Split data menjadi beberapa lembar kerja dengan jumlah baris dengan kode VBA

Split data ke dalam beberapa lembar kerja dengan hitungan baris dengan Kutools for Excel


panah biru kanan gelembung Split data menjadi beberapa lembar kerja dengan jumlah baris dengan kode VBA


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

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

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

VBA: Membagi data menjadi beberapa lembar dengan jumlah baris di Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set 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

3. Lalu tekan F5 kunci untuk menjalankan kode, dan sebuah dialog muncul untuk memilih rentang yang akan dibagi, lalu klik OK, dan dialog lain untuk menentukan jumlah baris. Lihat tangkapan layar

4. Klik OK, dan rentang dibagi menjadi beberapa lembar dengan jumlah baris.

Catatan: Lembar kerja split ditempatkan di bagian belakang lembar kerja utama.


panah biru kanan gelembung Split data ke dalam beberapa lembar kerja dengan hitungan baris dengan Kutools for Excel

Kode di atas hanya bisa membagi data dengan jumlah baris yang ditentukan, dan tidak akan menambahkan judul untuk setiap data lembar kerja jika data Anda memiliki judul.

Tapi dengan Kutools for Excel'S Data split, Anda tidak hanya bisa memasukkan header untuk setiap data lembar kerja, tapi juga bisa menentukan nama lembar kerja split yang baru.

Kutools for Excel termasuk lebih dari 300 berguna alat Excel. Bebas untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang

Jika Anda telah menginstal Kutools for Excel, lakukan hal berikut:

1. Pilih kisaran data yang ingin Anda bagi.

2. Klik Perusahaan > Alat lembar kerja > Data split (Atau Perusahaan > Data split ), lihat tangkapan layar:

doc-split-data-by-rows6

3. di Split Data menjadi Multiple Worksheets kotak dialog:

  • memilih Baris tetap dari Split berdasarkan pilihan, dan masukkan jumlah baris yang ingin Anda bagi untuk setiap lembar kerja. (Jika data Anda memiliki header dan Anda ingin memasukkannya ke dalam lembar kerja split yang baru, tolong periksa Data saya memiliki header pilihan.)
  • Kemudian Anda bisa menentukan nama worksheet split, di bawah Nama lembar kerja baru bagian, pilih nama worksheet aturan dari aturan daftar drop down, Anda bisa menambahkan Awalan or Akhiran untuk nama sheet juga Lihat tangkapan layar

doc-split-data-by-rows7

4. Setelah menentukan settingnya, lalu klik OK, dan data yang dipilih telah dipecah menjadi beberapa lembar kerja dari workbook baru oleh setiap baris 5. Dan header disisipkan untuk setiap lembar kerja baru. Lihat tangkapan layar

doc-split-data-by-rows8

Klik untuk tahu lebih banyak tentang fitur Data Split ini.

Artikel terkait:

Bagaimana cara membagi data menjadi beberapa lembar kerja berdasarkan kolom di Excel?



Alat Produktifitas yang Direkomendasikan

Office Tab

Bintang emas1 Bawa tab yang berguna ke Excel dan perangkat lunak Office lainnya, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools for Excel

Bintang emas1 Menakjubkan! Tingkatkan produktivitas Anda dalam 5 menit. Tidak perlu keahlian khusus, hemat dua jam setiap hari!

Bintang emas1 300 Fitur Baru untuk Excel, Membuat Excel Lebih Mudah dan Hebat:

  • Gabungkan Sel / Baris / Kolom tanpa Kehilangan Data.
  • Menggabungkan dan mengkonsolidasikan beberapa lembar dan buku kerja.
  • Bandingkan Range, Copy Multiple Ranges, Konversi Teks ke Tanggal, Konversi Unit dan Mata Uang.
  • Hitung dengan Warna, Pager Subtotals, Filter Sort dan Super Tingkat Lanjut,
  • Lebih Pilih / Sisipkan / Hapus / Teks / Format / Link / Komentar / Buku Kerja / Lembar Kerja Alat ...

Tembakan layar dari Kutools untuk Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 9 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?