サンプルのコードをご紹介します。 注意点は下記の通りです。 ・「book*.xls」の*は、１から始まる連番であること、また半角であること。 　2や3から始まる場合、また1・2・3・5などの場合はうまく処理できません。 ・集計BOOKのシート名も１から始まる連番であること、また半角であること。 ・格納フォルダ名やファイル名（「book」部分）が変更になる場合は 　変数にセットする文字列も変更して下さい。 指定された対象フォルダーを検索してファイル名を取得し処理を行ったり 集計BOOKのシートも自動でその都度自由に作成したりすることもできますが 質問者さんはご自分で勉強しながらという姿勢をお持ちのようでしたので あえて「ベタ」なマクロにしています。 今後、少しずつ覚えながら工夫していって下さい。 では、頑張って下さい！ ※※回答内容確認画面では、ソースコードのインデントがうまく表示されず 　　左揃えになっています。（恐らく確認後もそうなると思われる） 　　見にくいかも知れませんが、コピペ後に適切にインデント設定をして下さい。 Sub Sample_Macro() ' ' フォルダー内のBookファイルを順に開き、「結果」シートの内容を取得 ' 当Bookファイル（集計）のシートにその内容を展開する ' ' 変数の定義 ' -------------------------------対象フォルダー設定用変数 Dim FolderName As String ' -------------------------------対象ファイル設定用変数１（「book」部分） Dim Filename As String ' -------------------------------ループ用変数（兼「book*.xls」の「*」部分用） Dim FileCounter As Integer ' -------------------------------対象ファイル設定用変数２（「book*.xls」） Dim TargetName As String ' ' -------------------------------処理対象フォルダー名をセット（末尾に「\」付加） FolderName = "D:\A\" ' -------------------------------処理対象ファイル名（前半固定部分）をセット Filename = "book" ' -------------------------------ループ用カウンターを初期化 FileCounter = 0 ' --------------------------------------------------画面更新OFF Application.ScreenUpdating = False ' --------------------------------------------------警告画面表示OFF Application.DisplayAlerts = False ' --------------------------------------------------ループ処理開始 Do FileCounter = FileCounter + 1 ' --------------------------------------------------対象ファイル名の組み立て TargetName = Filename & FileCounter & ".xls" ' --------------------------------------------------対象ファイルの存在チェック ' 　　　　　　　　　　　　　　　　　　　　　　　　　　存在しなければ下記の処理結果表示処理へ If Dir(TargetName) <> "" Then ' ************************************************** ' 　　対象ファイルが存在するためコピー処理開始 ' ************************************************** ' ----------------------------------------------対象ファイルをオープン Workbooks.Open FolderName & TargetName ' ----------------------------------------------対象シートを選択 Sheets("結果").Select ' ----------------------------------------------対象シート全てを選択しコピー Cells.Select Selection.Copy ' ----------------------------------------------集計用ファイルを選択 Windows("集計.xls").Activate ' ----------------------------------------------貼り付け用シートを選択（「book*.xls」の「*」部分） Sheets(FileCounter).Select ' ----------------------------------------------コピー内容を貼り付け Cells.Select ActiveSheet.Paste ' ----------------------------------------------対象ファイルをクローズ Workbooks(TargetName).Close Else ' ************************************************** ' 　　対象ファイルが存在しないため ' 　　終了メッセージを表示し処理を終了 ' ************************************************** ' ----------------------------------------------ループ件数をチェック If FileCounter > 0 Then ' ----------------------------------------------１件以上の処理が実施された場合は、処理件数を表示 MsgBox FileCounter - 1 & " ファイルの処理が完了しました" Else ' ----------------------------------------------処理が実施さなかった場合は、対象ファイルが存在しないことを表示 MsgBox "対象ファイルが存在しません" End If ' ----------------------------------------------ループ脱出 Exit Do End If Loop ' --------------------------------------------------画面更新OFF Application.ScreenUpdating = True ' --------------------------------------------------警告画面表示OFF Application.DisplayAlerts = True End Sub