求助，十万火急！！大家帮帮忙。

laowuwyx · 发表于 2010-12-2 16:40

数据透视表做的，看看是不是你要的。

eqzh · 发表于 2010-12-2 16:40

排序后分类汇总

宅女 · 发表于 2010-12-2 16:40

急呀，第一次发帖，还不知道要怎么上传附件。呵呵

excelflower · 发表于 2010-12-2 16:41

这是你的文件

表格.rar (16.1 KB, 下载次数: 12)

Private Sub CommandButton1_Click()
Dim Cnn
Dim sql As String
Dim i&, j&
j = [a65536].End(3).Row
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='Excel 8.0';Data Source =" & ActiveWorkbook.FullName
sql = "SELECT 组别,Sum(金额) FROM [sheet1$a1:b" & j & "] GROUP BY 组别"
Cells(2, 5).CopyFromRecordset Cnn.Execute(sql)
Cnn.Close
Set Cnn = Nothing
End Sub

复制代码

宅女 · 发表于 2010-12-2 16:42

嗯嗯恩恩就是要这样的。怎么得出的呢？

laowuwyx · 发表于 2010-12-2 16:44

原帖由宅女于 2010-12-2 16:42 发表
嗯嗯恩恩就是要这样的。怎么得出的呢？

数据透视表最基本的操作完成的。

chinjingo · 发表于 2010-12-2 16:43

救到火麽？附件在2楼

宅女 · 发表于 2010-12-2 16:43

啊，我看不懂~~囧

MicrosoftEH · 发表于 2010-12-2 16:49

函数版的，看看

宅女 · 发表于 2010-12-2 16:49

没用过数据透视表~~

		自动登录	找回密码
密码			免费注册

回复 7楼 laowuwyx 的帖子