<em>excel</em>运行 宏 运行错误9 <em>下标</em>

学习VBA的方法就是要会使用F1和F8这个宏是你自己录制的。出错的情况自己应该最清楚。

下标越界，有可能是来如下原因造成的：1、找不到工作簿，workbooks括号中的参数是不存在的，源建议用完整路径。2、找不到工作表，知sheets括号中的参数是不存在的，查看一下文本有无输错，或参数超过sheet表个道数。
下标越界是由于没有找到对应的对象 你debug看看是哪一句有错误
然后找到对应的对象

原因：说明对象不存在或者数组元素不存在。

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

2、然后改正后的代码如下：回

Sub a()

Dim arr() '定义一个动态数组

Dim i As Integer

ReDim arr(1 To 3) '定义一个3个元素的数组,并且对数组进行初始化

arr(1) = 3

arr(2) = 4

arr(3) = 5

'在下面语句重新定义一个10个元素的数组，清除前面的元素，答并重新分配新的存储变量

ReDim arr(1 To 10)

For i = 1 To 10

arr(i) = i

Next i

End Sub

3、然后点击运行就不会提示了。