Question

我正在尝试在VBA中使用vlookup。但是，它遇到了1004错误。有人可以帮我吗？谢谢！

Sub lookup()

Dim i3 As Long

For i3 = 2 To 30

If IsError(Application.WorksheetFunction.VLookup(Sheets("Consolidate").Cells(i3, 2), Sheets("Group").Range("E2:E30"), 1, False)) Then

Sheets("Cosolidate").Cells(i3, 3).Value = "New"

End If

Next

End Sub

Answer 1

要允许不间断的错误，请替换...

If IsError(Application.WorksheetFunction.VLookup( . . .

使用

If IsError(Application.VLookup( . . .

VBA Vlookup错误1004

1 个答案: