Excel VBA解读（149）： 数据结构—集合的基本操作

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

excelperfect

除了Excel对象模型中已经有的集合对象外，我们还可以创建自已的集合。有两种方式。

创建集合的第一种方式

首先，声明集合变量：

Dim colMyBooks As Collection

然后，在需要使用该集合前创建集合：

Set colMyBooks = New Collection

创建集合的第二种方式

也可以在声明的同时创建集合：

Dim colmybooks As New Collection

两种方式作用相同，都创建了一个名为colMyBooks的集合。第一种方式，先声明变量，只是在需要集合时再创建集合对象，事先不占用资源。

添加集合元素项

在创建集合对象后，可以使用Add方法给其添加元素项：

colMyBooks.Add "Algorithms"

在集合colMyBooks中添加元素“Algorithms”。

注意，当声明了集合变量后，在输入代码时，VBE会自动提示其具有的方法，如下图1所示。

图1

在添加集合元素时，还可以指定所添加元素的键值，如下图2所示。

图2

注意到，VBE给出的参数提示表明，Add方法具有4个参数。第1个参数指定元素内容，第2个参数指定元素的键值，第3个和第4个参数指定元素放置的位置。其中，集合中的键必须是唯一的，即每个集合元素对应唯一的键值。

我们在集合colMyBooks中添加2个元素，其中元素”Algorithms”的键为“算法”，元素“excelperfect”的键为“完美Excel”：

colMyBooks.Add "Algorithms", Key:="算法"

colMyBooks.Add Item:="excelperfect", Key:="完美Excel"

在指定位置插入元素

运行上述代码后，集合中的元素为：

Algorithms,excelperfect

现在，我要在它们中间插入一个元素“math”，可以使用下面的代码：

colMyBooks.Add Item:="math", Key:="数学", Before:="完美Excel"

此时，集合中的元素为：

Algorithms,math,excelperfect

上面的代码将键值作为Before参数的值，也可以将索引值作为其参数值：

colMyBooks.Add Item:="math", Key:="数学", Before:=2

参数Before将元素插入到指定元素的前面。同理，参数After将元素插入到指定元素之后。

获取/访问集合元素

可以使用索引值获取或访问集合中的元素：

colMyBooks(1)

将获取/访问集合colMyBooks中的第1个元素。

图3

其实上述代码中省略了Item方法，完整的代码如下：

colMyBooks.Item(1)

原因是，Item方法是集合的默认方法，因此可以省略。

也可以使用键值来访问/获取集合中的元素：

colMyBooks.Item("完美Excel")

结果为：

excelperfect

同样，由于Item方法为默认方法，上述代码可以简写为：

colMyBooks("完美Excel")

要访问/获取集合colMyBooks中的所有元素，可以使用下面的代码：

For i = 1 To colMyBooks.Count

Debug.Print colMyBooks(i)

Next i

代码使用For循环遍历集合中的所有索引值，并根据索引值取得对应的元素项。代码中的：

colMyBooks.Count

返回集合中元素的数量。

也可以使用下面的代码访问/获取集合colMyBooks中的所有元素：

Dim col As Variant

For Each col In colMyBooks

Debug.Print col

Next col

删除集合元素

使用Remove方法来删除集合中的元素。例如：

colMyBooks.Remove (1)

删除集合colMyBooks中的第1个元素。当然，也可以使用键值删除相对应的元素：

colMyBooks.Remove ("算法")

可以使用循环来删除集合中的所有元素：

For i = 1 To colMyBooks.Count

colMyBooks.Remove (1)

Next i

注意，传递给Remove方法的参数值始终为1。

也可以再次使用下面的代码：

Set colMyBooks = New Collection

重置集合，即清空集合中的所有元素。