在随机列表中查找特定名称

Question

我搜索了许多不同的问题和答案，但找不到我要找的东西。 我有一张数据，在E列中有一长串名称，在F列中有一个与名称对应的值。我想要做的是搜索这个长列表中的特定名称，然后返回相应的值并将其复制到另一张表。

我的问题是名称列表和名称顺序确实会根据测试完成而改变，但我的搜索条件将始终相同，最多可搜索150个名称。

非常感谢，如果这是在

之前发布的，那就很抱歉

Answer 1

这应该做你想要的：

Private Sub findAndCopy()
Dim names As Range
Dim nameToFind As String
Dim sheetName As Worksheet
Dim cellToCopyInto As Range

'Set these to your actual values
nameToFind = "John"
Set sheetName = Worksheets("Sheet1")
Set cellToCopyInto = Worksheets("Sheet2").Range("A1:A1")

Set names = Range("E1:E150").Find(nameToFind, , xlValues, xlWhole)

cellToCopyInto.Value = names.Offset(0, 1).Value

End Sub

希望这有帮助！