Pisahkan file excel dengan jumlah baris

Inilah trik kecil yang rapi yang banyak dilupakan. Di alat keluaran, opsi 1 di panel konfigurasi

Saya telah menetapkan nilai saya sebagai 2, oleh karena itu Alteryx akan menampilkan file terpisah, membagi output saya menjadi maksimal dua baris per output

Katakanlah saya memiliki input 5 record

Keluaran dengan catatan maksimum per file 2 (seperti contoh di atas) akan menghasilkan tiga file keluaran yang dibuat, masing-masing dengan 2 catatan, 2 catatan dan 1 catatan

Metode ini akan sepenuhnya dinamis juga jika jumlah record yang dihasilkan berubah. Jika catatan Anda bertambah menjadi 25, Anda akan menghasilkan 13 file, 12 di antaranya akan berisi 2 catatan dan 1 akan berisi 1 catatan

Berikut adalah file Excel yang dapat digunakan untuk membagi satu file Excel menjadi beberapa file Excel berdasarkan jumlah baris terpisah. Yang harus Anda lakukan adalah menelusuri buku kerja sumber (mis. e. yang memiliki 1.00.000 baris), pilih nama sheet dan berikan jumlah pemisahan khusus (mis. e. 500, 1000. )

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

Makro Anda hanya memisahkan semua baris dalam rentang yang dipilih, termasuk baris tajuk di baris pertama (sehingga hanya muncul satu kali, di file pertama). Saya memodifikasi makro untuk apa yang Anda minta;

Sub Test()
  Dim wb As Workbook
  Dim ThisSheet As Worksheet
  Dim NumOfColumns As Integer
  Dim RangeToCopy As Range
  Dim RangeOfHeader As Range        'data (range) of header row
  Dim WorkbookCounter As Integer
  Dim RowsInFile                    'how many rows (incl. header) in new files?

  Application.ScreenUpdating = False

  'Initialize data
  Set ThisSheet = ThisWorkbook.ActiveSheet
  NumOfColumns = ThisSheet.UsedRange.Columns.Count
  WorkbookCounter = 1
  RowsInFile = 10                   'as your example, just 10 rows per file

  'Copy the data of the first row (header)
  Set RangeOfHeader = ThisSheet.Range(ThisSheet.Cells(1, 1), ThisSheet.Cells(1, NumOfColumns))

  For p = 2 To ThisSheet.UsedRange.Rows.Count Step RowsInFile - 1
    Set wb = Workbooks.Add

    'Paste the header row in new file
    RangeOfHeader.Copy wb.Sheets(1).Range("A1")

    'Paste the chunk of rows for this file
    Set RangeToCopy = ThisSheet.Range(ThisSheet.Cells(p, 1), ThisSheet.Cells(p + RowsInFile - 2, NumOfColumns))
    RangeToCopy.Copy wb.Sheets(1).Range("A2")

    'Save the new workbook, and close it
    wb.SaveAs ThisWorkbook.Path & "\test" & WorkbookCounter
    wb.Close

    'Increment file counter
    WorkbookCounter = WorkbookCounter + 1
  Next p

  Application.ScreenUpdating = True
  Set wb = Nothing
End Sub

Semoga ini membantu

Bagaimana Anda membagi data menjadi beberapa file dengan jumlah baris di Excel?

Bagaimana cara membagi 50 baris di Excel?

Bagaimana cara membagi sejumlah besar data di Excel?

Bagaimana cara memisahkan spreadsheet Excel menjadi file terpisah?