怎样用字典取多列，并让相同名字的各列的值相加？

Yedajun · 发表于 2024-5-5 21:49

以B列为准，字典怎样把B列相同名字C至E列的各列的值相加起来（上面L-N列代码结果返回不正确，下面是想要的结果）？能否在原来的代码修改，请各位老师帮一下，多谢了！

yanglinzi · 发表于 2024-5-5 22:02

循环里面加：
If Not d.exists(arr(i, 2)) Then
d(arr(i, 2)) = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5))
Else
d(arr(i, 2)) = Array(arr(i, 1), arr(i, 2), d(arr(i, 2))(2) + arr(i, 3), d(arr(i, 2))(3) + arr(i, 4), d(arr(i, 2))(4) + arr(i, 5))
End If

yanglinzi · 发表于 2024-5-5 22:03

源代码修改。

Yedajun · 发表于 2024-5-5 22:13

真心说声，谢谢了

ykcbf1100 · 发表于 2024-5-6 07:53

附件供参考。。。

ykcbf1100 · 发表于 2024-5-6 07:54

参与一下。。。

Sub ykcbf() '//2024.5.6
Dim arr, brr, d, m
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 1 To UBound(arr)
s = arr(i, 2)
If Not d.Exists(s) Then
m = m + 1
d(s) = m
For j = 1 To UBound(arr, 2)
brr(m, j) = arr(i, j)
Next
Else
r = d(s)
For j = 3 To UBound(arr, 2)
brr(r, j) = brr(r, j) + arr(i, j)
Next
End If
Next
[j1].CurrentRegion = ""
[j1].Resize(m, UBound(arr, 2)) = brr
Set d = Nothing
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

cyq4896 · 发表于 2024-5-6 08:43

修改了一下

学习_2018 · 发表于 2024-5-6 08:55

提示: 作者被禁止或删除内容自动屏蔽

学习_2018 · 发表于 2024-5-6 08:56

提示: 作者被禁止或删除内容自动屏蔽

ykcbf1100 · 发表于 2024-5-6 09:06

学习_2018 发表于 2024-5-6 08:56
vba定制+vba咨询，qq：609381445

这种简单的题你也想赚钱啊？

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

[求助] 怎样用字典取多列，并让相同名字的各列的值相加？

评分

评分

学习_2018 学习_2018 当前离线性别保密 UID 4075763 阅读权限 0 注册时间 2018-8-12 在线时间小时最后登录 1970-1-1 积分 27 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2024-5-6 08:55 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

学习_2018 学习_2018 当前离线性别保密 UID 4075763 阅读权限 0 注册时间 2018-8-12 在线时间小时最后登录 1970-1-1 积分 27 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2024-5-6 08:56 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报