VBA：匹配来自工作簿A＆amp;的列。 B，将另一列从工作簿A返回到工作簿B.

Question

我有2本工作簿A＆amp; B.工作簿已经定义。

我的部分代码存在问题，我正在尝试比较工作簿A中的A列和工作簿B中的D列。如果匹配，那么我想将相应的列B复制到工作簿E列。

我开始编写以下代码，但不确定如何进一步比较列和复制，因为我对VBA还不熟悉。

Dim strRangeToCheckA As Range
Dim strRangeToCheckB As Range
Dim strRangeToCheckC As Variant

Set strRangeToCheckA = RSC.Sheets("Balance").Range("A:G")
Set strRangeToCheckB = Brostacc.Sheets("Stock").Range("A:U")
Set strRangeToCheckC = Brostacc.Sheets("Stock").Range("U:U")

If Application.VLookup(LookFor, strRangeToCheckA, 2, False) = Application.VLookup(LookFor, strRangeToCheckB, 1, False) Then
  strRangeToCheckC = Application.VLookup(LookFor, strRangeToCheckA, 7, False)
End If