如何在VBA中遍历字典键并写入单元格（避免使用For Each）

你的代码错误分析 #

1. 第一个代码块的问题

   • Len(dic1)用法错误：Len是获取字符串长度的函数，字典的元素数量要靠dic1.Count属性获取。
   • 遍历范围错误：字典的Keys集合是0基索引，循环范围应该是0 To dic1.Count - 1，而非0 To Len(dic1)。
   • 键的获取方式错误：dic1()(i)是无效写法，要获取第i个键，直接用dic1.Keys(i)。
   • 单元格参数错误：Cells(1, dic1()(i))的列参数传入字符串键会导致类型不匹配，Excel单元格的列参数需要是数字或合法列标（如"A"）。

2. 第二个代码块的问题

   • Set cell1 As String错误：String是值类型，声明时不需要加Set，直接写Dim cell1 As String。
   • 索引错误：字典的Items集合是0基索引，第一个元素是dic1.Items(0)，而非dic1.Items(1)；后期绑定下直接索引访问集合可能存在兼容性问题，更稳妥的方式是转成数组后再遍历。

正确实现代码 #

Dim dic1 As Object
Set dic1 = CreateObject("Scripting.Dictionary")
dic1.Add "name1", "value1"
dic1.Add "name2", "value2"

' 方法1：直接通过Keys集合索引遍历
Dim i As Integer
For i = 0 To dic1.Count - 1
    ' 写入A列第i+1行（Excel行号从1开始）
    Cells(i + 1, 1).Value = dic1.Keys(i)
Next i

' 方法2：先将Keys转成数组再遍历（兼容性更好）
Dim keyArr As Variant
keyArr = dic1.Keys
For i = LBound(keyArr) To UBound(keyArr)
    ' 写入B列对应行
    Cells(i + 1, 2).Value = keyArr(i)
Next i

补充说明 #

• 你创建字典的方式是正确的（CreateObject("Scripting.Dictionary")属于后期绑定，无需额外引用库）。
• 若使用早期绑定（需先引用Microsoft Scripting Runtime库），可以直接声明Dim dic1 As New Scripting.Dictionary，索引访问逻辑和上述代码一致。

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