VBA入门到进阶常用知识代码总结22

最新推荐文章于 2022-06-12 21:13:52 发布

tiansdk320

最新推荐文章于 2022-06-12 21:13:52 发布

阅读量497

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/tiansdk320/article/details/104351246

版权

本文介绍了VBA中数组的基础知识，包括如何获取数组的角标、动态数组的动态扩充以及清空数组的方法。通过实例展示了如何使用Lbound和Ubound函数确定数组边界，如何利用ReDim Preserve进行动态数组扩展，并提供了Erase关键字清除数组内容的应用。

摘要由CSDN通过智能技术生成

第22集 VBA数组-3：数组的空间
97、数组的角标（索引）
Lbound(数组) 可以获取数组的最小下标(编号)
Ubound(数组) 可以获取数组的最大上标(编号)
Sub arrjiaobiao()
Dim arr, i, j
arr = Array(1, 2, 3, 4, “A”, “B”)
i = LBound(arr) 'i=0
j = UBound(arr) 'j=5
End Sub
Ubound(数组,1) 或Ubound(数组) 可以获得数组的行方面(第1维)最大上标，1可省略
Ubound(数组,2) 可以获得数组的列方向(第2维)的最大上标
Sub d6()
Dim arr
Dim k, i, j, x
arr = Range(“a2:d6”) '5行4列二维数组
i = UBound(arr, 1) 'i=5
j = UBound(arr, 2) 'j=4
For x = 1 To UBound(arr, 1) '程序中一般这样写

Next x
End Sub
98、动态数组的动态扩充
如果一个数组无法或不方便计算出总的大小，而在一些特殊情况下又不允许有空位。这时我们就需要用动态的导入方法。
ReDim Preserve arr() 可以声明一个动态大小的数组，而且可以保留原来的数值，相当于在原数组最后新加元素，但是它只能让最末维实现动态，如果是一维不存在最末维。
Private Sub ComboBox1_GotFocus()
Dim arr(), x, arr1, k
arr1 = Range(“a1:a10”) &#