如何 分日期部门 汇总

yangxmqj

请问各位高手，如何用VBA把sheet2的最后一列金额按日期及车间汇总到SHEET1里面来啊，我原来 用数组公式写，因为SHEET2里面的数据太多，有大几千条，打开时非常慢，想请高手用VBA帮我写个，不胜感激
sheet1格式如下：
        2010-5-1        2010-5-2        2010-5-3        2010-5-4        2010-5-5        2010-5-6        2010-5-7
一车间                                                       
二车间                                                       
三车间                                                       
四车间                                                       
五车间                                                       
六车间                                                       
七车间                                                       
八车间       
sheet2格式如下
一车间         2010-5-2        王怡        2000
一车间         2010-5-2        张离        1000
二车间        2010-5-7        陈维        4500
。。。。。。。。。。。。。。。

LangQueS

使用如下图形式保存数据，然后用数据透视表汇总

LangQueS

★Excel数据管理的一般规律★        http://club.excelhome.net/thread-287461-1-1.html

yangxmqj

谢谢楼上解答，可以表格是不可以更改的，领导 要求用这种形式的，而且领导不喜欢数据透视表，觉得看了不舒服，希望能用VBA解决这个问题，谢谢

dsmch

vba.rar (7.54 KB, 下载次数: 75)

2010-6-30 15:14 上传

点击文件名下载附件

yangxmqj

謝謝 dsmch的解答，非常非常感谢，不过本人初学VBA，有些语句看了不太懂，不知DSMCH能否在有空时给语句加上注释，让本人学习一下，先行谢过

dsmch

很难说清，建议先参加VBA版学习。

menboy

学习了，谢谢提供

onthetrip

1. Sub datatransform()
   
2. Dim cnn As Object, sql As String, rst As Object
   
3. Dim i As Integer, field
   
4. Set cnn = CreateObject("adodb.connection")
   
5. Set rst = CreateObject("adodb.recordset")
   
6. Sheets(1).Cells.Clear
   
7. cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.FullName
   
8. sql = "transform sum(f4) select f1 from [sheet2$] group by f1 pivot f2 "
   
9. rst.Open sql, cnn, 1, 3
   
10. For i = 1 To rst.fields.Count - 1
    
11. Sheets(1).[a1].Offset(0, i) = rst.fields(i).Name
    
12. Next
    
13. Sheets(1).[a2].CopyFromRecordset rst
    
14. cnn.Close: Set cnn = Nothing
    
15. End Sub

复制代码

liym69

能否改成选择：开始日期到结束日期，这样选择的范围要大。