[已解决]多张表头相同的表合并问题

young0914

我有一个excel表，里面有很多sheet。表头都相同，行数不同。现在要把所有的sheet合并到sheet1，（sheet1是新建我用来合并的），表头可以保留，因为填报单位有所不同。具体见附件 多张表合并.rar (24.47 KB, 下载次数: 110)

2012-4-16 10:15 上传

点击文件名下载附件
合并

最佳答案

月排行榜 / 总排行榜

桀骜孤星

2012-4-16 12:14

1. 
   
2. Sub 合并()
   
3. h = 5
   
4. For i = 2 To Sheets.Count
   
5. 
   
6. x = Sheets(i).Range("a65536").End(3).Row
   
7. Sheets(i).Range("a5" & ":m" & x).Copy
   
8. Sheets(1).Paste Range("a" & h)
   
9. h = Sheets(1).Range("a65536").End(3).Row + 2
   
10. Next
    
11. End Sub
    

复制代码

多张表合并.rar (44.42 KB, 下载次数: 249)

2012-4-16 12:14 上传

点击文件名下载附件

跳转到最佳答案楼层

业余爱好者

复制粘贴,可能也是个不错的办法

桀骜孤星

好，这个经常要弄的

1. 
   
2. Sub 合并()
   
3. For i = 2 To Sheets.Count
   
4. h = 5
   
5. x = Sheets(i).Range("a65536").End(3).Row
   
6. Sheets(i).Range("a5" & ":m" & x).Copy
   
7. Sheets(1).Paste Range("a" & h)
   
8. h = h + 2
   
9. Next
   
10. End Sub
    

复制代码

多张表合并.rar (37.04 KB, 下载次数: 41)

2012-4-16 11:07 上传

点击文件名下载附件

young0914

桀骜孤星 发表于 2012-4-16 10:34
好，这个经常要弄的

用你的方法试了一下，运行宏后只有143行，少了很多行啊。

桀骜孤星

等我再看下，可能是有些没序号吧

桀骜孤星

1. 
   
2. Sub 合并()
   
3. h = 5
   
4. For i = 2 To Sheets.Count
   
5. 
   
6. x = Sheets(i).Range("a65536").End(3).Row
   
7. Sheets(i).Range("a5" & ":m" & x).Copy
   
8. Sheets(1).Paste Range("a" & h)
   
9. h = Sheets(1).Range("a65536").End(3).Row + 2
   
10. Next
    
11. End Sub
    

复制代码

多张表合并.rar (44.42 KB, 下载次数: 249)

2012-4-16 12:14 上传

点击文件名下载附件

young0914

这下就好了。太感谢了！

connie10o

谢谢分享

这个代码是写到哪里了啊，我看表里面没有呀