将字典键和项目放入列中而不移位

我有一个macros创build一个超过30K条目的字典，现在我的问题是，我想这些条目显示在Excel中的列Excel中有最大数量的列条目，不允许我把我的钥匙，然后转置他们。 我想所有的键都在一列中，而所有的值都在另一列中。

问：有没有办法解决这个问题？

Answer 1

Sub HTH() Dim vArray As Variant Dim lLoop As Long Dim rCell As Range With CreateObject("Scripting.Dictionary") .CompareMode = 1 For Each rCell In Range("B1:I3022") vArray = Split(rCell.Value, " ") For lLoop = LBound(vArray) To UBound(vArray) If Not .Exists(vArray(lLoop)) Then .Add vArray(lLoop), 1 Else .Item(vArray(lLoop)) = .Item(vArray(lLoop)) + 1 End If Next lLoop Next rCell MsgBox ("there are " & .Count & "Keys") Dim keyArray, itemArray, resultArray keyArray = .Keys itemArray = .Items ReDim resultArray(LBound(keyArray) To UBound(keyArray), 0 To 1) For i = LBound(keyArray) To UBound(keyArray) resultArray(i, 0) = keyArray(i) resultArray(i, 1) = itemArray(i) Next i Range("L1").Resize(UBound(resultArray) + 1, 2) = resultArray End With End Sub