CMake完整入门教程数组赋值及UBound与LBound函数详解

(1)循环给单元格赋值

比如想把A1:A100单元格的值给数组arr,则代码为:

Sub a()
 Dim arr(1 To 100)
 For i = 1 To 100
  arr(i) = Cells(i, 1)
 Next
End Sub

(2)直接等于单元格区域

这个非常简单,直接使用数组名等于单元格区域就可以了。比如想把A1:A100单元格的值赋给数组arr,代码可以简化为:

arr = [a1:a100]

两种方法效率高低一目了然,可以自行对比。

五、UBound和LBound函数

我们定义数组时可以指定起始索引不为0,而是任意数。比如Dim arr(5 to 6)定义了起始索引号为5的数组,共有两个元素。想知道数组的最大索引号(上界)和最小索引号(下界),可以使用UBoundLBound函数。

pdf 文件大小:1.72MB