VBA中如何清空集合Collection中的内容呢

VBA中 集合Collection中没有直接清除Clear的方法，只能靠自己写代码

方法一：

lngCnt = 0
lngCnt = lstCustomer.count
If lngCnt > 0 Then
 e = lngCnt
 Do Until e = 0
   lstCustomer.Remove (e)
   e = e - 1
 Loop
End If

方法二：

直接对对象释放

 Set mcollQq = Nothing
 Set mcollQq = New Collection