VBA初學(xué)者，常常會遇到下標(biāo)越界問題。

　　盡管出現(xiàn)下標(biāo)越界的原因是多種多樣，但終究是因?yàn)閷ο蟛淮嬖诨蛘叱龇秶蜁霈F(xiàn)下標(biāo)越界的提示框，如下圖所示：

　　Microsoft Visual Basic ~運(yùn)行時(shí)錯(cuò)誤'9'~下標(biāo)越界，錯(cuò)誤原因分析：

如果使用數(shù)組時(shí)，數(shù)組的下標(biāo)超出數(shù)組的可取值范圍就會出現(xiàn)這個(gè)錯(cuò)誤，這個(gè)數(shù)組可以是自定義的也可以是系統(tǒng)自帶的。

1.自定義數(shù)組：
dim arr1(1 to 5)
arr1(10)=555
因?yàn)閍rr1數(shù)組為1到5，這里卻是10，所以就會報(bào)下標(biāo)越界錯(cuò)誤。

2.系統(tǒng)自帶的數(shù)組：
一個(gè)excel工作表表有3張Sheet
Sub 下標(biāo)越界()
  MsgBox Sheets(4).Name
End Sub
這里的Sheets(4)顯然已經(jīng)超出了3張Sheet，因此也會報(bào)下標(biāo)越界錯(cuò)誤。

總之，有多種情況會引起“下標(biāo)越界”的報(bào)錯(cuò)。

下標(biāo)越界錯(cuò)誤大概有以下的原因和解決方法：

　　引用了不存在的數(shù)組元素。

　　下標(biāo)比可能下標(biāo)范圍大或小，或是在應(yīng)用程序中這一邊的數(shù)組沒有指定范圍。檢查數(shù)組的聲明以確認(rèn)其上界和下界。若使用的是重新指定范圍的數(shù)組，應(yīng)使用 UBound 和 LBound 函數(shù)來決定數(shù)組訪問。如果索引指定為變量，應(yīng)檢查變量名的拼寫。

　　聲明數(shù)組時(shí)沒有指定元素的數(shù)目。

　　引用了不存在的集合成員。 試著使用 For Each...Next 結(jié)構(gòu)代替指定元素下標(biāo)。
使用速寫形式的下標(biāo)，結(jié)果指定了錯(cuò)誤的元素。

　　下標(biāo)越界不存在對應(yīng)的工作薄、工作表名稱是否寫正確。

　　當(dāng)再次遇到VBA報(bào)下標(biāo)越界錯(cuò)誤時(shí)，就不會驚慌了，至少大概知道其原因了。我們再參照上面的思路去修改代碼就可以解決下標(biāo)越界的錯(cuò)誤。