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

fzh2618182

抽时间学习一下，长点知识。谢谢老师！

平安，

学习中，谢谢楼主

wds1061

感谢无私分享，先留记号，后面慢慢学

林程乐

蓝桥玄霜 发表于 2010-10-18 12:56
实例11  关键字赋给两列后用Replace方法
一、问题的提出：
有如图实例11-1所示的工资表，要求编写一段代 ...

老师，请看一下的的贴子。看看能否能解决。https://club.excelhome.net/thread-1707559-1-1.html

ml.ybj

实例6的代码：

Sub kf2()
Dim d As Object, a(), b, j%, w!
Dim ss As String, n As Integer, x
Me.UsedRange.Offset(3, 0) = ""
a = Sheet1.Range(Sheet1.[a4], Sheet1.[i10000].End(xlUp)).Value
Set d = CreateObject("scripting.dictionary")
ReDim b(1 To UBound(a), 1 To 8)
For i = 1 To UBound(a)
ss = a(i, 1) & a(i, 2) & a(i, 4) & a(i, 5) & a(i, 6) & a(i, 8)
If Not d.Exists(ss) Then
n = n + 1
d.Add ss, n
b(n, 1) = a(i, 2): b(n, 2) = a(i, 5): b(n, 3) = a(i, 6): b(n, 4) = a(i, 4)
b(n, 5) = a(i, 1): b(n, 6) = a(i, 8): b(n, 7) = a(i, 9)
Else
b(d(ss), 7) = b(d(ss), 7) & "+" & a(i, 9)
End If
Next
For i = 1 To d.Count
x = Split(b(i, 7), "+")
For j = 0 To UBound(x)
w = w + x(j)
Next j
b(i, 8) = b(i, 5) * b(i, 6) * w / 100: w = 0
Next
[b4].Resize(n, 8) = b
End Sub

这个代码运行到这条语句：a = Sheet1.Range(Sheet1.[a4], Sheet1.[i10000].End(xlUp))时出现错误提示，“运行时错误 57121” 。不知道是怎么错了

jinhaitiao168

跟贴备学！谢谢！

dnbc

经典学习材料，谢谢分享