Excel VBA下标越界怎么办

  VBA初学者,常常会遇到下标越界问题。

  尽管出现下标越界的原因是多种多样,但终究是因为对象不存在或者超出范围,就会出现下标越界的提示框,

  Microsoft Visual Basic ~运行时错误'9'~下标越界,错误原因分析:

  如果使用数组时,数组的下标超出数组的可取值范围就会出现这个错误,这个数组可以是自定义的也可以是系统自带的。

  1.自定义数组:

  dim arr1(1 to 5)

  arr1(10)=555

  因为arr1数组为1到5,这里却是10,所以就会报下标越界错误。

  2.系统自带的数组:

  一个excel工作表表有3张Sheet

  Sub 下标越界()

  MsgBox Sheets(4).Name

  End Sub

  这里的Sheets(4)显然已经超出了3张Sheet,因此也会报下标越界错误。

  总之,有多种情况会引起“下标越界”的报错。

  下标越界错误大概有以下的原因和解决方法:

  引用了不存在的数组元素。

  下标比可能下标范围大或小,或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组,应使用UBound和LBound函数来决定数组访问。如果索引指定为变量,应检查变量名的拼写。

  声明数组时没有指定元素的数目。

  引用了不存在的集合成员。试着使用 For Each...Next 结构代替指定元素下标。

  使用速写形式的下标,结果指定了错误的元素。

  下标越界不存在对应的工作薄、工作表名称是否写正确。

  当再次遇到VBA报下标越界错误时,就不会惊慌了,至少大概知道其原因了。我们再参照上面的思路去修改代码就可以解决下标越界的错误。

推荐阅读