调用VLOOKUP方法错误

阿树784533

各位老师，麻烦看一下我的代码有什么错误 总是提示失败，加了Resume也是一样

Sub test3()
vrng = SheetA.Range("B:H")                          '设定搜索范围
With Sheet1
   For i = 5 To Sheet1.UsedRange.Rows(5).End(xlToRight).Column - 2 Step 1        设定填充范围
   On Error Resume Next
   .Range(3, i) = WorksheetFunction.VLookup(.Range(5, i), vrng, 4, 0)                   取得值   
   Next i
End With
End Sub
把range换成cells也是不行
爆 me

ghostjiao

来个附件看看，range这么些肯定不行

grf1973

SheetA.Range("B:H")  是什么东东？

grf1973

应该是Sheets("A")？