Question

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

我到处寻找接近我需要的东西，但似乎找不到任何有用的东西。我写了一些代码，但它只返回一个结果。

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

任何人都可以帮助我，甚至指出我正确的方向，我可以更改代码以满足我的需求。

感谢您提供任何帮助。

Excel VBA比较工作表1和工作表中的两个列表2列A，然后将匹配的相邻单元格合并到工作表中

0 个答案: