|
G-Luck さん こんにちは
ヒントありがとうございます。
やって見ましたが、私にはどうにもなりません。
>下記を参考にしてください。
>下記ページでは、取得していますが、設定も可能です。
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=22750;id=excel
>
>改ページは、表示>改ページプレビューでされるとわかりやすいですよ。
質問箱3に下記回答がありましたので、私にも一部変更して、つかえるのかと
思いトライしましたが、変更できません。
Sub test()
RR& = 2
With ActiveSheet
Do
If .Cells(RR&, 1).Value = "" Then Exit Do
If .Cells(RR& - 1, 1).Value <> .Cells(RR&, 1).Value Then
.HPageBreaks.Add before:=Cells(RR&, 1)
End If
RR& = RR& + 1
Loop
End With
End Sub
A列に値が入っていたら、改ページというようにしたいのですが。
A列
--------------------
1 ああ
2空白
3空白
--------------------
4いい ↑改ページ
5空白
6空白
7空白
-------------------
8うう ↑改ページ
9空白
|
|