如何合并多个工作表？

fc_bao

现有多个工作表，首行都是统一的，请教大侠如何做到快速的将多个工作表合并在一起？



盘点表11.rar (316.22 KB, 下载次数: 29)

2014-2-18 22:30 上传

点击文件名下载附件

dajiahaoxinku12

用手动复制粘贴你肯定嫌麻烦，如果只合并一次，用手动也不算什么。
如果天天都合并用SQL或者就是vba
还有可以用excel插件，百宝箱，易用宝 试试吧。

fc_bao

不是一次啊，至少每月做一次，关键我还有很多别的工作要做呢，不想在这上浪费太多时间。

此用户被禁言

1. Sub 合并()
   
2. Application.ScreenUpdating = False
   
3. For i = 1 To Sheets.Count
   
4. If Sheets(i).Name <> ActiveSheet.Name Then
   
5. x = Range("A65536").End(xlUp).Row + 1
   
6. y = Sheets(i).Cells(Rows.Count, 1).End(xlUp).Row
   
7. Sheets(i).Range("A2:M" & y).Copy Cells(x, 1) '从每一个工作表第二行开始
   
8. End If
   
9. Next
   
10. Range("A1").Select
    
11. Application.ScreenUpdating = True
    
12. MsgBox "已经合并完毕！", vbInformation, "提示"
    
13. End Sub

复制代码

表头先复制一下。。只复制到A-M列的数据  (同时你要注意，你的工作簿里面有两个隐藏的工作表  )如下图

dengjq2000

可以直接借用这个主题的模板： [原创]任意的拆分、合并工作薄和工作表(已升级了分类汇总功能)

fc_bao

此用户被禁言 发表于 2014-2-19 10:53
表头先复制一下。。只复制到A-M列的数据  (同时你要注意，你的工作簿里面有两个隐藏的工作表  )如下图

按照您的方法成功解决，非常感谢！

LMY123

同薄多表合并