请教：数据去重并按条件分类汇总

13764433574

各位大神，我有一个采购明细表需要对审核通过且未付款的订单进行分表去重汇总，业务场景如下：
1、在申请明细中筛选审核状态=“通过”，且付款状态=空的数据
2、按D列付款方式将符合条件的数据引用到后面的三张表
3、对引用后B列采购订单号重复的数据进行去重并汇总

目前我是通过一个去重宏+一堆EXCEL公式完成的，由于数据量已经达到3W+所以效率很差。

谢谢！！！

iwangyi

第一个问题
Sub cc()
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select * from [申请明细$] where 审核状态='通过'and isnull(付款状态)"
Range("h2").CopyFromRecordset cn.Execute(Sql)
[a1:f1].Copy [h1]
End Sub

iwangyi

附件，请参考

iwangyi

第二个问题
Sub CCC()
Set CN = CreateObject("adodb.connection")
CN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select DISTINCT 付款方式  from [申请明细$A1:F]"
Set RS = CN.Execute(Sql)
Do Until RS.EOF
付款方式 = RS.FIELDS(0)
For Each SH In Sheets
If 付款方式 = SH.Name Then
[a1:f1].Copy SH.[A1]
SqlL = "select * from [申请明细$A1:F] where 付款方式='" & 付款方式 & "'"
SH.Range("A2").CopyFromRecordset CN.Execute(SqlL)
End If
Next
RS.MOVENEXT
Loop
End Sub

iwangyi

第二个问题附件

iwangyi

第三个问题

Sub CCCC()
Set CN = CreateObject("adodb.connection")
CN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 采购单号,SUM(金额)from [申请明细$A1:F] GROUP BY 采购单号"
Range("h51").CopyFromRecordset CN.Execute(Sql)
[H50:I50] = Array("采购单号", "金额汇总")
End Sub

iwangyi

第三个问题的附件

13764433574

iwangyi 发表于 2018-9-8 07:32
第三个问题的附件

额 高手
1、附件打开无法运行
2、还有这三个能否合并在一起？
3、引用到后面三张表的数据希望剔除付款状态是已付款的数据

3Q