[[20250703143413]]　『改ページの自動化』（北の熊）　ページの最後に飛ぶ

『改ページの自動化』（北の熊）

Ａ４サイズ用紙　横

印刷時、自動で、支店毎に印刷されるようにしたいのですが
改ページを自分で毎回調整するのがつらい為、自動で改ページが
入るようにする方法をご教授頂けないでしょうか。。

下記図　印刷ボタンを押したら　東京支店で１枚、新潟で１枚、徳島で１枚
のように印刷したいです。実際には、もっと支店があります。
支店毎に改ページが入るようにしたいです。

例）

       A          B    　　   C    　　　　　 D 
1   支店コード 支店名　　　商品名　　　　　 発送数
2     14       東京支店　　ボールペン　      10
3     14　　　 東京支店　　万年筆            25
4     14　　　 東京支店　　鉛筆              20
5     17       新潟支店　　シャープペン      15
6     17　　　 新潟支店　　ボールペン        10
7     21　　　 徳島支店　　シャープペン      40
8     21　　　 徳島支店　　ボールペン        10
9     21　　　 徳島支店　　鉛筆              35

ネットで検索をしたのですが答えにたどりつけませんでした。。

申し訳ありません。。教えてください。

＜使用 Excel：Excel2021、使用 OS：Windows11 ＞

 Sub 支店ごとに改ページ挿入()
    Dim i As Long
    Dim 最終行 As Long
    Dim ws As Worksheet

    Set ws = ActiveSheet
    ws.ResetAllPageBreaks  ' 既存の改ページをリセット

    最終行 = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row  ' A列（支店コード）の最終行

    For i = 2 To 最終行 - 1
        If ws.Cells(i, 1).Value <> ws.Cells(i + 1, 1).Value Then
            ws.HPageBreaks.Add Before:=ws.Cells(i + 1, 1)
        End If
    Next i
End Sub

（パクリ） 2025/07/03(木) 17:10:34

凄いです。。
有難うございます。実現できました！
今回を機にVBA勉強します！
（北の熊） 2025/07/03(木) 19:35:09

コメント返信：

[ 一覧(最新更新順) ]

[[20250703143413]] 『改ページの自動化』（北の熊） ページの最後に飛ぶ

[[20250703143413]]　『改ページの自動化』（北の熊）　ページの最後に飛ぶ