如何在vba中将整个范围添加到数组中？

在 VBA 中向数组添加范围的步骤

1. 首先，您需要使用变体数据类型声明一个动态数组。
   
2. 然后，您需要声明另一个变量来存储区域中的单元格数量，并在循环中使用该计数器。
   
3. 之后，将值的范围分配给数组。
   
4. 从这里我们需要创建一个循环来将所有值打印到立即窗口，这样您就可以看到所有值都分配给了数组。
   

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum As Integer iAmount = Range("A1:A11") For iNum = 1 To UBound(iAmount) Debug.Print iAmount(iNum, 1) Next iNum End Sub

当您运行上面的代码时，它会显示您从范围（“A1：A11）”分配到 iAmount 数组的所有值，并将其打印在立即窗口中。

同样，也可以使用多维数组。

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) Debug.Print iAmount(iNum1, 1) & " " & iAmount(iNum1, 2) Next iNum1 End Sub

或者你也可以这样做。

 Sub myArrayRange() Dim iAmount() As Variant Dim iNum1 As Integer Dim iNum2 As Integer iAmount = Range("A1:B13") For iNum1 = 1 To UBound(iAmount, 1) For iNum2 = 1 To UBound(iAmount, 2) Debug.Print iAmount(iNum1, iNum2) Next iNum2 Next iNum1 End Sub