统计同一批次钢瓶个数

renkangjizhen · 发表于 2024-9-2 15:35

字典法的典型案例

renkangjizhen · 发表于 2024-9-2 15:36

这是附件，代码在其中

renkangjizhen · 发表于 2024-9-2 15:37

Sub 统计()
Dim i%, d
Set d = CreateObject("scripting.dictionary")
For i = 2 To [a65536].End(3).Row
If Cells(i, 3) = "" Then
s = 0
Else
s = Cells(i, 3)
End If
If Not d.exists(Cells(i, 1).Value) Then
d(Cells(i, 1).Value) = s
Else
d(Cells(i, 1).Value) = d(Cells(i, 1).Value) + s
End If
Next
[g:h].ClearContents
[g1] = "钢瓶号": [h1] = "数量"
[g2].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
[h2].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.items)
End Sub

yanglinzi · 发表于 2024-9-2 16:46

Sub 个数统计()
Dim arr, i, j, r, d
r = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
Set d = CreateObject("scripting.dictionary")
Range("c2:c" & r).ClearContents
For i = 2 To r
s = Cells(i, 2).Value
d(s) = d(s) + 1
If Cells(i, 2) <> Cells(i + 1, 2) Then
Cells(i, 3) = d(arr(i, 2))
End If
Next
End Sub

复制代码

yanglinzi · 发表于 2024-9-2 16:47

参与一下、、

cysczhumh · 发表于 2024-9-3 09:51

renkangjizhen 发表于 2024-9-2 15:36
这是附件，代码在其中

没有得到结果。改要求是根据A列数据，得到统一批次钢瓶的个数。A列数据是钢瓶号，统一批次号=钢瓶号-钢瓶号的最后3位。谢谢！

cysczhumh · 发表于 2024-9-3 09:59

yanglinzi 发表于 2024-9-2 16:47
参与一下、、

没有顺利运行。S语句出现找不到库或工程。谢谢！

renkangjizhen · 发表于 2024-9-3 14:18

是用的Excel吗？

renkangjizhen · 发表于 2024-9-3 14:57

原来的理解与楼主的目的不一致，重新做了一下

renkangjizhen · 发表于 2024-9-3 14:57

看看是否满足要求？

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

[求助] 统计同一批次钢瓶个数