在隨機列表中查找特定名稱

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 

希望這有助於！