|
にっさん さん、こんにちわ。
>表の中のコードを読み込み、同じコードごとに印刷範囲を指定したいのです。
>例えば、
> 1行目 A
> 2行目 A
> 3行目 B
> 4行目 C
> 5行目 C
> 6行目 C
> 7行目 D
>なら、1,2行目、3行目、4,5,6行目、7行目で分けたいという感じです。
===中略===
>なにかほかにいい方法はないでしょうか?
ページを変えたいだけならば、手動改ページを入れる方法もあります。
Sub test()
Dim RR As Long, Rmax As Long, ws As Worksheet
Set ws = ActiveWorkbook.ActiveSheet
'最下行判定
With ws.UsedRange
Rmax = .Cells(.Count).Row
End With
'改ページ挿入位置検索(コードがB列の例)
With ws
'改ページ位置を何度も計算することになるので止めておくと処理が速くなる
.DisplayPageBreaks = False
For RR = 2 To Rmax
If .Cells(RR, 2).Value <> .Cells(RR - 1, 2).Value Then
.HPageBreaks.Add .Cells(RR, 2)
End If
Next
.DisplayPageBreaks = True
End With
End Sub
こんな感じです。
|
|