Excel 2013 - 異なるワークブックにデータを自動的に分割するマクロ

Question

Excel 2013に大量のデータがあり、それぞれ1000個のレコードを含む複数のExcelワークブックに分割します。

したがって、1つのブックに合計5000のレコードがある場合、マクロを実行して、自動的に1000個のレコードを含む5つのブックに分割します。元のワークブックは元の5000レコードのデータを保持しています。

誰でも手助けできますか？

感謝

Answer 1

私は、各レコードが1行にあると仮定します、最後の列はTであり、あなたのテーブルには、ヘッダーを持っていないこと。

Public Sub Split_wb() 

Dim i as integer, arr as variant, wb as variant, ws_source as worksheet 

set ws_source = activesheet 

For i =1 to 5 
    arr = ws_source.range("A" & i*1000-999 & ":T" & i*1000) 

    set wb = workbooks.add 
    wb.sheets(1).Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr 
    set arr = Nothing 
next 

end sub