VBA超初心者です VBAで68行毎に一気に改ページする方法を教えてください

Excel98閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

1

1人がナイス!しています

ThanksImg質問者からのお礼コメント

For i = 69 To Cells(Rows.Count, "K").End(xlUp).Row Step 67 Cells(i, 1).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell i = i + 1 Next i A→K列に変更し最終ページで希望通り動作をストップ♪ いつもありがとうございます♪

お礼日時:5/23 15:02

その他の回答(2件)

1

以下のマクロでやってみて下さい。 Sub M68() Dim i As Long For i = 69 To 67 * 3 '←*3が繰り返し回数 Cells(i, 1).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell i = i + 67 Next i End Sub

1人がナイス!しています

0

>というVBAを幾つかコピーして実行してみましたがエラ >ーか動作しないかのどちらかでした データのある行が何行目なのかを調べた上での処理になってますか?