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

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

方法一：手動指定元素

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

```vba

Dim arr() As Integer

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

```

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

方法二：遍歷數(shù)據(jù)范圍

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

```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`，并將其設置為要遍歷的數(shù)據(jù)范圍。然后，我們聲明了一個數(shù)組變量`arr`，并使用`ReDim`語句調整數(shù)組的大小。接下來，我們使用`For Each`循環(huán)遍歷每個單元格，并檢查其值是否大于10。如果滿足條件，則將該值添加到數(shù)組中。

方法三：使用特定條件篩選數(shù)據(jù)

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

```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`函數(shù)來檢查單元格的值是否包含特定的關鍵字。如果滿足條件，則將該值添加到數(shù)組中。

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