Excel提示下标越界的原因及解决方法

在Excel中，如果有VBA代码，会经常遇到下标越界这个错误提示：Microsoft Visual Basic ~运行时错误 '9 '~下标越界,如下图所示：

1506500349675943.jpg

如下示例：如果使用数组时，数组的下标超出数组的可取值范围就会出现这个错误，这个数组可以是自定义的也可以是系统自带的。1、自定义数组：
dimarr1(1to5)
arr1(10)=555因为arr1数组为1到5，这里却是10，所以就会报下标越界错误。
2、系统自带的数组：
Sub下标越界()
MsgBoxSheets(4).Name
EndSub一个excel工作表有3张工作表，这里的Sheets(4)已经超出3了，因此也会报下标越界错误。
总的来说：虽然提示下标越界的原因很多，但终究是因为对象不存在或者超出范围:引起“下标越界”的报错的解决办法：1、引用了不存在的数组元素。下标比可能下标范围大或小，或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组，应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量，应检查变量名的拼写。
2、声明数组时没有指定元素的数目。引用了不存在的集合成员。 试着使用 For Each...Next 结构代替指定元素下标。
3、使用速写形式的下标，结果指定了错误的元素。下标越界不存在对应的工作薄、工作表名称是否写正确。