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

气愤excel · 发表于 2018-4-18 17:14

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

Public Sub ert()
Dim d As Object, i%, a, b(), j%
Dim xrow%, n%, arr, ss$
Sheet1.Activate
Set d = CreateObject("scripting.dictionary")
xrow = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a4:I" & xrow)
ReDim b(1 To xrow, 1 To 8)
For i = 1 To UBound(arr)
ss = arr(i, 1) & arr(i, 2) & arr(i, 4) & arr(i, 5) & arr(i, 6) & arr(i, 8)
If Not d.exists(ss) Then
n = n + 1
d(ss) = n
b(n, 1) = arr(i, 2): b(n, 2) = arr(i, 5): b(n, 3) = arr(i, 6): _
b(n, 4) = arr(i, 4): b(n, 5) = arr(i, 1): b(n, 6) = arr(i, 8): b(n, 7) = arr(i, 7)
Else
b(d(ss), 7) = b(d(ss), 7) & "+" & arr(i, 7)
End If
Next
Sheet3.Activate
[b4:i1048576].Clear
For j = 1 To d.Count
a = Split(b(j, 7), "+")
For i = 0 To UBound(a)
b(j, 8) = b(j, 8) + a(i) * b(j, 5) / 100
Next
Next
[b4].Resize(d.Count, 8) = b
End Sub

复制代码

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

wljzhengzh · 发表于 2018-4-18 17:35

收藏下，慢慢学习

blor · 发表于 2018-4-22 04:42

学习中。。。

萧萧秋水 · 发表于 2018-4-23 16:33

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

imlyx · 发表于 2018-4-28 15:20

感谢老师啊

aprillee007 · 发表于 2018-4-28 15:38

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

qinmj2011 · 发表于 2018-5-2 12:43

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

rotion · 发表于 2018-5-12 12:24

感谢，下载学习

weisilisid · 发表于 2018-5-21 13:58

感谢，下载学习

timchen100 · 发表于 2018-5-24 21:55

非常感谢分享！！！

		自动登录	找回密码
密码			免费注册

[原创] 常见字典用法集锦及代码详解