求助：清空嵌套Collection内元素失败，重新填充仍保留旧项

问题分析 #

你遇到的核心问题是：调用清空嵌套Collection的代码后，子Collection并未实际清空，重新填充时新元素会追加在旧元素后。这通常和VBA中Collection的引用特性、遍历/删除逻辑的细节有关。

修正后的清空代码 #

将原清空过程修改为以下版本，确保子Collection被正确清空：

Sub vider_collection(collection_pleine As Collection)
    Dim coll As Collection
    Dim i As Integer
    
    For Each coll In collection_pleine
        ' 确保当前元素是Collection类型
        If TypeOf coll Is Collection Then
            ' 从后往前删除元素，避免索引偏移问题
            For i = coll.Count To 1 Step -1
                coll.Remove i
            Next i
            ' 验证清空结果，输出到立即窗口
            Debug.Print "子Collection已清空，当前Count：" & coll.Count
        End If
    Next
End Sub

关键注意事项 #

• 显式类型声明：将coll声明为Collection类型，避免Variant类型可能带来的隐式转换问题。
• 从后往前删除：虽然Remove 1循环也能清空，但从末尾开始删除可以避免因元素移除导致的索引顺序变化，逻辑更稳妥。
• 确认调用时机：必须在重新填充子Collection之前调用vider_collection Plq_clmn_global，确保清空操作先执行。
• 避免子Collection重新赋值：如果在清空后执行了Set Plq_clmn1 = New Collection，父CollectionPlq_clmn_global中存储的仍是旧的子Collection引用，此时新填充的是全新的Collection对象，会导致父Collection里的子Collection依然为空，而你操作的是新对象，造成混淆。

验证与调试 #

在调用清空过程后，可通过以下代码验证子Collection的状态：

' 调用清空
vider_collection Plq_clmn_global
' 检查第一个子Collection的Count
Debug.Print Plq_clmn1.Count ' 正常应为0

内容的提问来源于stack exchange，提问作者SkyHickory