Excel VBA“查找”命令

Question

我需要從一個單元格中檢索一個值，然后在命名范圍（GasDip）中找到該值，並將該值從找到的單元格右側的單元格返回到當前工作表。 這就是我所擁有的：

Dim GasDipVal As String
Dim DipAMount As Integer

GasDipVal = Range("gasdipamt").Value

Application.Goto Reference:="GASDIP"
Selection.Find(What:="GasDipval", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
    :=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Range("A1").Select
DipAMount = ActiveCell.Value
Application.Goto Reference:="DATE"
ActiveCell.Offset(1, 11).Range("A1").Select
ActiveCell.Value = DipAMount

到達“ Selection.Find”命令時，發生錯誤。 它不會識別“ GasDipValue”。如果我搜索放置在qutes中的靜態數字，它將起作用。

請幫忙！！ 提前致謝。

Answer 1

聽起來您可能可以使用VLOOKUP函數為您完成這項工作。