|
楼主 |
发表于 2019-12-9 20:42
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
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群+论坛大神最终出来的结果,小白菜真心不容易呀!! |
|