VBA从电子表格中的一行数据创建一个数组

以下是一个使用VBA从电子表格中的一行数据创建一个数组的示例代码：

Sub CreateArrayFromRow()
    Dim rng As Range
    Dim dataArr() As Variant
    Dim i As Integer
    
    ' 设置范围为第一行的数据
    Set rng = ActiveSheet.Rows(1)
    
    ' 将范围中的数据赋值给数组
    dataArr = rng.Value
    
    ' 遍历数组并输出结果
    For i = LBound(dataArr, 2) To UBound(dataArr, 2)
        Debug.Print dataArr(1, i)
    Next i
End Sub

在上面的代码中，我们首先设置了一个范围变量rng，并将其设为活动工作表的第一行数据。然后，我们声明了一个变量dataArr作为一个变体数组，用于存储从范围中获取的数据。接下来，我们使用rng.Value将范围中的数据赋值给数组。最后，我们使用一个循环遍历数组，并将每个元素输出到调试窗口。

请注意，这个示例中假设活动工作表中的第一行包含要创建数组的数据。您可以根据需要更改范围的设置。