统计数据有误

仇荣壮

分类统计数据不对，请大师们帮忙解决，谢谢！

袁勇

设了工程保护密码，看不到代码，不知道逻辑，所以无法判断。

袁勇

无工程密码的文档。

有会的老师帮帮楼主吧。

仇荣壮

大师，不好意思，这个是没有密码的

ww87725244

模块代码试试改成这样(再被弹死机前复制的代码)
Sub 切机汇总()
arr = Sheets("生产记录").[A4].CurrentRegion
On Error Resume Next
ReDim brr(1 To UBound(arr), 1 To 5)
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
x = arr(i, 6) & arr(i, 7) & arr(i, 9) & arr(i, 12)
If Len(x) > 0 Then
If Not d.exists(x) Then
n = n + 1
d(x) = n
brr(n, 1) = arr(i, 12) '员工
brr(n, 3) = arr(i, 7) '工序
brr(n, 4) = arr(i, 9) '单位
brr(n, 2) = arr(i, 6) '工序分类
'End If
Else
p = d(x)
brr(p, 5) = brr(p, 5) + arr(i, 8) '数量
End If
End If
Next
[辅助！B1].Resize(n, 5) = brr
End Sub