エクセルVBAについて質問です。【良回答500～250ポイント】

デバッグしてません。あしからず。

Sub Macro1()
    Dim fso, dataFilesB, fA, fB, tmp
    ' ファイルを扱うオブジェクトを取得する
    Set fso = CreateObject("Scripting.FileSystemObject")
    ' あらかじめBフォルダのファイル一覧を取得しておく
    Set dataFilesB = fso.GetFolder(dataPathB).Files
    ' Aフォルダのファイル毎に繰り返す
    For Each fA In fso.GetFolder(dataPathA).Files
        For Each fB In dataFilesB
            ' 一つ一つBフォルダのファイルと比較する 
            If nearly(fA.Name, fB.Name) Then
                ' おおよそ同じファイル名なら値をコピーして保存する
                With Workbooks.Open(fB.Path)
                    tmp = .ActiveSheet.Range("A1").Value
                    .Close
                End With
                With Workbooks.Open(fA.Path)
                    .ActiveSheet.Range("A1").Value = tmp
                    .Save
                End With
                Exit For
            End If
        Next fB
    Next fA
End Sub

' 比較関数：適宜作ってください
Function nearly(nameA, nameB)
    If nameA.left(10) = nameB.left(10) Then
        nearly = True
    Else
        nearly = Fales
    End If
End Function

ファイルは毎回開く必要はないですよね？

一致した時だけ開いてコピーします。

本当はファイルをソートしておくとか比較回数を減らす方法がありますが、そこまではやりませんでした。

忘れてました。参考リンクです。

http://home.att.ne.jp/zeta/gen/excel/c04p24.htm

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