求助 四个条件 汇总

A56510804TT

附件已上 谢谢大神

A56510804TT

数据透视表 不好操作 只能用VBA

ykcbf1100

用字典排重汇总

Yalishanda30

A56510804TT 发表于 2023-5-2 20:38
数据透视表 不好操作 只能用VBA

供参考。。。。。。好吧，漏了个单价。。。

gwjkkkkk

参与一下。。。

z865593849

Sub a()
Set ws1 = Sheets(1)
Set ws2 = Sheets(2)
ws2.Select
For i = 3 To ws1.[b2].End(xlDown).Row
    ws2.Range("a2：g2").AutoFilter
    ws2.Range("a2：g2").AutoFilter field:=2, Criteria1:=ws1.Cells(i, 2)
    ws2.Range("a2：g2").AutoFilter field:=3, Criteria1:=ws1.Cells(i, 3)
    ws2.Range("a2：g2").AutoFilter field:=4, Criteria1:=ws1.Cells(i, 4)
    ws2.Range("a2：g2").AutoFilter field:=6, Criteria1:=ws1.Cells(i, 6)
    If ws2.Cells(99999, 5).End(xlUp) = "数量" Then
        Sheets(2).Range("a2：g2").AutoFilter
        ws1.Rows(i).Copy ws2.[b99999].End(xlUp).Offset(1, -1)
    Else
        ws2.[e2].End(xlDown) = ws2.[e2].End(xlDown) + ws1.Cells(i, 5)
    End If
Next
ws2.Range("a2：g2").AutoFilter
End Sub

blackttea1

好程序，学习啦

zxsea_7426

代码已经修正到楼下

zxsea_7426

楼上审核代码修正序号：

zjs307

如果仅仅要得到结果，用数据透视表也并不困难，将条件均加入行标签，统计列加入数值区域，设置表格形式数据透视即可。