Excel 运行时错误9下标越界的处理方法

excel 运行时错误9下标越界的处理方法

Excel中vba提示下标超界，说明对象不存在或者数组元素不存在。

举个简单的例子：工作表中没有"1月"这个工作表，却用Sheets("1月")；数组定义的是arr(1 to 10)，却用Arr(11)，都会出现下标越界的提示。

简单的理解：下标越界就是引用超出了所在的范围。

当我们在excel的VBA中输入下面代码，运行，就会出现“运行时错误9下标越界”的提示。代码如下：

Sub a()Dim arr() As Stringarr(1) = "你好"End Sub

其实上面的“运行时错误9下标越界”是因为定义的动态数组没有确定维数和尺寸。定义成固定维数和尺寸的，或用Redim界定一下维数和尺寸即可解决此问题。

改正后的代码如下：

Sub a()Dim arr() ‘定义一个动态数组Dim i As IntegerReDim arr(1 To 3) ‘定义一个3个元素的数组,并且对数组进行初始化arr(1) = 3arr(2) = 4arr(3) = 5‘在下面语句重新定义一个10个元素的数组，清除前面的元素，并重新分配新的存储变量ReDim arr(1 To 10)For i = 1 To 10arr(i) = iNext iEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。