如何在vba中将整个范围添加到数组中?
在 VBA 中向数组添加范围的步骤
- 首先,您需要使用变体数据类型声明一个动态数组。
- 然后,您需要声明另一个变量来存储区域中的单元格数量,并在循环中使用该计数器。
- 之后,将值的范围分配给数组。
- 从这里我们需要创建一个循环来将所有值打印到立即窗口,这样您就可以看到所有值都分配给了数组。
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