VBA字典操作求助：Range转字典后无法遍历或输出键值对

首先看你代码里的几个关键问题：

1. 没有保存字典对象：在Test过程里，你调用了RangeToDict2但没把返回的字典赋值给变量，直接用RangeToDict2.Item("a")相当于又创建了一个新的空字典，自然找不到键"a"。
2. 键的类型错误：你的函数里用R(i)作为键，这实际上是把单元格对象作为字典的键，而不是单元格的文本/值。后面用字符串"a"去查找，类型不匹配，肯定失败。
3. 循环逻辑不够直观（且有潜在问题）：你用i = i + 2来遍历两列的区域，但如果区域结构变化，这种写法容易出错。更合理的方式是直接遍历每一行，取每行的第一列当键，第二列当值。

修正后的代码 #

先改Test过程，保存字典对象：

Sub Test()
    Dim myDict As Dictionary
    ' 将函数返回的字典赋值给变量
    Set myDict = RangeToDict2(Range("H2:I36"))
    
    ' 先判断键是否存在，避免报错
    If myDict.Exists("a") Then
        Debug.Print myDict.Item("a")
    Else
        Debug.Print "键""a""不存在"
    End If
    
    ' 遍历所有键值对的示例
    Dim key As Variant
    For Each key In myDict.Keys
        Debug.Print "键: " & key & ", 值: " & myDict(key)
    Next key
End Sub

然后修正RangeToDict2函数，确保键是单元格的值，并且正确遍历每行：

Function RangeToDict2(ByVal R As Range) As Dictionary
    Set RangeToDict2 = New Dictionary
    Dim row As Range
    
    ' 遍历区域的每一行（假设你的区域是两列，每行第一列是键，第二列是值）
    For Each row In R.Rows
        Dim keyVal As Variant
        Dim valVal As Variant
        
        keyVal = row.Cells(1).Value ' 取每行第一列的值作为键
        valVal = row.Cells(2).Value ' 取每行第二列的值作为值
        
        ' 先判断键是否已存在，避免重复添加报错
        If Not RangeToDict2.Exists(keyVal) Then
            RangeToDict2.Add keyVal, valVal
            Debug.Print keyVal & ", " & valVal
        Else
            Debug.Print "键"""; keyVal; """已存在，跳过添加"
        End If
    Next row
End Function

关键说明 #

• 保存字典对象：VBA里对象类型的变量必须用Set赋值，一定要把函数返回的字典存到变量里，才能后续操作。
• 键的类型统一：确保你用的键类型和后续查找时的类型一致（比如都是字符串或数值），这里我们用单元格的值作为键，而不是单元格对象。
• 添加键前判断存在性：字典不允许重复键，所以添加前用Exists方法判断，避免运行时错误。

这样修改后，你就能正常打印指定键的值，也能遍历所有键值对了。

内容的提问来源于stack exchange，提问作者Mr.Riply