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

请原谅我缺乏编码语言，我只是进入vba编码。 我有一个制造商（名称）列表与联系方式的细节，我喜欢在select制造商时自动填写在“SPECSHEET”上。

工作表“SPECSHEET”完全由macros创build。

工作表“联系人”列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 。