VBA怎样达到类似数据透视表的统计效果？

小行星B612

111.zip (13.74 KB, 下载次数: 153)

2014-11-26 10:32 上传

点击文件名下载附件

请看附件，怎样用VBA写出类似数据透视表的统计效果呢？十分感谢～

jsxjd

把数据透视过程录成宏

魂断蓝桥

Sub a()
Dim cnn, rs As Object, Sql As String, i, j
Cells.Clear
Set cnn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.Recordset")
cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
Sql = "transform sum(订单) select 年 from [数据$] where 年 is not null group by 年 pivot 月"
rs.Open Sql, cnn, 1, 1
For i = 0 To rs.Fields.Count - 1
   Cells(2, i + 1) = rs.Fields(i).Name
Next
Range("a3").CopyFromRecordset rs
Range("a3").Offset(rs.RecordCount) = "合计"
Range("a2").Offset(0, i) = "总计"
For j = 1 To rs.RecordCount
    Cells(j + 2, i + 1) = "=SUM(RC[-" & i - 1 & "]:RC[-1])"
Next

For j = 2 To i + 1
    Cells(rs.RecordCount + 3, j) = "=SUM(R[-" & rs.RecordCount & "]C:R[-1]C)"
Next
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

小行星B612

魂断蓝桥 发表于 2014-11-26 11:04
Sub a()
Dim cnn, rs As Object, Sql As String, i, j
Cells.Clear

你好，非常感谢帮助。您的这个代码好像还有用到SQL，能否麻烦您帮忙写一下每行代码意思呢？个人水平有限，没太看懂您的代码，谢谢了～
鲜花送没了，后补，嘿嘿，谢谢

小行星B612

jsxjd 发表于 2014-11-26 10:50
把数据透视过程录成宏

版主您好，非常感谢回复。把数据透视过程录成宏后就生成了一个透视表，想要的是类似数据透视表的统计结果，不要那个数据透视表。其实效果一样，但一个工作簿里同时有好几个数据透视表，文件还没放数据就有7M多了。请问VBA怎样可以解决呢？或者有什么能让工作簿减肥的方法呢？谢谢啦～

jsxjd

小行星B612 发表于 2014-11-26 14:45
版主您好，非常感谢回复。把数据透视过程录成宏后就生成了一个透视表，想要的是类似数据透视表的统计结果 ...

得看是否存在冗余

小行星B612

jsxjd 发表于 2014-11-26 14:49
得看是否存在冗余

谢谢回复～
问题类似于下面这个贴子里的，文件不断变大
http://club.excelhome.net/thread-684922-1-1.html
谢谢～

小行星B612

魂断蓝桥 发表于 2014-11-26 11:04
Sub a()
Dim cnn, rs As Object, Sql As String, i, j
Cells.Clear

谢谢～

LMY123

Sql = "transform sum(订单) select 年 from [数据$] where 年 is not null group by 年 pivot 月"

jiminyanyan

LMY123 发表于 2018-7-8 10:33
Sql = "transform sum(订单) select 年 from [数据$] where 年 is not null group by 年 pivot 月"

这么老的帖都给你翻出来了．