为什么会缺少数组？

凌飞云天

有一张某学校八年级的考试成绩表，要求对每个学科各班的优秀人数、优秀率、各分数段人数依学科进行统计。程序运行代码至第14行处（for j =4 to ubound(arr))提示缺少数组。烦请高手指点。

sj15627581616

因为你申明变量arr是字符串 ubound是判断数组的，Dim arr 即可

feilanga

乱定义不如不定义

ykcbf1100

arr明明是数组，你偏要定义成字串，肯定错了。删除这句就行了：Dim arr As String
这里arr可以不定义，系统会自动定义。

轻轻松松啊

Dim arr as variant即可。
另外你最前面有option explicit 所以所有变量都要定义，包括i,r等。

凌飞云天

运行至此处，又出现了子过程或函数未定义的问题

jjfjf2014

Dim arr as string 这句，你把arr定义成了string

轻轻松松啊

cells(r,21)前面少了一个点

凌飞云天

经过几天的努力，终于把这个“问题”程序搞正常了，原因是编程不规范引起的一系列故障。真诚感谢各位的指点和帮助。

凌飞云天

终于找到问题了，是自己编程不规范。真诚感谢各位的指点和帮助。