VBA 改ページ（結合有り）

Question

実現したいこと

E列の内容によって改ページをする

前提![イメージ説明]

VBAにて画像①を画像②のようにしたいです。
E列の3行目から値がある場合に改ページをすることは可能でしょうか。
E列は結合されてる場合があったりなかったりで行数は200ぐらいあります。
宜しくお願い致します。

Answer 1

一つの例になります。最終行が印刷範囲になるか不明なため確認願います。

Option Explicit

Sub Macro1()

    Dim i As Long
    Dim LastRow As Long
    
    LastRow = Range("A" & Rows.Count).End(xlUp).Row

    For i = 3 To LastRow
        If Cells(i, 5).MergeCells = False Then
            ActiveSheet.HPageBreaks.Add Before:=Cells(i, 5)
        Else
            ActiveSheet.HPageBreaks.Add Before:=Cells(i, 5).MergeArea
        End If
    Next i
    
End Sub

Comments

[gajumaru6]

思い描いていた通りに作動致しました。
有難う御座います。

[doyuma]

解決できて良かったです。