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

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

方法一：手動(dòng)指定元素

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

```vba

Dim arr() As Integer

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

```

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

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

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

```

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

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

除了遍歷數(shù)據(jù)范圍外，還可以使用特定條件篩選數(shù)據(jù)，并將符合條件的內(nèi)容添加到數(shù)組中。以下是一個(gè)示例代碼，演示如何篩選一個(gè)包含特定關(guān)鍵字的數(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(, "關(guān)鍵字") > 0 Then

arr(i)

i i 1

End If

Next cell

```

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

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