2011/11/21(月)自動改ページ

プログラム

ある列の値が変わるタイミングで改ページを入れるマクロ

Sub 自動改ページ()
' 1番目の名前を選択（今回はB2）
' activecellから始めるならコメントアウト
Cells(2, 2).Activate

lastdata = ActiveCell.Value
ActiveSheet.ResetAllPageBreaks

Do
If lastdata <> ActiveCell.Value Then
ActiveSheet.HPageBreaks.Add Before:=ActiveCell
lastdata = ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Loop While ActiveCell.Value <> ""
End Sub

検索用

[excel] [エクセル] [macro] [マクロ] [vba] [改ページ]