Excel VBA解读（155）： 数据结构—数组相关的函数

学习Excel技术，关注微信公众号：

excelperfect

VBA提供了一些内置函数，可以方便地生成或者处理数组。

Array函数

Array函数可以使用一组数据来填充数组。然而，必须将数组变量声明为Variant型。例如代码：

Dim MyArray As Variant

MyArray= Array("红","绿","蓝","三原色")

生成的数组如下图1所示。

图1

注意，使用Array函数创建的数组下标索引值以0开始。然而，如果在模块顶部使用语句Option Base 1，则下标索引值从1开始。

Split函数

Split函数根据分隔符将字符串拆分成数组，例如代码：

Dim str As String

Dim MyArray() As String

str= "红,绿,蓝,三原色"

MyArray= Split(str, ",")

代码创建的数组与上图1相同。与Array函数不同的是，Split函数创建的数组下标索引值总是从0开始，无论在代码模块顶部是否使用了语句Option Base 1。

在Split函数中使用的分隔符可以是我们通常认为的逗号(,)、冒号(:)、破折线(-)等，2也可以是字母或文字字符，例如代码：

Dim str As String

Dim myArray() As String

str= "1是2是3是4是5是6"

myArray= Split(str, "是")

运行代码后，myArray数组如下图2所示。

图2

此外，分隔符还可以是多个字符，如下面的代码：

Dim str As String

Dim myArray() As String

str= "1ss2ss3ss4ss5ss6"

myArray= Split(str, "ss")

运行代码后，仍然得到上图2所示的myArray数组。

Join函数

Join函数使用指定的分隔符将数组中的各元素连接起来成为一个字符串，例如代码：

Dim MyArray As Variant

Dim str As String

MyArray= Array("红","绿","蓝","三原色")

str= Join(MyArray, " - ")

代码运行结果如下图3所示。

图3