EXCEL VBA学习笔记：Collection 集合

Collection 集合的意思，是一个对象。指用户将一组数据信息，存放于一个“一维数组”中，以便用户随时访问、增添、删除；这样的一个集合体。

集合对象对存放在其中的数据类型，没有限制；可以是各种类型的数值、或文本，或单元格区域，或图片。刚才的一维数组打了引号，因为只是类似于一维数组。与数组相比，集合不需要先声明其长度，改变长度时也不需要用语句；删除其中某个数据后，其后数据会自动往前排，不会留下个空值。

如自定义个可变长数组，添加元素语句

Sub test() Dim arr() For i = 1 To 10 ReDim Preserve arr(1 To i) '每次在需要向一维数组中添加新元素时，需要先扩大数组 arr(i) = i '然后再添加新元素 NextEnd Sub

1、而用集合，则是这样（.add 添加的方法）

Dim NCN As New Collection '创建一个集合    For i = 1 To 10        NCN.Add i '对于集合，用Add方法可以加入元素    Next

新加入的元素会自动加到队列尾部。

2、读取集合中元素的方法（.count 集合的属性）

For i = 1 To NCN.Count 'Count属性返回集合中元素总个数 t = NCN(i) '读取集合中第i个变量存入临时变量t中 t = NCN.Item(i) '正规的代码写法(效果一样) Debug.Print NCN(i) '在立即窗口中显示集合(i)的值Next

集合中元素的起始序号默认为“1”，不是“0”。集合里虽然也叫item但是没有字典中Items，不能直接全部读出。

3、集合中元素删除的方法

For i = NCN.Count to 1 step -1 '遍历集合元素        NCN.Remove (i) '每次删去第后面的1个        Debug.Print NCN.Count '在立即窗口中显示集合中剩余元素的个数    Next

Remove后，集合中余下的元素是自动向前排。比如Remove(10)，原先11位的数据就变成第10位了。

4、清空 remove(NCN.count) ；或是 Set NCN = Nothing （没有Clear 清空这个方法，2016版Excel）

使用For Each遍历Collection对象时，接收的变量要定义为Variant类型。例：For Each i in NCN 循环， i 这个变量，要么不声明，要么Dim i As Variant，不能声明成别的类型；NCN集合里就算存的是数字，i 若声明成数值型，这里也会报错。

集合与一维数组相比，在存储数据（不知数据的多少时）方便些，新增与减少时比数组要灵活，但弊端也很明显：不能修改已存入的元素；已存入的只能读取，删除。比较适用于不知数据多少的存储类事项。