如何将指定的多个sheet合并

紫茉08

各位专家，我是真心是VB版块的菜菜鸟级。求助帮忙修正。如果可以再略解说下修改项，更是感激不尽：

1、指定只合并表格中1月-12月的内容汇总到1-12月汇总表里，表头固定；（1-12月汇总的代码我是网上找的，略改了下。真心菜鸟级，改完还是不是自已想要的结果。）
2、是否可以1-12月汇总里设置一个按键，刷新。直接点击即可刷新1月-12月里如有更新的数据。
3、因为我还想用1-12月汇总后显示的内容再通过透视表做汇总统计的。所以必须指定只能合并1月-12月这几个Sheet的内容，不影响我其它SHEET的内容。

谢谢！求助求助！

opiona

1. Sub 合并工作表信息()
   
2. 'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
   
3. Application.ScreenUpdating = False '//关闭屏幕刷新
   
4. Application.DisplayAlerts = False '//关闭系统提示
   
5. 
   
6.    Sheets("1-12月汇总").Range("A4:CC65536").Clear '清除汇总表内容
   
7.    
   
8.    arr = Split("1月,2月,3月,4月,5月,6月,7月,8月,9月,10月,11月,12月", ",")
   
9.     For Each a In arr
   
10.    
    
11.         rw = Sheets("1-12月汇总").UsedRange.Rows.Count + 1
    
12.         t = Sheets(a).UsedRange.Rows.Count
    
13.         Sheets(a).Range("A2:CC" & t).Copy Sheets("1-12月汇总").Range("a" & rw)
    
14.     Next
    
15.    
    
16. '
    
17. '    For i = 4 To 15
    
18. '        rw = Sheets("1-12月汇总").UsedRange.Rows.Count + 1
    
19. '        t = Sheets(i).UsedRange.Rows.Count
    
20. '        Sheets(i).Range("A2:CC" & t).Copy Sheets("1-12月汇总").Range("a" & rw)
    
21. '    Next
    
22. 
    
23. Application.ScreenUpdating = True '//恢复屏幕刷新
    
24. Application.DisplayAlerts = True '//恢复系统提示
    
25. 
    
26. End Sub

复制代码

opiona

2016年统计.rar (16.09 KB, 下载次数: 264)

2016-2-18 08:20 上传

点击文件名下载附件

紫茉08

感激不尽，谢谢！一个月上万条的记录真心伤不起，这个解决了个大忙！谢谢！

fxys6699

这个确实很棒，也很有针对性，如果能更通用一些就好了

LMY123

同薄指定工作表合并