2011/11/21(月)自動改ページ
ある列の値が変わるタイミングで改ページを入れるマクロ
Sub 自動改ページ()
' 1番目の名前を選択(今回はB2)
' activecellから始めるならコメントアウト
Cells(2, 2).Activate
lastdata = ActiveCell.Value
ActiveSheet.ResetAllPageBreaksDo
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] [改ページ]