详细点
谁有VBA程序-数据分类汇总
答案:1 悬赏:70 手机版
解决时间 2021-04-11 07:49
- 提问者网友：鐵馬踏冰河
- 2021-04-10 20:02
最佳答案
- 五星知识达人网友：北城痞子
- 2021-04-10 20:35
Sub 分类汇总() Range("A2:E100").ClearContents Set conn = CreateObject("adodb.connection") conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName sq1 = "select 类别,数量,单价,金额 from [Sheet1$]" sq2 = "select 类别,数量,单价,金额 from [Sheet2$]" sq3 = "select 类别,数量,单价,金额 from [Sheet3$]" sq4 = sq1 & " UNIOn ALL " & sq2 & " UNIOn ALL " & sq3 sq5 = "select 类别,SUM(数量),SUM(金额) from (" & sq4 & ") GROUP BY 类别" [a65536].End(xlUp).Offset(1, 0).CopyFromRecordset conn.Execute(sq5) conn.Close Set conn = Nothing End Sub |
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯