EXCEL 改ページ自動挿入方法を教えてください。

EXCELで「改ページ」をデータが変る都度 自動的に挿入する方法はありますか？
ハンドでいちいち設定するのが非常に手間です。
ご存知の方、是非教えてください。
例 <データ>
１１１
１１１　←この行で改ページ自動挿入
２２２
２２２　←この行で改ページ自動挿入
３３３　←この行で改ページ自動挿入
４４４　←この行で改ページ自動挿入

No.2 ベストアンサー 回答者： imogasi 回答日時： 2002/09/13 14:53

関数式では、セルの挿入、削除、改行の挿入、削除などは出来ないようです。

ＶＢＡになれば、オフラインバッチ処理の定番である、「キー
（例えば所属部）が変われば、改ページする」のは,しょっちゅう行われることです。サンプルを載せます。
Sub test01()
ma = Mid(Cells(1, 1), 1, 1)
For i = 1 To 10
　　n = Cells(i, 1).Value
　　a = Mid(n, 1, 1)
　If a <> ma Then
　　Worksheets("sheet1").Rows(i).PageBreak = True
　End If
p01:
ma = a
Next i
End Sub
マクロの記録はやや、ややこしいですが骨子は上記の通り。

この回答へのお礼

ありがとうございました。
ばっちりできました。

お礼日時：2002/09/13 15:05

No.1 回答者： ShadowMoon 回答日時： 2002/09/13 14:08

当方はExcel2000ですけど、VBAであれば可能ではないかと思います。

例えば、A2からデータが入っているとして、簡単なプログラム例ですが、
Sub 改ページの挿入()
Dim chkData
Dim i
chkData = Range("A2").Value
For i = 3 To 65535
If Range("A" & i).Value = "" Then
Exit For
End If
If Range("A" & i).Value <> chkData Then
Rows(i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
chkData = Range("A" & i).Value
End If
Next i
End Sub

Sub 改ページの削除()
ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
End Sub

表示メニューの改ページで、実行結果をご確認ください。
ご参考になれば幸いです。m(__)m