エクセルでの改ページ

質問

以下のような処理を行いたいと思っています。

A
B
C
D
A
B
D______________改ページを挿入したい
A
C______________一ページ目切り替わり
D

このような情報が数十ページにわたり続きます。
印刷を行った時に、各ページの終わりがDになるように設定したいと思っています。
なるべくページいっぱいに情報が入り、かつDでページが切り替わるようにしたいのです。
ABCDの情報はランダムに入るので特定の行ごとに改ページを行うことができません。
ページ数が多いことと、このような処理を何度も繰り返すことがあるので自動化して行いたいと思っています。
何か良いエクセルの操作方法、またはVBAの記述等がありましたらご教授願います。

回答No.2

okormazd · ベストアンサー

Sub test()

Set wb = Workbooks("Book1")
Set sh1 = wb.Sheets(1)

With sh1

rmin = 1 'データcellの最小行
rmax = 1000 'データcellの最大行
pnm = 20 '１ページ最大行数

r0 = rmin
c0 = 1 'データcellの列

r = r0
c = c0

n = 0
Do

dd = Cells(r, c)

While dd <> "D"
r = r + 1
If r > rmax Then Exit Sub
dd = Cells(r, c)
Wend

dr = r - r0

n = n + dr + 1
If n > pnm Then
r = r - dr
.HPageBreaks.Add Before:=.Cells(r, 1)
n = 0
End If

r = r + 1
r0 = r

Loop While r < rmax

End With

End Sub

これでどうですか。
データcellの最終行をデータ上から知る方法がありますか。未入力が無いデータ列とか。
自分の作業にあわせて、適当に変更してください。

お礼

回答ありがとうございます。
素晴らしいですね。仮のデータを作成しテストしてみましたが、見事に
私の望んでいる処理が実現できています。
おそらく実際のデータにも有効に処理が働くと思います。
また、未入力が無いデータ列は存在したと思います。仮にそれが
（1.F）（2.F）と最終行まで続いていた場合には、どのようなコードに
なるでしょうか。もしよろしければ教えてください。

回答No.4

okormazd

最大行を入力しなくてもよいようにしようとしたのですが、このままでも実際の最大行より大きい行ナンバーを余裕を持って指定（65000とか）しておけば支障ないでしょう。

お礼

そうですね。おかげさまで作業の効率が上がりそうです。
このたびはどうもありがとうございました。
大変助かりました。

回答No.3

okormazd

微修正
細かいことが気になるので、

初期データとして、
dd0="D"
として、
while文を
while dd<>dd0
にする。

回答No.1

okormazd

1.A,B,C,D は、どこかに入っているデータですか。
2.Dが現れるまでに１ページの最大行数を超えてしまうことは無いですか。
3.この並びの途中に未入力のセルはないですか。

補足

回答ありがとうございます。
説明を補足させていただきます。

1.ABCDはそれぞれ、下記のように現れます。
　各文字の間にある列の間隔は常に一定です。
　｜a｜b｜c｜d｜e｜
1 ｜()←（1.a）には直下にあるAのコードナンバーが入力されます。
2 ｜A
3 ｜　←Aの直下は空白です。
4 ｜()←こちらにもBのコードナンバーが入力されます。CDも同様です
5 ｜B
6 ｜
7 ｜()
8 ｜C
9 ｜
10｜()
11｜D
12｜

2.Dは1ページ中には少なくとも2回以上は必ず現れます。
3.上記のように空白のセルは存在します。
以上です。よろしくお願いします。