多sheet汇总

守护你de爱

1. Sub hb()
   
2. 
   
3. Dim bt, i, r, c, n, first As Long
   
4. 
   
5. bt = 1 '表头行数，多行改为对应数值
   
6. 
   
7. Cells.Clear
   
8. 
   
9. For i = 1 To Sheets.Count
   
10. 
    
11.     If Sheets(i).Name <> ActiveSheet.Name Then
    
12. 
    
13.         If first = 0 Then
    
14. 
    
15.             c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column
    
16. 
    
17.             Sheets(i).Range("A1").Resize(bt, c).Copy Range("A1")
    
18. 
    
19.             n = bt + 1: first = 1
    
20. 
    
21.         End If
    
22. 
    
23.         r = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row
    
24. 
    
25.         Sheets(i).Range("A" & bt + 1).Resize(r - 1, c).Copy Range("A" & n)
    
26. 
    
27.         n = n + r - bt
    
28. 
    
29.     End If
    
30. 
    
31. Next
    
32. 
    
33. End Sub

复制代码

以上代码如何可以做到全部sheet合并时，指定两个sheet(Summary、Total)不进行汇总，谢谢！！

cjc209

If Sheets(i).Name <> ActiveSheet.Name and Sheets(i).Name <>"Summary" and Sheets(i).Name <>"Total" Then

cjc209

排除法            

守护你de爱

感谢您的帮助，提前祝新快快乐~

cjc209

守护你de爱 发表于 2019-1-12 11:32
感谢您的帮助，提前祝新快快乐~

这些都是基础的基础

cjc209

VBA的基础就是 对象 属性 方法 循环 条件判断 字典 正则这一些基础的东西 除外就是思路 也即是怎么写步骤的问题了

cjc209

除外就是怎么处理错误 跳转语句了

cjc209

还有就是各种事件 窗体的一些高级的东东 比较难的就是 VBA在各种office文件中的相互取值或者储存值得代码写法

cjc209

VBA的核心就是循环的问题 个人理解

cjc209

真是因为有了循环 他的功能才强大