物料编码对应汇总

15968725770 · 发表于 2022-11-22 19:11

物料编码对应汇总

liulang0808 · 发表于 2022-11-22 21:13

https://club.excelhome.net/thread-1385473-1-1.html
https://club.excelhome.net/thread-1611894-1-1.html
字典案例可以参考下

demonimissyou · 发表于 2022-11-23 16:26

Sub 按钮2_Click()
Dim i, j, k, l, m, n, d, arr, brr(1 To 10000, 1 To 12)
Set d = CreateObject("scripting.dictionary")
i = [A65536].End(xlUp).Row
arr = Sheets("sheet2").Range("A3:O" & i)
For j = 1 To UBound(arr)
If d.EXISTS(arr(j, 1)) Then
l = d(arr(j, 1))
brr(l, 11) = brr(l, 11) + arr(j, 13)
brr(l, 12) = brr(l, 12) + arr(j, 15)
Else
k = k + 1
d(arr(j, 1)) = k
brr(k, 1) = arr(j, 1)
brr(k, 11) = arr(j, 13)
brr(k, 12) = arr(j, 15)
End If
Next
Sheets("SHEET1").[A3].Resize(d.Count, 12) = brr
End Sub

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

[求助] 物料编码对应汇总