Sub ManageDataList()
' 声明一个数组来存储数据
Dim dataList(1 To 3, 1 To 2) As Variant
' 初始化数据
dataList(1, 1) = "Name"
dataList(1, 2) = "Age"
dataList(2, 1) = "John"
dataList(2, 2) = 25
dataList(3, 1) = "Jane"
dataList(3, 2) = 30
' 输出数据
For i = 1 To UBound(dataList, 1)
For j = 1 To UBound(dataList, 2)
Debug.Print dataList(i, j);
If j < UBound(dataList, 2) Then
Debug.Print ", ";
End If
Next j
Debug.Print
Next i
End Sub
在这个示例中,我们声明了一个名为 dataList 的二维数组,用于存储数据。数组的第一维表示行,第二维表示列。然后,我们初始化了数据,并使用两个嵌套的 For 循环来遍历数组并输出数据。
这只是一个简单的示例,你可以根据实际需求进行扩展和修改。在实际应用中,你可能会从工作表中读取数据,进行计算,然后将结果存储回工作表。 VBA 数组在处理大量数据时非常有用,因为它们提供了一种高效的方式来组织和操作数据。
转载请注明出处:http://www.zyzy.cn/article/detail/6690/VBA