出现错误。dict.Keys -它是键的数组！不能将单元格值设置为数组。需要设置字符串变量并收集其中的所有键

Dim str1 as String
Dim str2 as String
For i=1 to count 'qty of elements in dictionary
str1=str1 & dict.Keys()(i) 
str2=str2 & dict.Items()(i) 
Next i

这里是关于字典的文章的链接
http://www.snb-vba.eu/VBA_Dictionary_en.html

通过循环，你可以做这样的事情-应该还是很快的。

Sub DictOutput()
    
    Dim dict As Object, i As Long, r As Long, cols As Long, col As Long, arr, data, k
    Set dict = CreateObject("scripting.dictionary")
    
    'load some test data
    For i = 1 To 100
        dict.Add "Key_" & Format(i, "000"), Split("A,B,C,D", ",")
    Next i
    
    arr = dict.Items()(0)                        'get the first value
    cols = 1 + (UBound(arr) - LBound(arr))       'number of items in array (assumed all the same size)
    ReDim data(1 To dict.Count, 1 To (1 + cols)) 'size the output array
    r = 0
    
    For Each k In dict 'loop and fill the output array
        r = r + 1
        data(r, 1) = k
        arr = dict(k)
        i = 2
        For col = LBound(arr) To UBound(arr) 'loop array and populate output row
            data(r, i) = arr(col)
            i = i + 1
        Next col
    Next k
    
    'put the data on the sheet
    ActiveSheet.Range("A1").Resize(UBound(data, 1), UBound(data, 2)).Value = data
End Sub