1

我有两个信息列表，每个列表的长度不同，只有一列有匹配项（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

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

感谢您在高级方面的任何帮助。

4

0 回答 0