求大神帮忙做个汇总宏

youaspect

附件的表里有，XX-宏站， XX-室分， 要求是把宏站的数据汇总到  宏站子项明细  ，  室分的数据汇总到   室分子项明细，目前只有 2  3个地市的，宏做好后  以后增加地市也能用才行， 表头是 第一二行 。
谢谢！！！！

iwangyi

Sub HZ()
Set cn = CreateObject("adodb.connection")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
For Each sh In Sheets
x = sh.Name
If sh.Name <> "宏站子项明细" And sh.Name <> 室分子项明细 And InStr(sh.Name, "宏站") > 0 Then
Sql = "SELECT * FROM [" & sh.Name & "$A2:de]"
N = Sheets("宏站子项明细").[a64436].End(3).Row + 1
Range("a" & N).CopyFromRecordset cn.Execute(Sql)
ElseIf sh.Name <> "宏站子项明细" And sh.Name <> 室分子项明细 And InStr(sh.Name, "室分") > 0 Then
  SqlL = "SELECT * FROM [" & sh.Name & "$A2:de]"
M = Sheets("室分子项明细").[a64436].End(3).Row + 1
Sheets("室分子项明细").Range("a" & M).CopyFromRecordset cn.Execute(SqlL)
End If
Next
End Sub

iwangyi

请楼主参考按宏站子项明细和室分子项明细分别汇总

youaspect

提示这个，怎么弄

iwangyi

试过了没有问题