Sub 集計変換処理()
　 　Dim パス As String, パス一覧, 読み込まれたデータ As Dictonary, 店舗単位 As Dictionary

　 　フォルダ指定 パス
　 　ファイル一覧作成 パス一覧, パス
　 　ファイル読み込み 読み込まれたデータ, パス一覧
　 　集計処理 店舗単位, 読み込まれたデータ
　 　表変換 シート1, 店舗単位
　 　装飾処理 シート1
　 　印刷設定 シート1
　 　印刷プレビュー シート1
　 　保存確認
End Sub


わかりやすい（うっとり