求各位大神帮忙解决下同类合并问题

localzy · 发表于 2023-3-16 07:57

详情请看附件，谢谢大家

liulang0808 · 发表于 2023-3-16 08:12

Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
Set dnm = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For j = 2 To UBound(arr)
      d(arr(j, 1)) = d(arr(j, 1)) & "," & j
      dnm(arr(j, 1)) = ""
Next j
[f2].Resize(dnm.Count) = WorksheetFunction.Transpose(dnm.keys)
brr = [f1].CurrentRegion
For j = 2 To UBound(brr)
      dnm.RemoveAll
      crr = Split(d(brr(j, 1)), ",")
      For i = 1 To UBound(crr)
         dnm(arr(Val(crr(i)), 2)) = ""
         brr(j, 3) = brr(j, 3) + arr(Val(crr(i)), 3)
         brr(j, 4) = brr(j, 4) + arr(Val(crr(i)), 4)
      Next i
      brr(j, 2) = Join(dnm.keys, ",")
Next j
[f1].CurrentRegion = brr
End Sub

liulang0808 · 发表于 2023-3-16 08:13

附件内容供参考。。。。。

shiruiqiang · 发表于 2023-3-16 08:14

本帖最后由 shiruiqiang 于 2023-3-16 08:18 编辑

模拟算出来有点问题

Yalishanda30 · 发表于 2023-3-16 08:14

额。。。。。。。。。。。。

localzy · 发表于 2023-3-16 08:26

liulang0808 发表于 2023-3-16 08:13
附件内容供参考。。。。。

老师，这个问题必须要二个字典才行？

mmwwdd · 发表于 2023-3-16 08:33

mmwwdd · 发表于 2023-3-16 08:36

一个字典,嵌套就行

localzy · 发表于 2023-3-16 08:40

mmwwdd 发表于 2023-3-16 08:36
一个字典,嵌套就行

谢谢，非常感谢

ykcbf1100 · 发表于 2023-3-16 08:45

localzy 发表于 2023-3-16 08:26
老师，这个问题必须要二个字典才行？

可以一个字典，不嵌套的来一个。

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

[求助] 求各位大神帮忙解决下同类合并问题