VBA如何匹配单元格与相邻单元格的范围和返回值？

Question

对不起我缺乏编码语言，我只是进入vba编码。 我有一个制造商（名称）列表，上面有联系方式，我希望在选择制造商时自动在“ SPECSHEET”上填写这些信息。

工作表“ SPECSHEET”是完全从宏创建的。

工作表“联系人”在A列中有一个名称列表，在C列中有一个电话号码

工作表“ DATASHEET”包含有关每个灯具的信息。

我成功显示了正确的制造商名称：

Worksheets("SPECSHEET").Cells(Company, 5).Value = Worksheets("DATASHEET").Cells(1, 5).Value

但我喜欢下面显示电话号码的行：

If Worksheets("SPECSHEET").Cells(3, 4).Value = Worksheets("CONTACT").Range(A:A).Value Then
Worksheets("SPECSHEET").Cells(3, 5).Value = Worksheets("CONTACT").Cells(B "name adjacent to the matched name in column A) 
End If

谢谢你的帮助。

Answer 1

尝试这个：

Dim t
t = Application.Match(Worksheets("SPECSHEET").Cells(3, 4).Value, Worksheets("CONTACT").Range("A:A"), 0)
If Not IsError(t) Then
    Worksheets("SPECSHEET").Cells(3, 5).Value = Worksheets("CONTACT").Range("B" & t)
Else
    Worksheets("SPECSHEET").Cells(3, 5).Value = "Not Found"
End If

它使用工作表函数MATCH（）查找行，然后返回该行的B列中的值。 如果找不到，则返回Not Found 。