Excel 改ページのマクロ

質問

同シート内で改ページを設定するマクロを、ここで教えてもらったのですが、改ページを判断するデータの列が関数(vlookup)で持ってきたデータの場合にうまく機能しません。下のマクロに手を加えれば可能でしょうか？

Sub Macro4()
Const col As String = "A"　'改ページを判断するデータの列名
Dim idx As Long
Dim sv
sv = Cells(1, col).Value
For idx = 1 To Cells(65536, col).End(xlUp).Row
　　If Cells(idx, col).Value <> sv Then
　　　　ActiveSheet.HPageBreaks.Add Before:=Rows(idx)
　　　　sv = Cells(idx, col).Value
　　End If
Next idx
End Sub

回答No.1

zap35 · ベストアンサー

http://oshiete1.goo.ne.jp/qa3685593.html

試しにVLOOKUP関数で検索した列で実行しましたが、ちゃんと動きますよ。するとVLOOKUP関数が悪いのではなく、データの問題と考える方が自然でしょう。

数値の小数点以下が異なっているけれど丸めて表示しているので、「きちんと動かない」のようなことはないでしょうか？　また日付、時刻のように実際の値（シリアル値）と表示が異なるデータということでもありませんか？

もし「実際の値」と「表示された値」が異なるならマクロを以下に変更する手もありますが…

Sub Macro4()
Const col As String = "A" '改ページを判断するデータの列名
Dim idx As Long
Dim sv
　sv = Cells(1, col).Text
　For idx = 1 To Cells(65536, col).End(xlUp).Row
　　If Cells(idx, col).Text <> sv Then
　　　　ActiveSheet.HPageBreaks.Add Before:=Rows(idx)
　　　　sv = Cells(idx, col).Text
　　End If
　Next idx
End Sub

ついでに改ページを全て削除するマクロも書いておきます
Sub Macro5()
　Do While ActiveSheet.HPageBreaks.Count > 0
　　ActiveSheet.HPageBreaks(1).Delete
　Loop
End Sub

お礼

できました。ありがとうございます。