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函数为您完成这项工作。