10/06/06 14:52:35
だから、７７行目ごとに改ページ入れたいんだろ
>>521の後半でわからない？まったくの初心者か？
その７７行ごとにデータ入れるマクロで、改ページも入れるようにすればいいだけなんだが
わからんようなら、Ａ列から1を探してその手前に改ページ入れるマクロ書いといてやる
Dim row
ActiveSheet.ResetAllPageBreaks
row = 1
Do
row = row + 1
If Cells(row, 1).Value = 1 Then
ActiveWindow.SelectedSheets.HPageBreaks.Add (Cells(row, 1))
End If
Loop Until Cells(row, 1).Value = ""
2007で作ってるけど、たぶん2002でも動くと思う
暗黙の型変換気持ち悪いとかいう突っ込み禁止