教えて!gooにおける不適切な投稿への対応について

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

gooドクター

A 回答 (2件)

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


VBAになれば、オフラインバッチ処理の定番である、「キー
(例えば所属部)が変われば、改ページする」のは,しょっちゅう行われることです。サンプルを載せます。
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
マクロの記録はやや、ややこしいですが骨子は上記の通り。
    • good
    • 1
この回答へのお礼

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

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

当方は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
    • good
    • 3

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング