VBA如何将字典数据按Debug.Print输出格式写入工作表

你原代码是通过Debug.Print把每个字典条目对应的name/rate/volume三个属性输出到立即窗口，要输出到工作表只需要在遍历过程中给对应单元格赋值即可，提供两种实现方式：

基础版（易理解，适合数据量小的场景） #

逐行写入单元格，逻辑和你原有代码几乎一致，改造成本最低：

Sub 输出字典属性到工作表()
    Dim key As Variant
    Dim group As Object ' 如果你用的是自定义类，把这里改成对应类名即可
    Dim ws As Worksheet
    Dim currentRow As Long
    
    ' ========== 这里按需修改配置 ==========
    ' 指定输出的工作表，示例为当前活动工作表，也可写死为指定表：ThisWorkbook.Worksheets("输出表")
    Set ws = ActiveSheet
    ' 输出起始行，要留表头行的话就设为2
    currentRow = 1
    ' =====================================
    
    ' 遍历逻辑和你原有代码完全一致
    For Each key In dict
        Set group = dict(key)
        With group
            ' 三个属性分别写入当前行的A/B/C列
            ws.Cells(currentRow, "A").Value = .name
            ws.Cells(currentRow, "B").Value = .rate
            ws.Cells(currentRow, "C").Value = .volume
        End With
        ' 行号自增，下一条数据写下一行
        currentRow = currentRow + 1
    Next key
End Sub

高效率版（适合字典条目超过1000条的场景） #

逐单元格写入会频繁和表格交互，数据量大时速度慢，可以先把所有内容装入内存数组，最后一次性写入工作表，速度能提升几十上百倍：

Sub 输出字典属性到工作表_数组提速版()
    Dim key As Variant
    Dim group As Object
    Dim ws As Worksheet
    Dim outputArr As Variant
    Dim arrIndex As Long
    
    ' ========== 这里按需修改配置 ==========
    Set ws = ThisWorkbook.Worksheets("输出表")
    ' 输出起始单元格
    Const startRng As String = "A1"
    ' =====================================
    
    ' 提前初始化数组：行数等于字典条目总数，固定3列对应三个属性
    ReDim outputArr(1 To dict.Count, 1 To 3)
    arrIndex = 1
    
    For Each key In dict
        Set group = dict(key)
        With group
            outputArr(arrIndex, 1) = .name
            outputArr(arrIndex, 2) = .rate
            outputArr(arrIndex, 3) = .volume
        End With
        arrIndex = arrIndex + 1
    Next key
    
    ' 一次性把所有内容写入工作表对应区域
    ws.Range(startRng).Resize(dict.Count, 3).Value = outputArr
End Sub

注意事项 #

• 代码里的dict变量直接复用你原有代码中已经赋值完成的字典对象即可，不要重复声明覆盖原有数据
• 需要加表头的话，在遍历写入前先给表头行赋值即可，比如ws.Range("A1:C1").Value = Array("名称", "比率", "体量")，再把数据起始行调整到第2行
• 要调整输出列的位置，只需要修改对应列标即可，比如要从D列开始输出，就把原来的A/B/C对应改成D/E/F

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