Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk memecah data ke dalam banyak kerja dengan baris dikira dalam Excel?

Sebagai contoh, saya mempunyai pelbagai senarai data, kini saya mahu membahagikannya kepada berbilang lembaran kerja dengan menghitung baris, dalam contoh ini, saya akan membahagikannya dengan setiap baris 5 (lihat tangkapan skrin berikut). Adakah terdapat cara untuk membantu menyelesaikan masalah ini dengan cepat? Di sini saya akan memperkenalkan dua helah untuk anda 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

Memecah data ke dalam banyak kerja dengan baris dikira dengan kod VBA

Split data ke dalam banyak kerja dengan baris dihitung dengan Kutools untuk Excel


anak panah gelembung kanan biru Memecah data ke dalam banyak kerja dengan baris dikira dengan kod VBA


Kod VBA berikut boleh membantu anda membahagi baris ke dalam banyak kerja mengikut baris yang dikira, lakukan seperti berikut:

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

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Tetingkap Modul.

VBA: Split data ke dalam helaian dengan baris dihitung dalam 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. Kemudian tekan F5 kunci untuk menjalankan kod tersebut, dan dialog timbul untuk memilih pelbagai untuk berpecah, dan kemudian klik OK, dan dialog lain untuk anda menentukan bilangan baris. Lihat tangkapan skrin:

4. Klik OK, dan julat dibahagikan kepada berbilang helaian dengan menghitung baris.

Nota: Lembaran kerja berpecah diletakkan di bahagian belakang lembaran kerja induk.


anak panah gelembung kanan biru Split data ke dalam banyak kerja dengan baris dihitung dengan Kutools untuk Excel

Kod di atas hanya boleh memisahkan data dengan menghitung baris tertentu, dan ia tidak akan menambah tajuk untuk setiap data lembaran kerja jika data anda mempunyai tajuk.

tetapi dengan Kutools untuk Excel'S Data Split, anda bukan sahaja boleh memasukkan tajuk untuk setiap data lembaran kerja, tetapi juga boleh menentukan nama lembaran kerja split baru.

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 30. Dapatkannya sekarang

Jika anda telah memasang Kutools untuk Excel, sila lakukan seperti berikut:

1. Pilih julat data yang anda mahu perpecahan.

2. Klik Enterprise > Alat Kerja Lembaran Kerja > Data Split (Atau Enterprise > Data Split ), lihat tangkapan skrin:

doc-split-data-by-rows6

3. Di dalam Split Data ke Lembar Kerja Pelbagai kotak dialog:

  • pilih Baris tetap daripada Split berdasarkan pilihan, dan masukkan bilangan baris menghitung yang anda ingin berpecah untuk setiap lembar kerja. (Jika data anda mempunyai tajuk dan anda ingin memasukkannya ke setiap lembaran kerja split baru, sila semak Data saya mempunyai tajuk pilihan.)
  • Kemudian anda boleh menentukan nama kerja lembaran pecahan, di bawah Nama kerja baru seksyen, pilih peraturan nama kerja daripada peraturan drop down list, anda boleh menambah Awalan or akhiran untuk nama kunci juga. Lihat tangkapan skrin:

doc-split-data-by-rows7

4. Selepas menentukan tetapan, kemudian klik OK, dan data yang dipilih telah dibahagikan kepada pelbagai lembaran kerja buku kerja baru oleh setiap baris 5. Dan tajuk dimasukkan untuk setiap lembaran kerja baru. Lihat tangkapan skrin:

doc-split-data-by-rows8

Klik untuk mengetahui lebih lanjut mengenai ciri Data Split ini.

Artikel berkaitan:

Bagaimana untuk memecah data ke dalam banyak kerja berdasarkan lajur dalam Excel?



Alat Produktiviti yang Disyorkan

Tab Pejabat

bintang emas1 Bawa tab berguna kepada Excel dan perisian Office lain, seperti Chrome, Firefox dan Internet Explorer baru.

Kutools untuk Excel

bintang emas1 Hebat! Tingkatkan produktiviti anda dalam minit 5. Tidak memerlukan kemahiran khas, kecuali dua jam setiap hari!

bintang emas1 Ciri-ciri Baru 300 untuk Excel, Buat Excel Banyak Mudah dan Berkuasa:

  • Merge Cell / Rows / Columns tanpa Kehilangan Data.
  • Menggabungkan dan Menyusun Lembaran Berbilang dan Buku Kerja.
  • Bandingkan Ranges, Salin Pelbagai Rang Undang-Undang, Tukar Teks hingga Tarikh, Penukaran Unit dan Mata Wang.
  • Count by Colors, Subtotal Paging, Urutkan Advanced dan Super Filter,
  • More Select / Insert / Delete / Text / Format / Link / Comment / Workbooks / Worksheets Tools ...

Skrin skrin 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 · 10 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?