仓库ERP系统与手工账数据对比

yysfcq1

ERP系统与手工账数据比对差异求老师帮忙解决！

leimingsen

附件更新供参考！！！

yysfcq1

leimingsen 发表于 2023-1-14 10:11
附件供参考！！！

老师还是有问题，结果里面的物料编码有重复项，没有汇总，帮忙看看



结果里面编码应该是唯一的ERP数量是11才对的

leimingsen

yysfcq1 发表于 2023-1-14 10:15
老师还是有问题，结果里面的物料编码有重复项，没有汇总，帮忙看看

你这erp和手工的都有重复的编码啊

yysfcq1

leimingsen 发表于 2023-1-14 10:19
你这erp和手工的都有重复的编码啊

是的，都有重复的，所以要先汇总去重

leimingsen

yysfcq1 发表于 2023-1-14 10:24
是的，都有重复的，所以要先汇总去重

2楼附件已更新，你重新下载看一下

3190496160

Sub 数据比对()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b3:e" & r)
    rs = .Cells(Rows.Count, 12).End(xlUp).Row
    br = .Range("l3:p" & rs)
    ReDim arr(1 To UBound(ar) + UBound(br), 1 To 4)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            t = d(Trim(ar(i, 1)))
            If t = "" Then
                k = k + 1
                d(Trim(ar(i, 1))) = k
                t = k
                arr(k, 1) = ar(i, 1)
            End If
            arr(t, 3) = arr(t, 3) + ar(i, 4)
        End If
    Next i
    For i = 2 To UBound(br)
        If Trim(br(i, 1)) <> "" Then
            t = d(Trim(br(i, 1)))
            If t = "" Then
                k = k + 1
                d(Trim(br(i, 1))) = k
                t = k
                arr(k, 1) = br(i, 1)
            End If
            arr(t, 2) = arr(t, 2) + br(i, 5)
            arr(t, 4) = arr(t, 2) - arr(t, 3)
        End If
    Next i
    ws = .Cells(Rows.Count, 8).End(xlUp).Row
    If ws >= 4 Then .Range("h3:k" & ws) = Empty
    .[h4].Resize(k, 4) = arr
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

数据对比.rar (550.66 KB, 下载次数: 12)

2023-1-14 10:41 上传

点击文件名下载附件

shiruiqiang

计算差有10个

yysfcq1

3190496160 发表于 2023-1-14 10:42

老师谢谢您，就是还有点小问题，运行的时候标题栏没有了，差异里面有乱码！