vba給數(shù)組賦值的方法有哪些

VBA給數(shù)組賦值的方法有以下幾種：

1. 直接賦值：通過使用=號將一個數(shù)組賦值給另一個數(shù)組。

Dim arr1() As Integer
Dim arr2() As Integer
arr1 = Array(1, 2, 3) ' 將數(shù)組 {1, 2, 3} 賦值給 arr1
arr2 = arr1 ' 將 arr1 的值賦值給 arr2

2. 使用循環(huán)遍歷賦值：可以使用循環(huán)結(jié)構(gòu)（如For循環(huán)、Do循環(huán)）逐個將值賦給數(shù)組的每個元素。

Dim arr(4) As Integer
Dim i As Integer
For i = 0 To 4
arr(i) = i + 1 ' 將每個元素賦值為對應(yīng)的序號
Next i

3. 使用數(shù)組常量賦值：直接將數(shù)值列表賦給數(shù)組，即使用數(shù)組的常量。

Dim arr() As Integer
arr = Array(1, 2, 3, 4, 5) ' 將數(shù)組常量 {1, 2, 3, 4, 5} 賦值給 arr

4. 使用Split函數(shù)：通過使用Split函數(shù)將字符串拆分成數(shù)組，并賦值給一個數(shù)組變量。

Dim arr() As String
Dim str As String
str = "apple,banana,orange"
arr = Split(str, ",") ' 將字符串按逗號拆分為數(shù)組賦值給 arr

5. 使用Range對象賦值：可以使用Range對象的Value或Value2屬性將一個區(qū)域的值賦給一個二維數(shù)組。

Dim arr() As Variant
Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A1:C3")
arr = rng.Value ' 將區(qū)域 A1:C3 的值賦值給 arr

注意：在VBA中，數(shù)組的賦值是通過引用傳遞的，即兩個數(shù)組變量指向同一個存儲空間。如果想要將一個數(shù)組的值復(fù)制給另一個數(shù)組，可以使用Array函數(shù)創(chuàng)建一個新的數(shù)組，并將原數(shù)組的值復(fù)制給新數(shù)組。