VBA中提示400，跪求解决答案

Question

Sub autoinput()
Dim i As Integer
Dim s As String
Dim arr As Variant
Dim res1 As Variant, res2 As Variant
Set arr = Range(Worksheets("产品基本信息表").Range("b5:z" & [z65536]).End(xlUp).Row)
For i = 8 To [b65536].End(xlUp).Row
s = Cells(i, 2)
res1 = Application.VLookup(s, arr, 8, False)
res2 = Application.VLookup(s, arr, 11, False)
Cells(i, 3) = IIf(IsError(res1), "", res1)
Cells(i, 4) = IIf(IsError(res2), "", res2)
Next i

End Sub

Answer 1

https://zhidao.baidu.com/question/314103947.html