VBA数组函数Array（vba数组函数的使用方法）

虚空、 • 2021-12-17 12:19:36 • 投稿

【分享成果，随喜正能量】承担生活的深沉，品味辛苦的味道，看淡世间的颠倒与世相，活出生活的才情和智慧，那些所有复杂变得平淡，纠结变得朴素，都是生活的醒悟，更是人生的灵犀一点，佛门有句话，叫做道不远人，生活的每一天，都不曾与生命脱离，人生的真谛，但向己求，生活也就如此。

《VBA数组与字典方案》教程是我推出第三套教程，目前已经是第一版修订了。这套教程定位于中级，字典是VBA的精华，我要求学员必学。七、三、一套教程掌握后，可以解决大多数工作中遇到的实际问题。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第20讲：数组的函数Array()。

第二十讲如何在代码运行时创建数组

大家好，我们今日继续讲解VBA数组与字典解决方案第20讲内容：如何在代码运行时创建数组。数组大家并不陌生了，在之前我讲过很多，今日讲的是在VBA中代码运行的时候如何创建数组，为了实现这个目的，我们需要梳理一下下面的几个知识点：

1 创建数组的函数

Array函数。这个函数返回一个包含数组的Variant

语法：Array(arglist)

Arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供Arglist参数，则创建一个长度为 0 的数组。使用Array函数可以在代码运行时创建数组并把一系列数据保存在数组中，

2 LBound函数和UBound函数

这两个函数取得数组的最小和最大下标：

1）LBound函数：返回一个Long型数据，其值为指定数组维可用的最小下标，

语法如下：LBound(arrayname[, dimension])

2）UBound函数：返回一个Long型数据，其值为指定数组维可用的最大下标，

语法如下：UBound(arrayname[, dimension])

参数arrayname是必须的，数组变量的名称。

参数dimension是可选的，指定返回哪一维的下界，1表示第一维，2表示第二维，如此类推。默认为1。

特别注意点：UBound函数与LBound函数一起使用，可以用来确定数组的大小。如：要想知道数组arr的上界是多少，则：UBound(arr)；要想知道数组arr的下界是多少，则：LBound(arr)。想知道数组有多少个元素，则：UBound(arr)- LBound(arr)+1

3 Option Base数组下界的声明

Option Base是用来声明数组下标缺省下界的函数，在模块级别中使用。由于下界的缺省设置是 0，因此无需使用 Option Base 语句。如果使用该语句，则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base，且必须位于带维数的数组声明之前。注意 Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0；Option Base 对 Array 或 ParamArray 不起作用。Option Base 语句只影响位于包含该语句的模块中的数组下界。