匹配列，如果匹配则返回特定值

Question

如何创建一个VBA代码，该代码将在不同的列中匹配2个参考数字并在第三列中返回数据。

参考编号位于A列（Sheet1）和A列（Sheet2）中 如果找到匹配项，那么工作表1的C列中的部门将被复制到工作表2的B列中的空白列中。

到目前为止，我编写的代码与两列中的数据都匹配，但只针对特定的单词。

Private Sub CommandButton1_Click()
a = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

If Worksheets("Sheet1").Cells(i, 3).Value = "North" Then

Worksheets("Sheet1").Rows(i).Copy
Worksheets("sheet2").Activate
b = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("sheet2").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Sheet1").Activate

End If
Next
 Application.CutCopyMode = False
 ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Select

 End Sub

Answer 1

您不需要VBA：Juse使用VLOOKUP

---

请参阅H列中使用的公式