Question

我使用下面的代码，我收到错误2042

Public Sub Test()

Dim Dat As Variant
For i = 1 To 10
    LV = "10000100"
    Dat = Application.VLookup(LV, Sheets("Sheet2").Range("A2:B20"), 2, False)
Next

End Sub

查找数组，我保留另一张（Sheet2）

10000100    1/2/2017
10000110    1/2/2017
10000220    2/2/2017
10000230    4/2/2017
10000140    3/4/2017
10000350    1/2/2017
10000160    1/2/2017
10000170    5/2/2017
10000180    1/2/2017
10000190    1/2/2017
10000200    1/2/2017

Answer 1

如果您正在查看某个数字，那么当您查找字符串时，您的代码会出现不匹配的情况 - 如果您尝试，会发生什么：

Public Sub Test()
Dim Dat As Variant
Dim LV As Long
For i = 1 To 10
LV = 10000100
Dat = Application.VLookup(LV, Sheets("Sheet2").Range("A2:B20"), 2, False)
Next
End Sub

Vlookup无法正常工作

1 个答案: