史上最全！Excel 如何合并多个工作表或多个工作簿

Excel表格的合并分为两种情况，一种是工作表合并、一种是工作簿合并。

一个Excel表格叫做工作簿，每个工作簿中的Sheet叫做工作表。

 

针对这两种情况的表格合并，今天我们来做个小结，看看都要哪些方法。

不管你是高版本Excel还是低版本Excel，总有一种方法适合你。

当然这里不考虑极端的情况，如工作表/工作簿表头不一致、列数不同等，这里默认需要合并的工作表/工作簿表头都是一致的。

工作表的合并

工作表的合并，顾名思义，合并同一工作簿下所有Sheets的数据，针对数据的多少，有不同的方法。

 

方法一 剪贴板法

如果需要合并的数据比较少，这里可以利用剪贴板。

首先调出Excel剪贴板，它在开始功能区的最左边。

 

接着选中第一个sheet的内容，按CTRL+X快捷键，将sheet1内的所有内容剪切到剪贴板中，同样的操作，将所有sheet的内容，全部CTRL+X剪切到剪贴板。

全部剪切完成，在新建的sheet中，点击左侧剪贴板中的“全部粘贴”按钮，完成工作表的合并。

方法二 VBA法

不需要看懂代码，将代码复制粘贴到需要合并的工作簿中来，运行即可，表格合并完成。

按Alt+F11两键，调出Visual Basic 界面，在左侧窗口中，右键选择“插入”—“模块”，将代码粘贴进去，点击运行按钮，完成数据表合并。

 

明细代码如下所示（直接复制可用）：

Sub 合并当前工作簿下的所有工作表()On Error Resume NextApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseSet st = Worksheets.Add(before:=Sheets(1))st.Name = "合并"For Each shet In Sheets:If shet.Name "合并" Theni = st.Range("A" & Rows.Count).End(xlUp).Row + 1shet.UsedRange.Copyst.Cells(i, 1).PasteSpecial Paste:=xlPasteAllEnd IfNextApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueMsgBox "已完成"End Sub

 

方法三 Power Query

Power Query是Excel2016及其以上才有的功能，如果你的Excel版本较低，强烈建议安装较高版本的，可看历史文章，有详细的安装教程。

 

依次点击【数据】—【获取数据】—【自文件】—【从工作簿】，选中需要合并的工作簿，点击【导入】。

 

之后进入到导航器界面，选中文件夹，点击【转换数据】。

 

进入Power Query编辑界面，取消勾选不需要的表名，之后点击Data列扩展数据，点击确定，完成数据表的合并，最后一步，点击左上角的“关闭并上载”即可将数据加载到Excel当中去。

剪贴板法适合少量表格的合并，VBA方法适合任意版本的Excel版本的数据合并，Power Query法只适合Excel2016及以上版本，如果其它版本想用这个功能，需要单独下载插件。

工作簿的合并

工作簿的合并指合并在同一个文件下下所有的Excel工作簿。

方法一 Windows 批处理命令

首先我们需要将Excel表格文件另存为CSV文件，这一步可以通过VBA批量操作。

打开任意工作簿，调出Visual Basic 界面，输入以下代码（如何插入代码上面有介绍，这里不再赘述）

Sub xlsxtocsv()Application.ScreenUpdating = FalseApplication.DisplayAlerts = Falset = ActiveWorkbook.Namemypath = ActiveWorkbook.Path & ""myfile = Dir(mypath & "*.xlsx")Do Until Len(myfile) = 0If myfile t Then Workbooks.Open Filename:=mypath & myfile ActiveWorkbook.SaveAs Filename:=mypath & Left(myfile, InStr(myfile, ".") - 1) & ".csv", FileFormat:=xlCSVEnd IfIf myfile t Then ActiveWorkbook.Closemyfile = DirLoopApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub

 

执行完毕后，将会将每一个表格生成一份csv文件。

 

接着新建一个txt文