常见字典用法集锦及代码详解

气愤excel

1249994139 发表于 2018-4-16 19:25
版主，冒昧地请问下，这句w = w + x(j)，在调试时，咋出现连接呢，是否可以改为w = w + val(x(j))

1. Public Sub ert()
   
2. Dim d As Object, i%, a, b(), j%
   
3. Dim xrow%, n%, arr, ss$
   
4. Sheet1.Activate
   
5. Set d = CreateObject("scripting.dictionary")
   
6. xrow = Cells(Rows.Count, "a").End(xlUp).Row
   
7. arr = Range("a4:I" & xrow)
   
8. ReDim b(1 To xrow, 1 To 8)
   
9. For i = 1 To UBound(arr)
   
10.     ss = arr(i, 1) & arr(i, 2) & arr(i, 4) & arr(i, 5) & arr(i, 6) & arr(i, 8)
    
11.         If Not d.exists(ss) Then
    
12.             n = n + 1
    
13.             d(ss) = n
    
14.             b(n, 1) = arr(i, 2): b(n, 2) = arr(i, 5): b(n, 3) = arr(i, 6): _
    
15.             b(n, 4) = arr(i, 4): b(n, 5) = arr(i, 1): b(n, 6) = arr(i, 8): b(n, 7) = arr(i, 7)
    
16.         Else
    
17.             b(d(ss), 7) = b(d(ss), 7) & "+" & arr(i, 7)
    
18.         End If
    
19. Next
    
20. Sheet3.Activate
    
21. [b4:i1048576].Clear
    
22. For j = 1 To d.Count
    
23. a = Split(b(j, 7), "+")
    
24.     For i = 0 To UBound(a)
    
25.         b(j, 8) = b(j, 8) + a(i) * b(j, 5) / 100
    
26.     Next
    
27. Next
    
28. [b4].Resize(d.Count, 8) = b
    
29. End Sub

复制代码

这是我对代码做了一点修改，希望能帮到你。

wljzhengzh

收藏下，慢慢学习

blor

学习中。。。

萧萧秋水

非常感谢蓝老师，学习了。

imlyx

感谢老师啊

aprillee007

好厉害啊  看的小白我一头雾水

qinmj2011

抢占个地方，抱歉我来晚了！

rotion

感谢，下载学习

weisilisid

感谢，下载学习

timchen100

非常感谢分享！！！