VLookup 循环不起作用

Question

我正在尝试 VLookup，直到 A 列中的单元格为空并且它不工作并返回运行时错误“1004”无法获取 WorksheetFunction 类的 VLookup 属性。有什么帮助吗？或者有没有更好的循环可以使用。

Sub FindOldValue()
Dim oldvalue As String
Dim result As String
i = 2
j = 1
K = 2
l = 3

Do

oldvalue = Worksheets("Products").Cells(i, j) & Worksheets("Products").Cells(i, K) & "delete"
result = Application.WorksheetFunction.VLookup(oldvalue, Worksheets("Raw Delta").Range("A:H"), 7, 0)
Worksheets("Products").Cells(i, l) = result
i = i + 1
j = j + 1
K = K + 1

Loop Until Worksheets("Products").Cells(i, 1) = ""

End Sub

Answer 1

您是否尝试过仅在该行中使用 Application.Vlookup 而不是 Application.Worksheetfunction.vlookup

result = Application.WorksheetFunction.VLookup(oldvalue, Worksheets("Raw Delta").Range("A:H"), 7, 0)

?

把循环改成这样怎么样？

Do

oldvalue = Worksheets("Products").Cells(i, j) & Worksheets("Products").Cells(i, K) & "delete"
resultrow = Application.Match(oldvalue, Worksheets("Raw Delta").Columns(1), 0)
If Not IsError(resultrow) Then
    Worksheets("Products").Cells(i, l) = Worksheets("Raw Delta").Cells(resultrow,7).Value
End If
i = i + 1
j = j + 1
K = K + 1

Loop Until Worksheets("Products").Cells(i, 1) = ""