Question

在寻找一些解决方案并尝试在Excel VBA中开发VLOOKUP函数的不同方法之后，我仍然收到相同的错误。

我有一张名为＆＃34; priceDATES＆＃34;的工作表我必须找到另一个工作表中每个日期的 id 。

id_date = Cells(cursor_fecha, 1).Value 
id_date = Application.WorksheetFunction.VLookup(id_date, _
    ThisWorkbook.Sheets("priceDATES").Range("A1:B500"), 2, False)

错误消息：

执行时间中的错误编号9 子记录超出间隔

Answer 1

尝试此程序并让我知道它是否有效：

Sub add_vlookup()
Dim i As Long
With Sheets("inserts")
    For i = 2 To .UsedRange.Rows.Count
        .Cells(i, 3).Formula = "=VLOOKUP(" & _
        .Cells(i, 1).Address & ",priceDATES!$A:$B,2,0)"
    Next
End With
End Sub

VLOOKUP错误代码9，子索引超出间隔

1 个答案: