VBA - 按属性过滤用户定义类的集合字典的最有效方法

VBA - 按属性过滤用户定义类的集合/字典的最有效方法

vba
Option Explicit
Sub FilterCollection()
    Dim person As Person
    Dim filteredCollection As Collection
    Dim key As Variant
    
    ' 创建一个新的集合用于存储过滤后的对象
    Set filteredCollection = New Collection
    
    ' 遍历集合中的每个对象
    For Each key In personCollection
        ' 获取当前对象
        Set person = personCollection.Item(key)
        
        ' 根据条件过滤对象
        If person.Age > 30 Then
            ' 将符合条件的对象添加到新的集合中
            filteredCollection.Add person, key
        End If
    Next key
    
    ' 打印过滤后的对象的数量
    Debug.Print "过滤后的对象数量：" & filteredCollection.Count
End Sub