excelVBA下標越界了怎么改呢？

如果使用數組時，數組的下標超出數組的可取值范圍就會出現這個錯誤，這個數組可以是自定義的也可以是系統自帶的。

1.自定義數組：dimarr1(1to5)arr1(10)=555因為arr1數組為1到5，這里卻是10，所以就會報下標越界錯誤。

2.系統自帶的數組：一個excel工作表表有3張SheetSub下標越界()MsgBoxSheets(4).NameEndSub這里的Sheets(4)顯然已經超出了3張Sheet，因此也會報下標越界錯誤。總之，有多種情況會引起“下標越界”的報錯。下標越界錯誤大概有以下的原因和解決方法： 1.引用了不存在的數組元素。 2.下標比可能下標范圍大或小，或是在應用程序中這一邊的數組沒有指定范圍。檢查數組的聲明以確認其上界和下界。若使用的是重新指定范圍的數組，應使用UBound和LBound函數來決定數組訪問。如果索引指定為變量，應檢查變量名的拼寫。

3.聲明數組時沒有指定元素的數目。

4.引用了不存在的集合成員。試著使用ForEach...Next結構代替指定元素下標。使用速寫形式的下標，結果指定了錯誤的元素。

5.下標越界不存在對應的工作薄、工作表名稱是否寫正確。