VBA中集合collection方法的基础知识

刚刚有新手在问 Collection是什么意思？……

于是有了下面的代码介绍：

1. 
   
2. 
   
3. Sub test()
   
4. '    Dim s As Collection '定义s变量为集合对象
   
5. '    Set s = New Collection '初始化集合对象s (否则无法使用)
   
6. 
   
7.     Dim s As New Collection '推荐这句代码，直接初始化，可以不用再Set了
   
8. 
   
9.     '集合s中添加元素的方法
   
10.     For i = 1 To 10
    
11.         s.Add i '对于集合s，用Add方法可以加入集合元素
    
12.             '当然事实上你可以添加任意内容来代替本例中的i
    
13.     Next
    
14. 
    
15. 
    
16.     '读取集合中元素的方法    
    
17.     For i = 1 To s.Count '可以用Count属性返回集合中元素总个数
    
18.         t = s(i) '读取集合s中第i个变量存入临时变量t中
    
19.         t = s.Item(i) '正规的代码写法应该是这样子(效果一样，推荐用上一句更简明)
    
20.         Debug.Print s(i) '在立即窗口中观察s(i)的值
    
21.     Next
    
22.     
    
23.     '下面是集合s中元素删除的方法
    
24.     For i = 1 To s.Count '遍历集合元素
    
25.         s.Remove (1) '每次删去第1个……直至全部删除完毕 或直接简写为： s.Remove 1
    
26. '        s.Remove (s.Count) '或者每次删除最后一个，直至全部删除完毕(推荐用上一句，不容易错)
    
27. '        或简写为 s.Remove s.Count       
    
28.         Debug.Print s.Count '在立即窗口中观察集合s中剩余元素个数
    
29.     Next
    
30.     
    
31. End Sub

复制代码