VBA中集合collection⽅法的基础知识刚刚有新⼿在问 Collection是什么意思？……
于是有了下⾯的代码介绍：
01.
02.
03. Sub test()
04. ' Dim s As Collection '定义s变量为集合对象
赵寅成图片>添括号法则05. ' Set s = New Collection '初始化集合对象s (否则⽆法使⽤)
06.
我与孩子共成长07. Dim s As New Collection '推荐这句代码，直接初始化，可以不⽤再Set了
08.
09. '集合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
复制代码
