Excelのマクロに関する質問です。良い回答は、450ポイント差し上げます。

はっきり言って簡単に出来ますが、450ポイント(円)じゃ割が合わないので回答は難しいです。すいません。

でも、この（↓）へんとかを見て地道に勉強すれば出来ますよ。頑張ってください。

http://officetanaka.net/excel/vba/file/index.htm

リストは固定、ということからフォルダを検索するのではなく、

集計ファイルにあるリストに対して該当するファイルを開いて集計する

処理にしました。

リスト上のファイルがない場合、ログに出力しています。

的外れでしたらポイント不要です。

Option Explicit

'// 集計対象フォルダ：以下の二つのファイルは集計フォルダ下に置きます。
'--------------------------------------------------------
Const 集計フォルダ = "C:\Data"

'// 集計ファイルは事前にあることを想定しています。
'--------------------------------------------------------
Const 集計ファイル名 = "【集計ブック】.xls"

'// ログファイルはない場合自動作成します。
'--------------------------------------------------------
Const ログファイル名 = "エラーログ.txt"

'---------------------------------
Sub 集計()
'---------------------------------
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Dim dstFilePath As String
    dstFilePath = 集計フォルダ & "\" & 集計ファイル名
    
'// 集計ファイルの確認
    If fso.FileExists(dstFilePath) = False Then
        MsgBox dstFilePath & "がありません。"
        Exit Sub
    End If
    
    Dim dstWB As Workbook
    Set dstWB = Workbooks.Open(dstFilePath)
    
    Dim dstWS As Worksheet
    Set dstWS = dstWB.Worksheets("Sheet1")
    
    Dim lastRow As Long
    lastRow = dstWS.Range("A" & Rows.Count).End(xlUp).Row
    
'// ログファイルを追記でオープン
    Dim logFilePath As String
    logFilePath = 集計フォルダ & "\" & ログファイル名
    
    Dim logFile As Object
    Set logFile = fso.OpenTextFile(logFilePath, 8, True)
    
    Dim srcFilePath As String
    Dim r As Long
    For r = 4 To lastRow
        srcFilePath = 集計フォルダ & "\【" & dstWS.Cells(r, "A").Value & "ブック】.xls"
        If fso.FileExists(srcFilePath) = True Then
'// データの転記
            With Workbooks.Open(srcFilePath)
                dstWS.Range("B" & r).Resize(1, 3).Interior.ColorIndex = 0
                dstWS.Range("B" & r).Resize(1, 3).Value = .Worksheets("Sheet1").Range("A4:C4").Value
                .Close
            End With
        Else
'// ログの出力
     '// ファイルがないセルを着色：不要な場合は次行を削除
            dstWS.Range("B" & r).Resize(1, 3).Interior.ColorIndex = 38
            logFile.WriteLine Application.Text(Now(), "YYYY-MM-DD HH:MM:SS") & ": " & srcFilePath & " がありません"
        End If
    Next
    
'// 終了処理
    logFile.Close
    
    dstWB.Save
    dstWB.Close
End Sub

皆さんの考えをまとめてみました。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

http://officetanaka.net/excel/vba/file/index.htm

で地道に勉強する。

集計ファイルにあるリストに対して該当するファイルを開いて集計する

処理にする。

リスト上のファイルがない場合、ログに出力する

ログは集計ブックがあるところに エラーログ.txtとして出力される。

存在しない都道府県名のみ出力される。

こんなかんじです。450ポイントくれたら嬉しいです。