Vlookup无法正常工作

我使用下面的代码，我得到错误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

如果你正在查看一个数字，那么你的代码有一个不匹配，因为你正在寻找一个string – 如果你尝试：

 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