继上篇大猫为大家介绍了合并多个工作簿的VBA代码之后，这篇我们继续为大家介绍一个实用的技能。

将一个excel文档中的多个工作表进行合并为一个工作表

打开要合并的工作簿

按alt+F11进入VBA工程界面

新建一个模块

复制下面的代码，然后执行即可

作用结果是：

它会新建一个叫做“汇总”的工作表，然后把当前工作簿里的所有Sheet里有数据的内容都复制到“汇总”表里。提示：如果数据表里的内容没有表头的话需要把StartRow = 2改成StartRow = 1

Function LastRow(sh As Worksheet)

On Error Resume Next

LastRow = sh.Cells.Find(what:="*", _

After:=sh.Range("A1"), _

Lookat:=xlPart, _

LookIn:=xlFormulas, _

SearchOrder:=xlByRows, _

SearchDirection:=xlPrevious, _

MatchCase:=False).Row

On Error GoTo 0

End Function

Sub MergeSheets()

Dim sh As Worksheet

Dim DestSh As Worksheet

Dim Last As Long

Dim shLast As Long

Dim CopyRng As Range

Dim StartRow As Long

Application.ScreenUpdating = False

Application.EnableEvents = False

'新建一个“汇总”工作表

Application.DisplayAlerts = False

ActiveWorkbook.Worksheets("汇总").Delete

Application.DisplayAlerts = True

Set DestSh = ActiveWorkbook.Worksheets.Add

DestSh.Name = "汇总"

'开始复制的行号，忽略表头，无表头请设置成1

StartRow = 2

For Each sh In ActiveWorkbook.Worksheets

If sh.Name <> DestSh.Name Then

Last = LastRow(DestSh)

shLast = LastRow(sh)

If shLast > 0 And shLast >= StartRow Then

Set CopyRng = sh.Range(sh.Rows(StartRow), sh.Rows(shLast))

If Last + CopyRng.Rows.Count > DestSh.Rows.Count Then

MsgBox "内容太多放不下啦！"

GoTo ExitSub

End If

CopyRng.Copy

With DestSh.Cells(Last + 1, "A")

.PasteSpecial xlPasteValues

.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End With

Next

ExitSub:

Application.GoTo DestSh.Cells(1)

DestSh.Columns.AutoFit

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

大家好，Excel合并单元格，是一个让人又爱又恨的东西！强烈建议，尽量不要把单元格合并在一起，因为合并单元格会给以后的数据处理带来很多的麻烦！但合并单元格的功能，在套打或设定版面时，又有其不可替代的作用，因此让人又爱又恨！

我们在工作中经常会遇到需要合并相同值的单元格，但是对于Excel有大量需要合并单元格的时候，你真确定要一个一个的合并吗？其实你大可不必慌忙，我们今天分享的VBA小代码内容是批量合并相同值的单列单元格。您只需将以下代码复制到VBE窗口中，执行代码即可。

照例举个例子，如下图所示，C列是部门字段，需要将相同的部门单元格修改为合并单元格。

源数据：

我们看看执行的效果：

看了上面的动画，是不是感觉非常适合合并大量的单元格。其实上述的代码也是非常简单.

附上Excel VBA代码

Sub MergeRange()

Dim rngData As RangeDim i&, lngCol&, lngFirst, lngLast On Error Resume Next

Set rngData = Application.InputBox("请选择单列数据列！", Default:=Selection.Address, Type:=8)

Set rngData = Intersect(rngData.Parent.UsedRange, rngData) 'intersect语句避免用户选择整列造成低效运算

lngCol = rngData.Column 'rngData所在列 lngFirst = rngData.Row '用户选择的区域并不是一定从第一行开始，使用此句读取开始行

lngLast = lngFirst + rngData.Rows.Count - 1 'rngData结束行 Application.ScreenUpdating = False '取消屏幕刷新 Application.DisplayAlerts = False '取消消息提醒。 rngData.Parent.Select

'激活rngData对象所在的工作表，避免跨工作表操作问题 For i = lngLast To lngFirst + 1 Step -1 '对rngData进行从尾向前遍历 If Cells(i, lngCol) = Cells(i - 1, lngCol) Then Cells(i - 1, lngCol).Resize(2, 1).Merge End If Next

rngData.VerticalAlignment = xlCenter '单元格格式上下居中 Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "合并完成！"End Sub

PS:

1，该段代码只支持单列单元格区域，即按照相同的列进行合并。例如A10:A20，B2:B500等。

2，由于merge合并后的单元格区域只保留右上角首个单元格的值，因此该段代码遍历单元格区域的顺序是从后向前，而不是从前向后，后者是新人常出错之处，注意for-next循环是从Step -1开始的。

3，当然也可以采用从前向后的遍历顺序，先将Rng装入数组，对数组中的数据进行遍历判断是否等同，标记头尾行号，再批量合并单元格。该方法的效率也会高于遍历单元格两两合并的方法。

其实合并单元格，对我处理数据的时候，造成非常大的麻烦，我们最好还是少合并单元格。

以上就是今天要和大家分享的技巧，希望对大家有所帮助,祝各位一天好心情！

Excel中的每一个函数都有特定的用途，不是他们没有用处，而是你不了解他们或者用不着，建议同学们收藏起来，万一要用着呢！

唯有不断学习，才能不被淘汰!

在 Excel Power Query 未出来之前，把文件夹下所有文件合并为一个与合并同一工作表中的多个工作表，需要用 VBA 实现，比较麻烦。有了 Power Query 后，不用再写代码，直接用它就可以合并一个文件夹（可包含子文件夹）下所有的 Excel 文件与一个 Excel 文档中所有 Sheet。用 Power Query 合并文件，主要是通过查询导入的办法实现，以下就是它们的具体操作方法，实例中操作所用版本均为 Excel 2016。

一、Excel用Power Query把多个工作表Sheet合并到一个工作表

1、选择“数据”选项卡，单击“新建查询”，在弹出的菜单中依次选择“从文件”→ 从工作簿，打开“导入数据”窗口，定位到要合并的Excel文件所在的文件夹，双击要合并的文件（如 Power Query合并多个工作表），则弹出提示正在连接文件小窗口，连接完成后，打开“导航器”窗口，勾选“选择多项”，依次勾选“1月至6月”6个工作表，单击右下角的“加载”，打开“查询编辑器”窗口，选中左边的“1月”，单击“表格图标”，在弹出的菜单中选择“追加查询”，打开“追加”窗口，单击下拉列表框，在弹出的选项中选择“2月”，则把工作表“2月的数据”添加到“1月的数据”后面；同样方法添加“3月至6月的数据”，添加完成后，单击“查询编辑器”左上角的“关闭并上载”，在弹出的菜单中选择“关闭并上载”，则“1月至6月的数据”添加到 Excel 文档中；操作过程步骤，如图1所示：

提示：当从 Excel 文件导入数据时，在最后一步把数据添加到 Excel 文档时，可能会弹出“初始化数据源失败”的提示，单击“确定”即可。

2、在“查询编辑器”窗口，追加合并数据时，除可以从“表格图标”选择“追加查询”外，还可以直接选择窗口右上角的“追加查询”，如图2所示：

3、如果合并的工作表中有重复记录，把数据添加到一个表（如“1月”）后，可以单击“表格图标”，在弹出的菜单中选择“删除重复项”，如图3所示：

二、Excel用Power Query把多个文件合并成一个文件，仅把 Sheet 添加到工作薄并未合并数据

1、单击“数据”选项卡下的“新建查询”，依次选择“从文件”→ 从工作薄，打开“导入数据”窗口，定位到要合并的Excel文件所在的文件夹，双击要合并的文件（如 Power Query 合并查询），则所选文件导入到“导航器”窗口，勾选“选择多项”，依次勾选“Sheet1 和 Sheet2”，单击“编辑”，打开“查询编辑器”窗口，单击窗口右上角的“新建源”，在弹出的菜单中依次选择“文件””→ Excel，再次打开“导入数据”窗口，同样定位要合并文件所在文件夹，双击要导入文件（如 Power Query合并多个工作表），打开“导航器”窗口，再次勾选“选择多项”，并依次选择“1月至6月”六个工作表，单击“确定”，返回“查询编辑器”窗口，单击“关闭并上载”，在弹出的菜单中选择“关闭并上载”，则两个 Excel 文件的8个工作表合并到一个 Excel 文件中；操作过程步骤，如图4所示：

2、以上演示了把两个 Excel 文件合并为一个文件，如果要把更多的 Excel 文件合并为一个文件，只需在“查询编辑器”窗口重复选择“新建源”，选择 Excel 文件即可。

三、Excel用Power Query把同一文件夹下所有文件合并成一个文件，文件夹下可包含子文件夹

1、选择“数据”选项卡，单击“新建查询”，依次选择“从文件”→ 从文件夹，打开“文件夹”窗口，单击“浏览”，打开“浏览文件夹”窗口，定位到要合并的 Excel 文件所在的父文件夹，选择要合并的 Excel 文件所在文件夹，单击“确定”，打开“查询编辑器”窗口；选中第三列，按住 Shift，再选中第八列，右键选中的列，在弹出的菜单中选择“删除列”，把它们删除；选择“添加列”选项卡，单击“添加自定义列”，打开“添加自定义列”窗口，在“自定义列公式”下输入 =Excel.Workbook([Content])，单击“确定”；返回“查询编辑器”窗口，选中 Custom 列，单击 Custom 右边的双箭头图标，在打开的小窗口中，不勾选“使用原始列名作为前缀”，单击“确定”；单击 Custom.Data 列选中它，再单击 Custom.Data 右边的双箭头图标，在打开的窗口中，勾选“使用原始列名作为前缀”，单击“确定”；把第一至第四列和后三列删除；选择“开始”选项卡，单击“关闭并上载”，在弹出的菜单中选择“关闭并上载”，则所选文件夹下的全部 Excel 文件合并到一个文件；操作过程步骤，如图5所示：

2、提示：在“自定义列公式”下输入的公式 =Excel.Workbook([Content])，是区分大小写，注意不要输错。

四、Excel Power Query 不显示“多项选择”的原因及解决方法

1、Power Query 要求浏览器版本在 ie9 以上；另外，如果浏览设置了不显示图片，即没有勾选“显示图片”，如图6所示：

2、“导航器”中的“选择多项”前的复选框与“查询编辑器”中列字段右边的双箭头图标都不显示，图7是“导航器”中的“选择多项”前的复选框未显示的情况：

3、只要勾选了 ie 中的“显示图片”，它们就会显示，因此，遇到窗口显示不正常的情况不要忘了查看 ie 是否为 9 以上版本与是否勾选了显示图片。

前言：最近总有同学提问

怎么能合并多个工作簿？多个Excel表格汇总到一个表中？怎么把表分发给其他人做调查，收回后能批量合并到一个表中？

合并多个表的确是一个难题，好象除了VBA也没有什么好办法，即使是新兴的power query也很难完成固定位置合并的问题。其实兰色在06年就发现了个很神奇的工作簿合并的功能，所以今天再把这篇旧文翻出来，希望能帮到大家。

这个功能是小编昨天无意中发现的，为什么称它为超重量级Excel功能，小编先给你演示个操作。

【例】在一个文件夹中有N个公司的Excel格式报表，需要把这些报表的数据合并到“报表.xlsx”中。

只是点了一个按钮，然后选取了要合并的文件，刷刷刷，各公司的数据已全部合并过来了，是不是很神奇！（合并多个文件的多个工作表也适用）

小编在合并过程中，使用了一个在Excel中隐藏很深的功能：比较和合并工作簿

我们先把它揪出来：

文件- 选项 - 快速访问工具栏 - 不在功能区域中的命令 - 找到“比较和合并工作簿”

然后在快速访问工具栏中就可以看到它了，只是它是灰色的。

它到底怎么才可以用？ 和小编一起开始操作吧！

1、先设置一个报表模板（可以有多个工作表），把格式设置好，然后设置成共享工作簿。

2、把设置好的模板发放给各公司填写。

3、收到各公司上缴的报表，放在一个文件夹里。

4、合并时，点击“比较与合并工作簿"按钮，选取要合并的文件，然后.....如开始动画演示。多个Excel文件的合并瞬间完成！

在实际工作中，这个功能可以省去非常大的工作量，毕竟把N多个报表汇总到一起是一件多么枯燥又费力的事情。

但这个功能只是合并而不能汇总。

别急，小编再教大家一个神技能，多个表格如何汇总！

多个Excel表格汇总到一个表中，有一个神秘技巧帮你实现！

如下图所示工资表中，含有多个月份的数据。要求在汇总表中把所有月份的数据汇总到一起。

操作步骤：

1、数据选项卡 - 现有连接 - 浏览更多。

2、找到当前操作的excel文件。

3、选取任一个表格名称

4、【导入数据】窗口中，显示方式选“数据透视表”，放置位置选工资表A1单元格（也可以选新工作表）

5、选取刚创建的数据透视表，然后点击 数据透视表工具 - 选项 - 更改数据源 - 连接属性。

6、把下面的代码粘贴到命令文本框里。

------------------------------------

select '3月' as 月份, * from [3月$] union all select '4月' as 月份, * from [4月$]union all select '5月' as 月份, * from [5月$]

-------------------------------------

代码说明：

1) 具体的SQL语句一言两语也说不清楚，同学们只需要按下面的模式套用即可。有多少表，连接多少个。

Select * from [表1$] union all Select * from [表2$] union all Select * from [表3$]....union all Select * from [表N$]

2) '3月' as 月份: 是为三个表创建一个共同的字段（月份），其中引号内3月为自定义字符，用来区分工作表，只是不一定要和工作表名称一致。月份是数据透视表要用的字段名，也是自定义的。中间用 as 连接，放在select 之后 *号之前。如果不需要为三个表创建共同字段名，此部分可以省略。

7、连接完成！下面就是对数据透视表的基本操作，添加行、列标标签和数据标签。

8、调整格式和修改字段标题。最终效果如下图所示。

　如何将多个Excel文件合并成一个且保留原有数据？事实上，我们可以借用Excel宏命令来处理该操作，并且保留原有数据，建立多个Sheet页，具体操作请看下文多个Excel文件合并成一个的方法。

　　如何将多个Excel文件合并成一个且保留原有数据？

　　1、将需合并的Excel文件放在同一个文件夹中，并这个文件中新建一个Excel文件。

　　2、打开新建的Excel文件，按 Alt + F11 键，打开宏，选择视图→代码窗口。

　　3、将下面的代码拷贝进去：

Sub sheets2one() '定义对话框变量 Dim cc As FileDialog Set cc = Application.FileDialog(msoFileDialogFilePicker) Dim newwork As Workbook Set newwork = Workbooks.Add With cc If .Show = -1 Then Dim vrtSelectedItem As Variant Dim i As Integer i = 1 For Each vrtSelectedItem In .SelectedItems Dim tempwb As Workbook Set tempwb = Workbooks.Open(vrtSelectedItem) tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i) newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "") tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set cc = Nothing End Sub

　　4、点击运行选项运行宏命令。

　　5、之后弹出选择对话框，选择要批量合并的Excel名，确定即可。

　　6、程序运行完毕后，会自动生成一个工作簿，工作簿内包含所有需合并的Excel文件，将工作簿另存为即可。

　　以上步骤便是，合并后的Excel文档会献出多个Sheet页，我们可以很方便的切换了解。

关注

转发

收藏

会让小编更有动力输出高价值的内容

今天

我们来讲讲

在职场中经常会用到的

EXCEL合并技巧

合并

顾名思义

就是将多个内容合并成新的内容

从范围上讲

它包括

单元格与单元格之间的合并

区域与区域之间的合并

工作表与工作表之间的合并

工作簿与工作簿之间的合并

那么

我们就一起来看看

这4种都是怎么进行合并的

一：单元格与单元格

以下列表格为例

将A列和B列的内容合并到C列中

使用连接符号&

按住“Shift和7”出现&

输入“=A2&B2”

合并后如下

二：区域与区域

以下列表格为例

将新工号区域合并到旧工号区域上

复制新工号区域

选中A1

右击选择【选择性粘贴】

勾选【跳过空单元】

点击确定

合并后如下

三：工作表和工作表

以下列3个工作表为例

将【1月销售量】工作表

和【2月销售量】工作表

的牛奶和面包的销售量

合并到【1,2月总销售量】中

选中【1,2月总销售量】中的范围

点击【数据】—【合并计算】

函数选择【求和】

引用位置选择

【1月销售量】和【2月销售量】

中的销售量范围

最后点击确定

合并后如下

四：工作簿和工作簿

以下列两个工作簿为例

将工作簿【1-6月工资】的内容

合并到工作簿【7-12月工资】上

将两个工作簿都打开

在【1-6月工资】工作簿上

点击【视图】—【全部重排】—【垂直并排】

在【1-6月工资】工作簿上

选中【1月】工资表

按住Shift键

选中其他工资表

右击选择【移动或复制】

选择对应的【7-12月工资】工作簿后

选择【移至最后】

点击确定

这样

就将两个工作簿的内容

合并在一起了

所以

这4种EXCEL合并技巧

我们就讲完了

大家看完有没有收获呢

应该都是有的吧

学会这4种EXCEL合并技巧

可是能让你工作效率大大提高的呢

难道你们都不想去试下

关注

转发

收藏

会让小编更有动力输出高价值的内容

合并方法如下：

把需要合并的excel表格文档放到同一个文件夹里

新建一个“数据合并.xlsx“文档

打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：“Alt+F11”，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口

双击工程资源管理器里面的sheet1，在右侧的代码区粘贴如下代码：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面

完成Excel表格的合并。

（本文内容由百度知道网友lvrqing贡献）

一位好朋友最近求助，每个月他都要重复的做相同的工作：有很多很多单独的Excel文件，需要逐个把其中指定的报表批量合并到不同Excel文件中

做了一个示例：把所有文件中的利润表工作表合并到另一个Excel文件中

文件夹中有N个公司的报表（为了方便演示，只列了3个）

每个公司的报表中有N个工作表

如果手工复制，要加班几天才能完成，有简单的方法吗? 还真没有！

除非.....用VBA编程，于是我用了两天时间做了一个报表合并工具。除了给朋友交工外，也分享给有需要求同学们。

1、打开Excel报表合并工具.xlsm，（关注小编，回复“表格合并”就能得到合并工具哦~）点击表格中的按钮会打开弹出合并窗口的主界面。

2、在窗口中进行三个必要操作

选取要合并文件所在的文件夹选取合并后的Excel文件（指定的工作表合并到此文件中）输入要合并的工作表名称

3、点击合并报表按钮进行合并，所有的利润表会合并到一个文件中。

合并多个表格，是工作中最让人头痛的难题，希望做的这个小工具能帮到同学们。

WPS表格的合并功能确实比Excel好用，就工作中最常见的三个案例来说，使用WPS可以一键完成，而使用Excel操作起来却很麻烦。不信，让我们来比一比吧。

案例1：合并同类内容。

合并同类内容可以让报表看起来更清晰美观。在Excel中合并同类单元格，需要分别选中每一个类，不停地点击“合并后居中”，并且每一次点击“合并并居中”按钮，Excel软件都会弹出警告窗口。

而WPS表格中合并同类内容就非常简单了，选中单元格，点击“合并相同单元格”即可一键完成。

案例2：拆分合并单元格后补齐空白。

单元格合并之后，除了看起来方便一些之外，对于计算和统计却很不方便，因此常常需要取消合并单元格并补齐空白。

Excel中，你只能选中单元格一个一个去填充数据。或者按“Ctrl + G”，设置定位条件为“空值”，再输入“=↑”，最后按“Ctrl + Enter”完成补齐空白。

如果你用WPS，就只需要选中单元格，点击“拆分并填充内容”即可。

案例3：合并表头。

工作中，常常需要合并表头。WPS中点击“跨列合并”可以达到如下的效果。

而Excel中点击“跨越合并”后，只有第一个单元格的数据保留下来了，其他数据都被删除了，与WPS中的“按行合并”效果相同。相比“跨列合并”，哪种才是你最想要的效果呢？

功能选项对比。

Excel的合并菜单上就只有“合并后居中”、“跨越合并”、“合并单元格”和“取消单元格合并”四个功能。

WPS表格的合并菜单下有“合并居中”、“合并单元格”、“合并相同单元格”、“合并内容”、“取消合并单元格”、“拆分并填充内容”、“按行合并”、“跨列居中”等。

可以说Excel中支持的合并功能，WPS也都支持。除此之外，WPS还支持更多的功能。如果要处理的数据很多，两者之间的效率差别就很大啦。

谢谢阅读，欢迎点赞、评论、关注和点击头像。

Excel作为一个具有强大的数据处理的办公软件，对于白领一族来说，使用频率应该较高。在处理数据过程中，您是否碰到过清单之类汇总的情况，就是将同一个工作簿中的所有工作表的内容合并到一个工作表中。对于不会取巧的朋友，可能就是一个表一个表的复制，然后粘贴拼凑在一块，若碰到表格数量不多的情况，这种方法还好，若是碰到工作表数量庞大，例如50个工作表，100个工作表......这种方法就很鸡肋。今天本篇以Excel2013为例，教大家如何一键实现所有工作表合并到新工作表中，同样适用于Excel其他版本，碰到细微差异，可以适当调整代码。

教程将内容分成三部分：第一部分是新建一个汇总的工作表，并重新自定义命名；第二部分是逐一将各个工作表复制粘贴到汇总工作表中；第三部分为提示，即当合并工作完成后弹出提示。具体操作如下：

打开工作簿，在工作表标签中会显示包含的工作表名称，教程以下图中三个工作表为例，分别是Sheet1，Sheet2，Sheet3.按下组合键Alt+F11即可从Excel工作界面切换到VBA界面，在VBA窗口单击菜单栏中的插入，找到模块命令，单击该命令即可创建一个新的模块窗口，在模块窗口复制粘贴以下代码：

Sub Comb()

Dim i%

On Error Resume Next

Sheets(1).Select

Worksheets.Add '新建一个工作表

Sheets(1).Name = "汇总工作表" '对新建工作表重命名

For i = 2 To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成

End Sub