- Sub test() '字典嵌套字典
- Dim i&, arr, arr1()
- Dim d As New Dictionary
- arr = Range([A2], [B65536].End(3))
- For i = 1 To UBound(arr, 1)
- If Not d.Exists(arr(i, 1)) Then
- Set d(arr(i, 1)) = New Dictionary
- d(arr(i, 1))(arr(i, 2)) = ""
- End If
- d(arr(i, 1))(arr(i, 2)) = ""
- Next i
- ReDim arr1(0 To d.Count - 1, 1 To 2)
- For i = 0 To d.Count - 1
- arr1(i, 1) = d.Keys(i)
- arr1(i, 2) = Join(d.Items(i).Keys(), "/")
- Next i
- [F2:G100].ClearContents
- [F2].Resize(d.Count, 2) = arr1
- End Sub
复制代码 |