求助：依据明细表生成采购清单

iwangyi

附件请参考********

Leo灬M

iwangyi 发表于 2019-12-9 20:22
附件请参考********

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 名称,型号规格,单位,sum(统计数量),品牌,备注 FROM [明细表$b5:i] where  名称 <> '配电箱' and 名称 <> '箱体' and 名称 <> '名称' group by  名称,型号规格,单位,品牌,备注 Order by  品牌 ASc"
Range("b5").CopyFromRecordset cn.Execute(Sql)
ERow = [b65536].End(3).Row
n = 1
For i = 5 To ERow
Cells(i, "a") = n
n = n + 1
Next
End Sub

Private Sub CommandButton1_Click()
ERow = [b65536].End(3).Row
If ERow > 4 Then
Rows(5 & ":" & ERow).ClearContents
End If
End Sub

谢谢大佬，论坛里面温暖真多，这是我请教百度、QQ群+论坛大神最终出来的结果，小白菜真心不容易呀！！

Leo灬M

iwangyi 发表于 2019-12-9 20:22
附件请参考********

发重复了