VBA中如何写入数据至数组中

在VBA中，可以使用以下代码将数据写入数组中：

Dim myArray() As Variant ' 声明一个变量数组

' 将数据写入数组
myArray = Array("Data1", "Data2", "Data3")

' 通过循环遍历数组中的元素
For i = LBound(myArray) To UBound(myArray)
    Debug.Print myArray(i)
Next i

在上述示例中，我们首先声明了一个变量数组 `myArray`，然后使用 `Array()` 函数将数据写入数组中。最后，使用 `LBound()` 和 `UBound()` 函数获取数组的下标范围，并通过循环遍历数组中的元素。

如果需要将数据从某个区域写入数组中，可以使用类似以下代码：

Dim myArray() As Variant ' 声明一个变量数组
Dim dataRange As Range ' 声明一个数据范围

' 设置数据范围
Set dataRange = Range("A1:A10")

' 将范围中的数据写入数组
myArray = dataRange.Value

' 通过循环遍历数组中的元素
For i = LBound(myArray) To UBound(myArray)
    Debug.Print myArray(i, 1)
Next i

在上述代码中，我们首先声明了一个变量数组 `myArray` 和一个数据范围 `dataRange`，然后将数据范围中的数据写入数组中。最后，使用 `LBound()` 和 `UBound()` 函数获取数组的下标范围，并通过循环遍历数组中的元素。请注意，在这种情况下，`myArray` 数组被定义为二维数组，因为数据范围中的数据可能具有多个列。