|
▼馬 さん:
ブックの構成が不明ですが、
ブックA.xlsx と ブックB.xlsx があり、それとは別にマクロブックがあるというコードです。
実行時には、ブックAもブックBも、あらかじめ開かれているということが前提。
もちろん、マクロ内で、この2つのブックを自動的に開いて処理することもできますが、
まずは、あらかじめ、ひらかれているということで。
マクロブックの標準モジュールに。
★印のところは、実際のものに直してください。
Sub Test()
Dim shA As Worksheet
Dim shB As Worksheet
Set shA = Workbooks("ブックA.xlsx").Sheets("Sheet1") '★
Set shB = Workbooks("ブックB.xlsx").Sheets("Sheet1") '★
With shB.Range("A2", shB.Range("A" & Rows.Count).End(xlUp)).Offset(, 5)
.Formula = "=IFERROR(VLOOKUP(A2," & shA.Range("A1").CurrentRegion.Address(External:=True) & ",3,FALSE),"""")"
.Value = .Value
End With
End Sub
|
|