EXCEL2007如何将工作薄中多个工作表的内容合并到一个新的工作 表中

igig2018

比如 每月工资表要合并成一个年度工资总表，每月工资表表头一样，如何处理？请大神指导，因本人智商有限，尽量能解析得详细点，谢谢！
说明：1，2，3，4是4个月的工资，如何将这4个月的工资快速的处理到合并表中，只保留一个表头，其他数据不变，全部复制

败不馁

这个要vba才能快速合并了

PQ小学生

很希望能帮到你 用Powerquery很容易能作出一个解决方案  简单的数据表合并
类似操作详见附图
只是你的office版本比较低 2010以上就好了
不过相信论坛里的大神会有办法的
帮你顶下

igig2018

PQ小学生 发表于 2018-12-29 10:37
很希望能帮到你 用Powerquery很容易能作出一个解决方案  简单的数据表合并
类似操作详见附图
只是你的off ...

亲，谢谢你的热心帮助，但我要的是合并原始数据，不需要汇总

PQ小学生

igig2018 发表于 2018-12-29 10:57
亲，谢谢你的热心帮助，但我要的是合并原始数据，不需要汇总

并没有汇总数据 只是将各表数据合并

igig2018

PQ小学生 发表于 2018-12-29 10:59
并没有汇总数据 只是将各表数据合并

谢谢，重新看了一下，你用的是辅助工具，能不能就用EXCEL直接处理呢？

PQ小学生

要vba了  向版主求助吧

lg0219

PQ小学生 发表于 2018-12-29 10:37
很希望能帮到你 用Powerquery很容易能作出一个解决方案  简单的数据表合并
类似操作详见附图
只是你的off ...

为啥我按演示步骤操作后，显示源错误呢？操作方法一样啊。公式也是=excel.currentworkbook()

lg0219

PQ小学生 发表于 2018-12-29 10:37
很希望能帮到你 用Powerquery很容易能作出一个解决方案  简单的数据表合并
类似操作详见附图
只是你的off ...

帮我看看，想学一下Powerquery

chenguiyu1234

这个是百度来的带表头一起复制过来的

1. Sub 合并当前工作簿下的所有工作表()
   
2. 
   
3. Application.ScreenUpdating = False
   
4. 
   
5. For j = 1 To Sheets.Count
   
6. 
   
7. If Sheets(j).Name <> ActiveSheet.Name Then
   
8. 
   
9. X = Range("A65536").End(xlUp).Row + 1
   
10. 
    
11. Sheets(j).UsedRange.Copy Cells(X, 1)
    
12. 
    
13. End If
    
14. 
    
15. Next
    
16. 
    
17. Range("B1").Select
    
18. 
    
19. Application.ScreenUpdating = True
    
20. 
    
21. MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
    
22. 
    
23. End Sub

复制代码