如何通过VBA汇总EXCEL工作表中的数据

学生甲1

试试这段代码。
Sub 汇总()
   
    Dim sql$
    Start = Timer
   
    With Sheet1
         Application.ScreenUpdating = False
         .[c3:h12].ClearContents
         Set conn = CreateObject("adodb.connection")
         conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0; hdr=yes; imex=2'; Data Source=" & ActiveWorkbook.FullName
         sql = "transform sum(½ð¶î) select Ã÷ϸ˵Ã÷ from [sheet2$] group by Ã÷ϸ˵Ã÷ pivot ²¿ÃÅ˵Ã÷"
         Set rs = CreateObject("adodb.recordset")
         rs.Open sql, conn, 1, 3
         For Each field In rs.fields
             .Cells(2, 2).Offset(0, i) = field.Name
             i = i + 1
         Next
         .Cells(3, 2).CopyFromRecordset rs
         conn.Close
         Set conn = Nothing
         Application.ScreenUpdating = True
    End With

    MsgBox Timer - Start & "Ãë"

End Sub

学生甲1

不好意思，刚才那一段乱码了，重新再发一遍。
Sub total()
   
    Dim sql$
    Start = Timer
   
    With Sheet1
         Application.ScreenUpdating = False
         .[c3:h12].ClearContents
         Set conn = CreateObject("adodb.connection")
         conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0; hdr=yes; imex=2'; Data Source=" & ActiveWorkbook.FullName
         sql = "transform sum(金额) select 明细说明 from [sheet2$] group by 明细说明 pivot 部门说明"
         Set rs = CreateObject("adodb.recordset")
         rs.Open sql, conn, 1, 3
         For Each field In rs.fields
             .Cells(2, 2).Offset(0, i) = field.Name
             i = i + 1
         Next
         .Cells(3, 2).CopyFromRecordset rs
         conn.Close
         Set conn = Nothing
         Application.ScreenUpdating = True
    End With

    MsgBox Timer - Start & "秒"

End Sub

xmyjk

原帖由 学生甲1 于 2011-5-24 09:17 发表
不好意思，刚才那一段乱码了，重新再发一遍。
Sub total()
   
    Dim sql$
    Start = Timer
   
    With Sheet1
         Application.ScreenUpdating = False
         .[c3:h12].ClearContents
   ...

谢谢分享SQL的，略比数组和字典慢些。如果有兴趣也欢迎把那个三条件的做看看。

[ 本帖最后由 xmyjk 于 2011-5-24 09:56 编辑 ]

gun44

今天才知道字典的用法。感谢各位的分享。

TFQWFN

真是高手，学习了

463680439

牛人啊 学习中，本人小白

Buffett123

兴趣和办实事我总喜欢分开，如果数据透视表可以，我觉得不会自己编程。

孤独行星双星记

真是高手，一定要好好学习了。

lzqmsy

5楼真是太厉害了,高手,学习了,谢谢!!!

lzqmsy

32楼的代码更快,学习了,谢谢!!!