如何从“销售”和“库存”两个数据表中取数，生成一个“进销存”的数据透视表

jixian0501

销售数据表：

库存数据表：

需要生成的“进销存”表

3190496160

这个可以用代码来实现的，高效灵活，通用，
但是，销率如何计算呢？？？？

3190496160

Sub 汇总()
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim cr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("销售")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:l" & r)
End With
With Sheets("库存")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    br = .Range("a1:f" & rs)
End With
ReDim cr(1 To UBound(ar), 1 To 8)
For i = 2 To UBound(ar)
    If ar(i, 1) <> "" Then
        s = ar(i, 1) & "|" & ar(i, 2) & "|" & ar(i, 3)
        t = d(s)
        If t = "" Then
            k = k + 1
            d(s) = k
            t = k
            cr(k, 1) = ar(i, 2)
            cr(k, 2) = ar(i, 1)
            cr(k, 3) = ar(i, 3)
        End If
        cr(t, 4) = cr(t, 4) + ar(i, 6)
        cr(t, 5) = cr(t, 5) + ar(i, 8)
        cr(t, 6) = cr(t, 6) + ar(i, 10)
    End If
Next i
For i = 2 To UBound(br)
    If br(i, 1) <> "" Then
        s = br(i, 1) & "|" & br(i, 2) & "|" & br(i, 3)
        xh = d(s)
        If xh <> "" Then
            cr(xh, 7) = cr(xh, 7) + br(i, 5)
            cr(xh, 8) = cr(xh, 4) / cr(xh, 7)
        End If
    End If
Next i
With Sheets("透视表")
    .UsedRange.Offset(3) = Empty
    .[a4].Resize(k, UBound(cr, 2)) = cr
End With
MsgBox "ok!"
   
End Sub

3190496160

进销存.rar (37.2 KB, 下载次数: 10)

2024-12-25 17:20 上传

点击文件名下载附件

wxg0007

进销存.zip (147.62 KB, 下载次数: 12)

2024-12-25 18:06 上传

点击文件名下载附件

jixian0501

wxg0007 发表于 2024-12-25 18:06

请教一下，这个是怎么做的？
现在这个数据是简化了的。原本的数据还有十几个字段，跟店柜和商品相关的字段

wxg0007

jixian0501 发表于 2024-12-25 20:14
请教一下，这个是怎么做的？
现在这个数据是简化了的。原本的数据还有十几个字段，跟店柜和商品相关的字 ...

这问题就像二元方程一样，如果学了原理，很简单，分分钟的事，如果不学原理，你就想靠靠别人跟你讲明白，那就太难了，去学一下关系，度量值 这些基础知识，弄明白了，这就是很简单的事