Question

请高手指教这个VBA错在哪里？

请高手指教这个VBA错在哪里？Sub 查找引用()
Dim a%
For a = 1 To 250
Sheets("求带宽").Range("d" & a) = Application.WorksheetFunction.VLookup(Sheets("求带宽").Range("b" & a), Sheets("带宽记录").Range("c2:e312"), 3, 0)
Next
End Sub
'说明：当运行此VBA时，在D列1至250行自动显示查找结果

Answer 1

arr=Sheets("求带宽").[b1:B250].value

brr=Sheets("带宽记录").Range("c2:e312").value

Sheets("求带宽").[d1:d250]=application.vlookup(arr,brr,3,0)

追问

老师：你好！
感谢你对我提问的解答，但没有得到我想要的结果。请重新检查一下我的提问。

追答

1、你我代码的结果是一样的，我的代码更具效率
2、代码未得到你预想的结果，说明你的源码设计有误
3、没图没真相，真么搞？

追问

也就把“=VLOOKUP(A1,[工作簿1.xlsx]Sheet1!$A$1:$F$127,3,0)”改定成VBA，怎样编写，而且要自动填充到D列1至250行自动显示查找结果

追答

arr=thisworkbook.Sheets("求带宽").[b1:B250].value

brr=workbooks("工作簿1.xlsx").worksheets("Sheet1").Range("A1:F127").value

thisworkbook.Sheets("求带宽").[d1:d250]=application.vlookup(arr,brr,3,0)

追问

dychj8827197老师：您好！感谢您对我的提问解答：我将编写的代码复制到VBA中还是运行不起，请把代码写全。谢谢！