【エクセルの印刷設定について】
エクセルを印刷する時に、空白の行までを1ページとして印刷したいです。
例えば
①名探偵コナン
②金田一少年の事件簿
(一行空白か二行空白)
③焼きたてジャパン
④食戟のソーマ
(一行空白か二行空白)
⑤ブリーチ
・
・
・
全部で1000行以上あります。
のようなエクセルシートがあったら
A4の紙に印刷した時に1ページ目に①②がのって
2ページ目に③④がのって、3ページ目に⑤がのって、4ページ目には…(以下略)としたいです。
グループごとの区切りは空白の行であらわされていますが、空白の行は一行or二行だったりします。
ひとグループずつ改ページプレビューで直すのは効率が悪いので、なんとかしたいです(><)よろしくお願いします…! 質問があればおっしゃってください。
VBA で改ページを入れていくの一番手っ取り早いと思います。
データはA列にあるとします。
空白は完全空白(関数等が入っていない)とします。
Option Explicit
‘
Sub Macro1()
Dim PageBreak As Range
‘
ActiveSheet.ResetAllPageBreaks
Set PageBreak = [A1]
‘
While PageBreak.Row <= Rows.Count Set PageBreak = PageBreak.End(xlDown) ' If PageBreak.Offset(-1) = "" Then ActiveSheet.HPageBreaks.Add PageBreak End If Wend End Sub
回答してくださりありがとうございました!挑戦してみます!!
VBA で改ページを入れていくの一番手っ取り早いと思います。
データはA列にあるとします。
空白は完全空白(関数等が入っていない)とします。
Option Explicit
‘
Sub Macro1()
Dim PageBreak As Range
‘
ActiveSheet.ResetAllPageBreaks
Set PageBreak = [A1]
‘
While PageBreak.Row <= Rows.Count Set PageBreak = PageBreak.End(xlDown) ' If PageBreak.Offset(-1) = "" Then ActiveSheet.HPageBreaks.Add PageBreak End If Wend End Sub