VLOOKUP区域问题

Sub pipei()
Dim a As Range
Dim b As Single
b = Worksheets("Sheet1").Cells(10, 1).End(xlUp).Row
Worksheets("Sheet1").Rows("1:1").Select
Selection.AutoFilter field:=1, Criteria1:="<>"
Set a = Worksheets("Sheet1").Range(Cells(1, 1), Cells(b, 2))
Worksheets("Sheet2").Cells(2, 2).Value = Application.WorksheetFunction.VLookup(Worksheets("Sheet2").Cells(2, 1), a, 2, 0)
End Sub

看看这段程序有什么问题，为什么把区域赋值给a以后，就不能进行VLookup呢？如果把a的值复制到SHEET里面，再进行VLLOKUP就可以，高手们，帮帮忙。

Application.VLookup(Worksheets("Sheet2").Cells(2, 1), a, 2, 0)
这样?

怎么就沉下去了
求高手帮忙啊

lz程序写的好乱啊。。是不误入歧道了啊。。。说说你先想实现什么功能？

我怎么测试通过。。

不知为啥，用你的工作簿就不行。。
新建个就可以