Collection与object
(197) Dim colMySheets As New Collection
Public colMySheets As New Collection  ‘声明新的集合变量
(198) Set MyRange=Range(“A1:A5”) ‘创建一个名为MyRange的对象变量
(199) <object>.Add Cell.Value CStr(Cell.Value) ‘向集合中添加惟一的条目(即将重复的条目忽略)
*******************************************************