该程序出错，请问是什么原因？

[hkqaz123wsx]

sheet1:销售：
物品 时间 合并 负责人
服装 25日 服装25日 李天
sheet2:价格：
参照物 物品 负责人
服装25日 服装
Dim I As Integer
DIM J AS Integer
Sheets("销售").Select
I = 1
Do
Cells(I + 1, 3) = Trim(Cells(I + 1, 1)) & Trim(Cells(I + 1, 2))
I = I + 1
Loop Until Cells(I + 1, 1) = ""
Sheets("价格").Select
For J = 2 To [A65536].End(xlUp).Row
Cells(J, 3) = Application.WorksheetFunction.VLookup(Range("A" & J), Sheets("销售").Range("C:D"), 2, False)
Next

有两张excel表，需要将销售表中的负责人填到价格表中。例如表一中，服装对应得负责人为李天，则在表2中找到相应的位置填进去
本想通过VLOOKUP实现，但是运行时出现“运行错误1004,不能取得类WorksheetFunction的VLookup属性 "请问该如何改进，或有其它
何种方法可以实现该功能

[ACMAIN_CHM]

错误信息是什么？
建议上传一个你的测试文件。

QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》

[zfl2k]

VLookup可以直接用