多个部门的工资单，怎么做到一张excel表中，格式相同

Question

就是好多部门的每月的工资单，都有汇总到同一张表中。例如生产部1-12月工资单，经营部1-12月工资单，技术部1-12月工资单，汇总成xx公司1月工资单，2月工资单。。。一直到12月工资单

Answer 1

既然可以使用power query来合并

Answer 2

写代码可以实现

Answer 3

描述的不是很清楚。如果工作簿或工作表过多，可用Vba代码快速合并到一张工作表中。

追问

麻烦具体一些可以吗

追答

用以下宏代码合并所有工作表

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub