エクセル_行で分割する方法

質問

35000人分の住所録を4000人分ずつに分割したいと思います。
良い方法はありませんでしょうか？
最終的には、4000人分ずつのデータが入った9枚のエクセルファイルを
つくりたいです。
関数もマクロも全く詳しくありません。よろしくお願いいたします。

回答No.1

tom04 · ベストアンサー

こんばんは！
VBAになってしまいますが、一例です。

＞最終的には、4000人分ずつのデータが入った9枚のエクセルファイルを・・・
とありますが、各Sheetに分ける！という方法にしました。

尚、元データはSheet1にあり1行目は項目行でデータは2行目以降にあるとします。

Alt+F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, k As Long, cnt As Long, wS1 As Worksheet
Set wS1 = Worksheets("Sheet1") '←「Sheet1」は実際のSheet名に！
Application.DisplayAlerts = False
For k = Worksheets.Count To 2 Step -1
Worksheets(k).Delete
Next k
Application.DisplayAlerts = True
For i = 2 To wS1.Cells(Rows.Count, 1).End(xlUp).Row Step 4000
cnt = cnt + 1
Worksheets.Add after:=Worksheets(Worksheets.Count)
With ActiveSheet
.Name = (cnt - 1) * 4000 + 1 & "から"
wS1.Rows(1).Copy .Cells(1, 1)
wS1.Rows(i & ":" & i + 3999).Copy .Cells(2, 1)
End With
Next i
End Sub 'この行まで

こんなんではどうでしょうか？m(_ _)m

お礼

ありがとうございます。
エクセルも関数もマクロも全く分からず…
勉強しながらやってみます。