VBA讓工作效率飛起來！

專門代寫EXCEL VBA中小型 程序代碼。

本人以誠信立足 ，另歡迎加友交流學(xué)習(xí)！

（接上）

三、利用索引號獲取數(shù)組中的元素

類似Range可以使用索引號訪問區(qū)域中每一個單元格一樣，一維數(shù)組和二維數(shù)組也可以使用索引號獲取數(shù)組中每一個值。主要有兩種形式：

形式一：Arr(Item)

形式二：Arr（RowIndex，ColumnIndex）

這兩種形式看起來在形式上和Range的索引號完全一致，但在事實上存在很多差異。

請看差異在哪里，

例子1：

Sub 索引號引用數(shù)組()

Dim arr1() '聲明數(shù)組變量arr1 = Array('wise', 'rose', '小花鳥', '小花鴨') '對數(shù)組賦值

MsgBox arr1(1) '正確的引用

MsgBox arr1(1, 1) '錯誤的引用

End Sub

在例子1中，對于一維數(shù)組的兩種索引方式只能前者可以正常執(zhí)行，后者會產(chǎn)生錯誤。

例子2：

Sub 索引號引用數(shù)組1()

Dim arr1() '聲明數(shù)組變量

arr1 = [{1,1,1,1;2,2,2,2;3,3,3,3;4,4,4,4}] '對數(shù)組賦值

MsgBox arr1(4, 2) '正確的引用

MsgBox arr1(4) '錯誤的引用

End Sub

對于二維數(shù)組，例子2中兩種方式只能使用第一種方式，而后者會產(chǎn)生錯誤。當(dāng)使用索引號引用數(shù)組時候，值得注意是：第一個元素的默認(rèn)索引值。

在默認(rèn)狀態(tài)下，如果模塊中未指定第一個元素的索引號，那么默認(rèn)為0。即數(shù)組中arr中的第一個值用arr(0)來表示，最后一個元素的索引號則為數(shù)組元素個數(shù)減1來表示。

如下例子：

Sub 索引號引用數(shù)組()

Dim arr1() '聲明數(shù)組變量

arr1 = Array('wise', 'rose', '小花鳥', '小花鴨') '對數(shù)組賦值

MsgBox arr1(1) '正確的引用

End Sub

該例子顯示的結(jié)果是rose而不是wise。如果不習(xí)慣這種默認(rèn)的索引方式，可以利用option base語句。option base 1：表示數(shù)組中第一個元素的索引號為1

option base 語句只能置于模塊的頂部，并且可選值只能為0或1

。因為默認(rèn)狀態(tài)為0，那么option base 0可以忽略。