同じ形式のファイルを一つのエクセルファイルにまとめて、データベースとして使う。あるいはアクセスにエクスポートなんてことをしたい場合もあります。 こんなときは、一つのワークシートにまとめちゃうマクロを作るのが便利です。 同一フォルダ内にtenkiフォルダを作成して、そこにまとめたいエクセルファイルを保存して、マクロを実行するだけ。楽勝です。 '---tenkiフォルダのすべてのブックを順番にひらいて転記する Sub 複数のファイルを一つに() Dim theName As String 'ブック名の保存用 Dim theDir As String 'パスの保存用 Dim theBook As Workbook '開いたブックの保存用 Dim flg As Boolean '1件目かどうかの識別用 flg = True Application.ScreenUpdating = False '現