Question

Excel VBA 调用vlookup 出错，提示为Object doesn't support this property or method.跪求大神指点 ！！

"COSTCENTER"和"Sheet3"是同一个excel表中的两页。非常感谢！！！

代码如下
Sub ceshi()
J = 2
Do Until Cells(J, 1).Value = " "

Sheets("Sheet3").Cell(J, 1) = Application.WorksheetFunction.VLookup(Sheets("Sheet3").Cell(J, 1), Sheets("COSTCENTER").Range("a2:b72"), 2, 0)
J = J + 1
Loop
End Sub

Answer 1

Sub ceshi()
Dim j As Long
j = 2
Do Until Cells(j, 1) = ""
Sheets("Sheet3").Cells(j, 2) = Application.WorksheetFunction.VLookup(Sheets("Sheet3").Cells(j, 1), Sheets("COSTCENTER").Range("a2:b72"), 2, False)
j = j + 1
Loop
End Sub

Answer 2

cell 改为 cells
另,如果shee3 里有数据,而COSTCENTER没有的话,会报错