传递dictionary.keys的VBA自动筛选

Sub FilterDictionaryKeys()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 向Dictionary中添加一些键值对数据
    dict.Add "Apple", 10
    dict.Add "Banana", 5
    dict.Add "Orange", 8
    dict.Add "Grape", 3
    
    ' 创建一个新的Dictionary来存储筛选后的键值对数据
    Dim filteredDict As Object
    Set filteredDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历Dictionary的Keys集合，并根据条件筛选
    Dim key As Variant
    For Each key In dict.Keys
        ' 根据条件筛选，这里以字母"A"开头的键为例
        If Left(key, 1) = "A" Then
            ' 将符合条件的键值对添加到filteredDict中
            filteredDict.Add key, dict(key)
        End If
    Next key
    
    ' 输出筛选后的结果
    For Each key In filteredDict.Keys
        Debug.Print key & ": " & filteredDict(key)
    Next key
End Sub