【マクロ】３つのエクセルブックから１つエクセルブックにお客様番号をまとたい

タイトルの件について質問です。

下記画像をご覧ください。


３つのエクエルブックにお客様番号があります。
これを１つのブックにまとめたいのです。

件数は日によって、違います。１～５０件位あります。
お客様番号を全て違います。


イメージは３つのセクションのお客様番号を１つのエクセルブックに
まとめる感じです。

これをマクロで１発でやりたいと考えています。
コード分かる方いましたら、ご教授の程、宜しくお願いいたします。

質問者からの補足コメント

• ご連絡ありがとうございます。問合せに対しては下記のとおりです。
  ヒントであれば、教えて頂けると幸いです。
  
  1.フォルダは違うフォルダにあります。
  
  2.３つのシートのブック名は下記のとおりです
  Sheet1⇒あ
  Sheet2⇒い
  Sheet3⇒う
  
  ３Sheet4⇒え

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/12/08 20:59

No.2 回答者： tatsumaru77 回答日時： 2022/12/08 22:30

以下のマクロを標準モジュールに登録してください。

Const Folder1 As String = "D:\goo\data8\aaa1"
Const Folder2 As String = "D:\goo\data8\aaa2"
Const Folder3 As String = "D:\goo\data8\aaa3"
は、それぞれ、ブック名「あ、い、う」を格納してあるフォルダ名です。
あなたの環境にあわせて適切に設定してください。
------------------------------------------------------
Option Explicit
Const Folder1 As String = "D:\goo\data8\aaa1"
Const Folder2 As String = "D:\goo\data8\aaa2"
Const Folder3 As String = "D:\goo\data8\aaa3"
Dim ms As Worksheet
Dim mrow As Long
Public Sub お客様番号まとめ()
Set ms = Worksheets("Sheet4")
ms.Cells.ClearContents
ms.Cells(1, "A").Value = "お客様番号"
mrow = 2
Call matome(Folder1 & "\" & "あ.xlsx", "Sheet1")
Call matome(Folder2 & "\" & "い.xlsx", "Sheet2")
Call matome(Folder3 & "\" & "う.xlsx", "Sheet3")

MsgBox ("完了")
End Sub
Private Sub matome(ByVal book_name As String, ByVal sheet_name As String)
Dim wb As Workbook
Dim ws As Worksheet
Dim wrow As Long
Dim maxrow As Long
Set wb = Workbooks.Open(book_name)
Set ws = wb.Worksheets(sheet_name)
maxrow = ws.Cells(Rows.Count, "A").End(xlUp).Row
For wrow = 2 To maxrow
ms.Cells(mrow, "A").Value = ws.Cells(wrow, "A").Value
mrow = mrow + 1
Next
wb.Close
End Sub

No.1 回答者： tatsumaru77 回答日時： 2022/12/08 08:33

補足要求です。

１．３つのexcelブックは同じフォルダ内にありますか。

２．３つのexcelブックのブック名は何ですか。（拡張子も含めて補足してください）

３．３つのexcelブックのシート名は、以下のようになっていますが、間違いないですか。
①１番目のブックのシート名：Sheet1
②２番目のブックのシート名：Sheet2
③３番目のブックのシート名：Sheet3

４．まとめ先のブックのシート名は何でしょうか。