Public Sub ex()
Dim bSh As Worksheet, aSh As Worksheet
Dim ARng As Range, BRng As Range
mPath = ThisWorkbook.Path & "\" '設定路徑為和C檔案同路徑
bData = "B檔案.xlsx" '設定B檔案的完整名稱
aData = "A檔案.xlsx" '設定A檔案的完整名稱
Set aSh = Workbooks.Open(mPath & aData).Worksheets("FMC") '設定aSh是A檔案的FMC工作表物件,打開A檔案
Set bSh = Workbooks.Open(mPath & bData).Worksheets("FMC") '設定bSh是B檔案的FMC工作表物件,打開B檔案
For Each ARng In aSh.Range("B7:B" & aSh.Cells(65535, 2).End(xlUp).Row) 'ARng為A檔案.Worksheets("FMC")的B欄
For Each BRng In bSh.Range("B7:B" & bSh.Cells(65535, 2).End(xlUp).Row) ''BRng為B檔案.Worksheets("FMC")的B欄
If ARng.Value = BRng.Value Then
BRng.Offset(, 1) = ARng.Offset(, 1) 'C欄
BRng.Offset(, 2) = ARng.Offset(, 2) 'D欄
BRng.Offset(, 4) = ARng.Offset(, 4) 'F欄
BRng.Offset(, 5) = ARng.Offset(, 5) 'G欄
End If
Next
Next
Workbooks(bData).Close True '關閉B檔案
Workbooks(aData).Close True '關閉A檔案
End Sub
文章標籤
全站熱搜
