在 Excel 2016 中使用數組進行 VBA 編程

大多數編程語言都支持數組，包括 VBA。一個陣列是一組共享一個名稱的變量。您可以使用數組名稱和括號中的索引號來引用數組中的特定變量。例如，您可以定義一個包含 12 個字符串變量的數組來保存一年中月份的名稱。如果將數組命名為MonthNames，則可以將數組的第一個元素稱為 MonthNames (1)，將第二個元素稱為 MonthNames (2)，依此類推。

聲明數組

在使用數組之前，必須先聲明它。沒有例外。與普通變量不同，VBA 對這條規則非常嚴格。使用 Dim 或 Public 語句聲明數組，就像聲明常規變量一樣。但是，您還需要指定數組中的元素數。您可以通過指定第一個索引號、關鍵字 To 和最後一個索引號來完成此操作——所有這些都在括號內。以下示例顯示瞭如何聲明一個包含 100 個整數的數組：

Dim MyArray(1 to 100) 作為整數

聲明數組時，您可以選擇僅指定上索引。如果省略較低的索引，VBA 假定它是 0。因此，以下兩個語句聲明相同的 101 元素數組：

Dim MyArray（0 到 100）為整數
Dim MyArray (100) 作為整數

如果您希望 VBA 假定 1（而不是 0）是數組的下位索引，請在模塊頂部的聲明部分包含以下語句：

選項基礎 1

此語句強制 VBA 使用 1 作為僅聲明上索引的數組的第一個索引號。如果此語句存在，則以下語句是相同的，均聲明一個 100 個元素的數組：

Dim MyArray (1 to 100) 作為整數
Dim MyArray (100) 作為整數

多維數組

前面例子中創建的數組都是一維數組。將一維數組視為一行值。您在 VBA 中創建的數組可以有多達 60 個維度——儘管您很少需要在一個數組中超過兩個或三個維度。以下示例聲明了一個具有二維的 81 整數數組：

Dim MyArray (1 to 9, 1 to 9) 作為整數

你可以把這個數組想像成一個 9 x 9 的矩陣——非常適合在數獨遊戲中存儲所有數字。

要引用此數組中的特定元素，您需要指定兩個索引號（類似於矩陣中的“行”和“列”）。以下示例顯示瞭如何為此數組中的元素賦值：

MyArray (3, 4)= 125

此語句為數組中的單個元素分配一個值。如果您根據 9 x 9 矩陣來考慮數組，這會將 125 分配給位於矩陣第三行第四列的元素。

下面是如何聲明一個包含 1,000 個元素的三維數組：

Dim My3DArray (1 to 10, 1 to 10, 1 to 10) 作為整數

您可以將三維數組視為一個立方體。可視化超過三個維度的數組更加困難。

動態數組

您還可以創建動態數組。動態數組沒有預設數量的元素。聲明一個帶有空括號的動態數組：

Dim MyArray () 作為整數

在使用這個數組之前，必須使用 ReDim 語句告訴 VBA 這個數組有多少個元素。通常，數組中元素的數量是在代碼運行時確定的。您可以多次使用 ReDim 語句，根據需要隨時更改數組的大小。下面的示例演示如何更改動態數組中的元素數。它假定 NumElements 變量包含一個值，該值由您的代碼計算得出。

ReDim MyArray（1 到 NumElements）

使用 ReDim 重新定義數組的大小時，會清除當前存儲在數組元素中的所有值。您可以使用 Preserve 關鍵字避免破壞舊值。以下示例顯示瞭如何在重新定義數組維度時保留數組的值：

ReDim 保留 MyArray（1 到 NumElements）

如果 MyArray 當前有十個元素，並且您在 NumElements 等於 12 的情況下執行前面的語句，則前十個元素保持不變，並且數組有空間容納兩個額外的元素（最多為變量 NumElements 中包含的數字）。但是，如果 NumElements 等於 7，則保留前七個元素，但其餘三個元素會消失。