Excel VBA比较Sheet 1＆2 Column A中的两个列表，然后合并表格中匹配的相邻单元格

我有两个信息列表，每个列表是不同的长度，只有一列将有匹配（列A）。 我在工作表2中有一个清单，需要在工作表1中find匹配的结果，然后将来自工作表2和工作表1的相邻信息合并到工作表3中。

我在世界各地寻找接近我需要的东西，但似乎无法find任何有效的东西。 我写了一些代码，但它只返回一个结果。

Sub search() Dim srch For srch = 1 To Range("A" & Rows.Count).End(xlUp).Row If Sheets("Sheet2").Cells(srch) = Sheets("Sheet1").Cells(srch) Then Sheets("Sheet3").Cells(, "a") = Sheets("Sheet2").Cells(srch, "a") Sheets("Sheet3").Cells(, "b") = Sheets("Sheet2").Cells(srch, "b") Sheets("Sheet3").Cells(, "c") = Sheets("Sheet2").Cells(srch, "c") Sheets("Sheet3").Cells(, "d") = Sheets("Sheet2").Cells(srch, "d") Sheets("Sheet3").Cells(, "e") = Sheets("Sheet2").Cells(srch, "e") Sheets("Sheet3").Cells(, "f") = Sheets("Sheet1").Cells(srch, "a") Sheets("Sheet3").Cells(, "g") = Sheets("Sheet1").Cells(srch, "b") Sheets("Sheet3").Cells(, "h") = Sheets("Sheet1").Cells(srch, "c") Sheets("Sheet3").Cells(, "i") = Sheets("Sheet1").Cells(srch, "d") End If Next End Sub 

任何人都可以帮助我，甚至指出我在正确的方向，我可以改变代码，以适应我的需求。

感谢您的帮助。