424 对象要求错误

Question

到目前为止我已经写了这篇文章，我的目标是在 D 列中找到值 ORDER31。如果满足此条件，我希望在同一行中找到相应的值，但从 C 列中，在这种情况下，我使用了 OFFSET() 并将该值放入一个名为 colC 的变量中。然后我希望使用这个值进行查找并提取一个我想分配给 newVal 的新值。然后我希望将此 newVal 分配给找到 ORDER31 的原始单元格。

我收到 424 object required 错误，我不确定哪里出错了？

 Sub illHack()

     Sheets("Data").Select
     Dim colC As String
     Dim newVal As String

     For Each r In Intersect(ActiveSheet.UsedRange, Range("D:D"))
         If r.Text = "ORDER31" Then
             colC = r.Offset(0, -1)
             newVal = Application.WorksheetFunction.VLookup(colC, Lookup.Range("I17:K22"), 2, False)
             r.Offset(0, 0) = newVal
         End If
     Next r

     Sheets("Control-Sheet").Select
End Sub

Answer 1

由于 Lookup 是选项卡名称而不是代码名称，因此您需要使用：

newVal = Application.WorksheetFunction.VLookup(colC, Worksheets("Lookup").Range("I17:K22"), 2, False)

424 对象要求错误

424 object required error

excel

vba

excel-formula