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

Excel VBA“查找”命令

1 个答案: