求解，要求在附件里面

人生任我行

排骨架进销存表.rar (4.76 KB, 下载次数: 9)

2013-4-5 11:22 上传

点击文件名下载附件
排骨架

grf1973

库存表里面有重复记录。最好去掉后在统计。

Sub tj()
    Set kcb = Sheets("库存表")
    Set jcb = Sheets("进仓表")
    Set ccb = Sheets("出仓表")
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To kcb.[a65536].End(3).Row
        kc = kcb.Cells(i, 1).Text
        If Not d.exists(kc) Then
            d(kc) = ""
            sum_jc = 0: sum_cc = 0
            For j = 2 To jcb.[a65536].End(3).Row
                jc = jcb.Cells(j, 1).Text
                If jc = kc Then sum_jc = sum_jc + jcb.Cells(j, 3)
            Next
            For k = 2 To ccb.[a65536].End(3).Row
                cc = ccb.Cells(k, 1).Text
                If cc = kc Then sum_cc = sum_cc + ccb.Cells(k, 3)
            Next
            kcb.Cells(i, "E") = sum_jc: kcb.Cells(i, "F") = sum_cc
            kcb.Cells(i, "G") = sum_jc - sum_cc + kcb.Cells(i, 3)
        End If
    Next
End Sub

人生任我行

grf1973 发表于 2013-4-5 12:52
库存表里面有重复记录。最好去掉后在统计。

Sub tj()

你好！能加下Q吗？465541842.我刚才改了一下工作表名称，现在提示找不到工程和库