在 Excel VBA 中，我們經常需要處理數據，并且有時候需要創(chuàng)建一個數組來存儲一組特定內容的數據。本文將介紹使用指定內容創(chuàng)建數組的幾種常見方法。方法一：手動指定元素可以通過手動指定數組的元素來創(chuàng)建

在 Excel VBA 中，我們經常需要處理數據，并且有時候需要創(chuàng)建一個數組來存儲一組特定內容的數據。本文將介紹使用指定內容創(chuàng)建數組的幾種常見方法。

方法一：手動指定元素

可以通過手動指定數組的元素來創(chuàng)建一個包含特定內容的數組。例如，要創(chuàng)建一個包含數字1到5的數組，可以使用以下代碼：

```vba

Dim arr() As Integer

arr Array(1, 2, 3, 4, 5)

```

通過使用數組函數`Array`，我們可以指定數組的元素，并將其賦值給一個已聲明的數組變量。

方法二：遍歷數據范圍

如果需要從一個數據范圍中提取出特定內容，可以使用循環(huán)遍歷數據范圍，并將符合條件的內容添加到數組中。以下是一個示例代碼，演示如何從一個指定的列中提取所有大于10的數值：

```vba

Dim rng As Range

Dim cell As Range

Dim arr() As Variant

Dim i As Integer

Set rng Range("A1:A10")

ReDim arr(1 To )

i 1

For Each cell In rng

If > 10 Then

arr(i)

i i 1

End If

Next cell

```

在此示例中，我們首先聲明了一個`Range`對象`rng`，并將其設置為要遍歷的數據范圍。然后，我們聲明了一個數組變量`arr`，并使用`ReDim`語句調整數組的大小。接下來，我們使用`For Each`循環(huán)遍歷每個單元格，并檢查其值是否大于10。如果滿足條件，則將該值添加到數組中。

方法三：使用特定條件篩選數據

除了遍歷數據范圍外，還可以使用特定條件篩選數據，并將符合條件的內容添加到數組中。以下是一個示例代碼，演示如何篩選一個包含特定關鍵字的數據范圍，并將符合條件的內容添加到數組中：

```vba

Dim rng As Range

Dim cell As Range

Dim arr() As Variant

Dim i As Integer

Set rng Range("A1:A10")

ReDim arr(1 To )

i 1

For Each cell In rng

If InStr(, "關鍵字") > 0 Then

arr(i)

i i 1

End If

Next cell

```

在此示例中，我們使用`InStr`函數來檢查單元格的值是否包含特定的關鍵字。如果滿足條件，則將該值添加到數組中。

通過以上幾種方法，我們可以在 Excel VBA 中使用指定內容創(chuàng)建數組。根據具體的需求和場景，選擇合適的方法來處理數據，并靈活運用數組的功能。希望本文對你有所幫助！