求助 字典表写法

liulang0808

ciphercai 发表于 2018-6-27 16:30
感谢liulang0808，提供的代码
但是有几个不懂 想请教
brr = Split(d.items()(j), ",") split是替换的意 ...

split是拆分
d.items()(j) 是自定 j位置对应的值

ciphercai

不知道为什么 发表于 2018-6-27 16:12

感谢你 不知道为什么
你的代码也OK的 我正在研究 谢谢

神级艾米

1. Sub test()
   
2.     Dim arr, d As Object, i&, j&
   
3.     Application.ScreenUpdating = False
   
4.     arr = [a1:b12]
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For i = 1 To UBound(arr)
   
7.         If Not d.exists(arr(i, 1)) Then Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
   
8.         d(arr(i, 1))(arr(i, 2)) = ""
   
9.     Next i
   
10.     Cells(4, 5).Resize(1, d.Count) = d.keys()
    
11.     For i = 0 To d.Count - 1
    
12.         For j = 0 To d.items()(i).Count - 1
    
13.             Cells(j + 5, i + 5) = d.items()(i).keys()(j)
    
14.         Next j
    
15.     Next i
    
16.     Application.ScreenUpdating = True
    
17.     Set d = Nothing
    
18. End Sub

复制代码

ciphercai

fxl447098457 发表于 2018-6-27 16:47
Sub test()
Dim d As Object, arr, brr, i%, j%, k
Set d = CreateObject("scripting.dictionary")

非常感谢大神们， 谢谢。
学习中