如何在EXCEL中,用VBA使用纯数组成的表名时,显示"下标越界"

[libfiretwo]

比如:甲表名为AAA 乙表名为：20050822 丙表名为：20050819
甲表中有如下数据
A B C
姓名 成绩 班级
张三 85 20050819
李四 86 20050822
王五 87 20050822
赵六 88 20050819
. . .
. . .
. . .

我要用宏把不同班级的学生放在对应班级名的工作表里;我写了下面的宏
x=2
xm=sheets("AAA").cells(x,1)
cj=sheets("AAA").cells(x,2)
bj=sheets("AAA").cells(x,3)
sheets(bj).cells(x,1)=xm
sheets(bj).cells(x,2)=cj
x=x+1
逻辑上应该没问题吧，但运行到第五行时说：下标越界。 我百思不得其解，请高手帮忙解决！！

[arden1019]

bj=sheets("AAA").cells(x,3)

bj是字符串么？那样应该bj=sheets("AAA").cells(x,3).value

记住cells(x,3)引用的是一个对象 ：）

[libfiretwo]

谢谢!

[changechange]

sheets(bj).cells(x,1)=xm错误？

说明要么 bj 错了，要么 X 错了