dim i% i = 1 For Each item In cc item(0) = 3 '这里输出看看,明显item(0)已经改为3了, '但是不代表集合中的数组元素也变了,item并不是指向cc元素的地址, '可以认为这里的item是cc中数组的副本,两个不是一个东西,所以... Debug.Print item(0), cc(i)(0) i = i + 1 Next
'如果要达到你的目的,请这样:
dim newcc as new collection For Each item In cc item(0) = 3 newcc.add item Next set cc=newcc ...