多表数据汇总，谢谢！

minren118

KCFONG 发表于 2012-8-22 09:45
see if help you

版主的方法很快，用字典来做，看不太明白。

minren118

蓝桥玄霜 发表于 2012-8-22 09:42

版主此法对有公式的情况下出错了，如第一个工作表有几个单元格引用另外的工作表单元格，最终汇总表那里出错了。

minren118

蓝桥玄霜 发表于 2012-8-22 09:42

其他人提交的用字典的方法来操作，不过不太看得明白，速度明显胜于蓝版你的方法呢，刚才的出错截图了

蓝桥玄霜

可把第10句Sht.[a4].Resize(Myr - 3, 10).Copy Cells(m, 1)
改为：
Cells(m, 1).Resize(Myr - 3, 10)=Sht.[a4].Resize(Myr - 3, 10).Value

一指禅62

也是多表汇总问题，参考一下

http://club.excelhome.net/forum. ... 3&page=3#pid6218690

一指禅62

1. 
   
2. Sub 导入数据()
   
3.     Dim cnn As Object, sql$, Sh As Worksheet
   
4.     Set cnn = CreateObject("ADODB.Connection")
   
5.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;HDR=yes';Data Source= " & ThisWorkbook.FullName
   
6.     Range("A2:M65536").Clear
   
7.     For Each Sh In Worksheets
   
8.         If Sh.Name <> "汇总" Then sql = sql & "select * from [" & Sh.Name & "$A3:J] where Len(序号) > 0 union all "
   
9.     Next
   
10.     Range("A2").CopyFromRecordset cnn.Execute(Left(sql, Len(sql) - 11))
    
11.     With Range("A2:J" & Range("A65536").End(3).Row)
    
12.         .Font.Size = 10
    
13.         .Borders.LineStyle = xlContinuous
    
14.     End With
    
15.     cnn.Close: Set cnn = Nothing
    
16. End Sub
    
17. 
    
18. 
    
19. Sub 直接合并()
    
20.     Dim cnn As Object, sql$, Sh As Worksheet
    
21.     Set cnn = CreateObject("ADODB.Connection")
    
22.     cnn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties ='Excel 8.0;HDR=yes';Data Source= " & ThisWorkbook.FullName
    
23.     Range("A2:M65536").Clear
    
24.     For Each Sh In Worksheets
    
25.         If Sh.Name <> "汇总" Then sql = sql & "select * from [" & Sh.Name & "$A3:J] where Len(序号) > 0 union all "
    
26.     Next
    
27.     sql = "select 材料,sum(重量) from (" & Left(sql, Len(sql) - 11) & ")  group by 材料 "
    
28.     Range("H2").CopyFromRecordset cnn.Execute(sql)
    
29.     With Range("H2:I" & Range("H65536").End(3).Row)
    
30.         .Font.Size = 10
    
31.         .Borders.LineStyle = xlContinuous
    
32.     End With
    
33.     cnn.Close: Set cnn = Nothing
    
34. End Sub
    

复制代码

一指禅62

附件                  

lzqmsy

学习蓝桥版主的代码,很有收获,谢谢

卖艺谋生

关注、学习、借鉴

王老师ωǒ/aiq

做得很好哟