エクセル：シートの分割

質問

お世話になります。
エクセルで、あるシートに任意の行数のファイルがあります。
１～６行目はタイトル行扱いで、７行目からがデータ部分になります。
この７行目からはじまるデータ部分を２５行分ずつシート単位で分割したいのです。
１つ目のシートが分割前の本データとすると、２つ目のシートには１～６行目と７～３１行目、２つ目のシートは１～６行目と３２～５６行目…　というように。
必ず各シートの先頭は１～６行目部分になります。
１つ目のシートが分割前のシートで、２つ目以降に２５行分ごとに分割されたシートがどんどん追加されていくイメージです。Ａ列には必ずデータが入っているので、Ａ列にデータが入っている最終行までが処理の対象になります。
追加するシート名は、分割１、分割２…というようにしたいです。
このような処理を自動化するマクロができれば教えてください。

回答No.1

ham_kamo · ベストアンサー

標準モジュールに以下のマクロをコピーして貼り付けて実行してみてください。途中で出てくる"Sheet1"の部分は、オリジナルのシート名に修正してください。

Sub シート分割()
　Dim WS1 As Worksheet
　Dim WS2 As Worksheet
　Dim i As Integer
　Dim Bunkatsu As Integer
　Set WS1 = Worksheets("Sheet1") 'コピー元のデータシート
　Set WS2 = WS1
　Bunkatsu = 1
　Application.ScreenUpdating = False
　For i = 7 To WS1.Cells(Rows.Count, 1).End(xlUp).Row Step 25
　　Set WS2 = Worksheets.Add(After:=WS2)
　　WS2.Name = "分割" & Bunkatsu
　　WS1.Rows("1:6").Copy WS2.Cells(1, 1)
　　WS1.Rows(i & ":" & i + 24).Copy WS2.Cells(7, 1)
　　Bunkatsu = Bunkatsu + 1
　Next
　Application.ScreenUpdating = True
End Sub

お礼

完璧にできました。ありがとうございます。