マクロ編集プリントアウト

質問

Sheets("Sheet1").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet4").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Sheet1").Select
Range("A9").Select

Sheets("Sheet1").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet4").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Sheet1").Select
Range("A15").Select

これで２回プリントアウトされていることになります。
６行ずつ下方にデータが続いています。
データ行数は常に変化します。

dim i as long
　for i = 3 to 99 step 6
　　if worksheets("Sheet1").cells(i, "A") = "" then
　　　worksheets("Sheet2").range("A3:H8").value = worksheets("Sheet1").cells(i - 6, "A").resize(6, 8).value

　　end if
　next i

を使用してうまくまとめることはできるでしょうか？

回答No.1

keithin · ベストアンサー

sub macro1r1()
　dim i as long
　for i = 3 to 10000 step 6
　　if worksheets("Sheet1").cells(i, "A") = "" then
　　exit sub
　　end if
　　worksheets("Sheet2").range("A3:H8").value = worksheets("Sheet1").cells(i, "A").resize(6, 8).value
　　worksheets("Sheet4").printout
　next i
end sub