エクセルにおいて、行ごとに別ファイルを作成

質問

エクセル AAA.xls の、シート aaa のデータが851行まであります。
（1行目は名前や列名などのデータです）

このデータを複数のエクセルファイルに、

2～171行目までは　01.xls
172～341行目までは　02.xls
342～511行目までは　03.xls
512～681行目までは　04.xls
682～851行目までは　05.xls

のように分けて保存したいです。
さらに、週毎に シートaaa のデータは更新されるため、
B～F.xls への保存も、前月分を残したまま追記していく必要があります。
(たとえば、01.xls を開くと、12月1週目のデータの後に、12月2週目のデータが
追記される・・・　という操作を組み込みたいです)

こういった作業をするためのマクロは、実際にどのように書けばよいのか、
ご教示ください。

非常に複雑なマクロになってしまうかもしれませんが、
どうぞよろしくお願いいたします。

回答No.1

m_and_dmp

169行ごとに別ファイルを作成するのは、つぎのコードでできます。
（吟味していないので少し荒っぽいですが）

Sub TEST()
Workbooks.Open "H:\Temp\AAA.xls"
Worksheets("aaa").Select
With Worksheets("aaa")
For i = 1 To 5
J = (i - 1) * 170 + 2
K = J + 169
Range(Rows(J), Rows(K)).Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add Template:="ブック"
Worksheets("Sheet1").Activate
Cells.Select
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Application.CutCopyMode = False
FN = "H:\Temp\" & i & ".xls"
ActiveWorkbook.SaveAs Filename:=FN, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Next i
End With
End Sub

＞週毎に シートaaa のデータは更新されるため、B～F.xls への保存も．．．
については、B～F.xlsなど、分からないところがありますので、回答できません。