明細シートを参照し、まとめシートを作成。
完成したまとめシートを後ろにコピーしていく。
Dim i As Long
With Sheets("★明細")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Sheets("★まとめ").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Cells(i, 7)
Range("G1") = .Cells(i, 1)
NextEnd With
【明細シート】
支払先ごとのデータ。
支払先名をシート名にする為、重複がある場合は新たにキーを作成する。
【まとめシート】
G1の数値を基にVLOOKUPでまとめシートを作成する。
シートコピー
↓
PDF出力
↓
シート削除