多个excel工作簿合并

这是一个很常见的问题，日常工作中，往往需要从来自各个地区或者部门的数据进行合并然后统计分析。

这里我分享下如何使用Excel2016直接合并多张工作簿，！

将需要合并的工作簿整理到一个工作目录中

菜单选择数据，获取数据，子文件，从文件夹，并在面板中选择目录地址，确定

选择合并和加载

在合并面板中，记得选择工作表

最后点击，加载即可。

在合并后的工作表任意区域，右键，在菜单中选择刷新

WWw‖.BaZHiSHI.COM

Q2：如何把多个Excel工作簿合并成一个新的工作簿

方法/步骤
将需要合并的excel工作簿文件放置在一个文件夹中。
每个文件夹中的工作簿都输入了简单的内容。
在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.
打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。
在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。
在代码窗口中，黏贴下列代码：
Sub CombineFiles()
DimpathAs String
DimFileNameAs String
DimLastCellAs Range
DimWkbAs Workbook
DimWSAs Worksheet
DimThisWBAs String
Dim MyDir AsString
MyDir =ThisWorkbook.path & "\"
ChDriveLeft(MyDir, 1) find all the excel files
ChDir MyDir
Match =Dir$("")
ThisWB =ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path =MyDir
FileName =Dir(path & "\*.xls", vbNormal)
Do UntilFileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Valuehttps://www.bazhishi.com/aldyjtapi/= "" And LastCell.Address = Range("$A$1").AddressThen
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True
Set Wkb =Nothing
Set LastCell= Nothing
End Sub
6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。

W@ww.bAzHisHI.com

Q3：那个把多个excel工作表怎么合并成一个工作簿，我下了一个你说的excel工

楼主是说要收集多个工作簿中的工作表，合并成一个新的工作簿是吗？那可以用下面这个试试
链接：http://pan.baidu.com/s/1dFhD8yP 密码：stnv

wwW.bAZ‖hIsHi.com

单击共享工作薄

勾上允许多用户同时编辑就好了

高级里面的选项根据自己要求选择就行

只需右击工作表标签，在右键菜单中选择"移动或复制"

然后在"移动或复制工作表"面板中，选择目标工作簿即可。

这就是Excel中的一个最基础的操作。

在日常工作中，更为常见的是，如何将多个工作簿中的多个工作表汇总到一张工作表中。

这里，我就再分享几个汇总多张工作表的方法：

多重透视表汇总多张工作表

使用SQL汇总多张工作表

合并计算汇总多张工作表

公式汇总多张工作表

这里仅作抛砖引玉，详细技巧可以关注我哦！

Q6：怎么将多个Excel工作簿合并成一个新的工作簿

将多个Excel工作簿合并成一个新的工作簿的步骤如下：

1、

2、

3、

4、

5、

6、

Q7：excel如何将一个工作簿中的多个工作表合并到一张工作表上

打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去，然后 上面有个运行运行子程序就可以了，代码如下，如果 出现问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试
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