[求助]多个工作表汇总问题？

zyq173752

<p>各位高手：</p><p>3表为汇总表，是各分表计算的，但条件为月、日二者同时都要求。</p><p></p> wqEMgdiE.rar (1.75 KB, 下载次数: 5)

2006-11-17 16:36 上传

点击文件名下载附件
[求助]多个工作表汇总问题？

<br/>

[此贴子已经被作者于2006-11-17 16:36:56编辑过]

chen7806

2641是兵工厂吧。怎么看不太懂？

zyq173752

附件我已传上，请各位高手帮忙!

chen7806

<p>1。写了一个简单程序，放在汇总表，本程序指3表，把各表数据追加过来。</p><p>Sub hhh()<br/>cells.ClearContents<br/>Application.ScreenUpdating = False<br/>r = Application.ThisWorkbook.Sheets.Count<br/>For i = 1 To r - 1<br/>&nbsp;&nbsp;&nbsp; w = Cells(65536, 1).End(xlUp).Row + 1<br/>&nbsp;&nbsp;&nbsp; Sheets(i).Range("a1").CurrentRegion.Copy Sheets(3).Cells(w, 1)<br/>Next i</p><p>w = Cells(65536, 1).End(xlUp).Row<br/>For i = w To 2 Step -1<br/>&nbsp;&nbsp; If Cells(i, 1) = "年" Then Rows(i).Delete<br/>Next i<br/>Application.ScreenUpdating = True<br/>Sheets(1).Rows(1).Copy Rows(1)<br/>End Sub</p><p>2。然后，用数据透视表。</p><p></p> nKJwRb2Q.rar (10.19 KB, 下载次数: 19)

2006-11-17 19:05 上传

点击文件名下载附件

<br/>

[此贴子已经被作者于2006-11-17 19:05:36编辑过]