合并方法如下：

把需要合并的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如何快速秒开、切换和关闭多个工作表，后面再来为这位小伙伴作提出的问题做解答。”

很多时候我们我们需要打开很多个工作表的时候，相信大家都是直接在桌面直接双击要打开的工作表，那大家有没有在工作很忙的时候需要打开另外一个工作表的时候，要回到桌面找到需要打开的工作表再次双击打开，假如你有几十工作表要打开，依次一个一个去打开，反复重复此步骤会不会觉得即浪费时间，又扰乱心情呢！

接下来小爬就来为大家介绍一下如何快速秒开多个工作表：

首先，我们在桌面按住Ctrl键，鼠标左键点击需要打开的工作表（选择需要打开的工作表），按回车键（Enter），多个工作表同时打开。

如何快速在多个工作表间进行切换：

当多个工作表同时打开时，特别是做数据、财务、销售统计等在工作上经常是用Excel的小伙伴的问题就出来了，那就是如何秒开在多个工作表，我们按住Ctrl+tab键这样就可以快速在多个工作表间进行切换。这是office通用的快捷键。

如何快速的关闭多个工作表：

其实Excel本身中就存在这个功能，就是当你多个工作表同时打开时，我们可选择全部关闭的按钮，我们很多时候在菜单栏却找不到这个功能。我们如何调出这个功能呢？有两种操作方式：

第一种操作方式：找到自定义快速访问工具栏，这里的倒三角形，选择其他命令（图1）；把常用命令改为所有命令（图2）；找到全部关闭，点击添加，点击确定（图3）；假如大家需要添加其他功能或菜单栏中没有的功能也可以通过这个方式添加；点击全部关闭即可关闭所有打开的工作表（图4）。当关闭完以后Excel的主界面还在。

第二种操作方式：多个工作表同时打开，我们主要推荐大家使用第二种方式，按住Shift键，用鼠标点击工作表左上方的×，这样我们就直接全部关闭了，这时候Excel的主界面也不存在了。

最后我们就来分享一下文章开始提到哪位小伙伴所阐述的问题吧：

我们怎样才能做到启动Excel时就启动呢，我们点击“文件”找到选项，找到“高级”下滑找到“启动时打开此目录中的所有文件”（图5），我们把需要打开的文件夹路径复制粘贴过里就可以了（图6），相当于告诉Excel我在之后的启动时，帮我把这个目录的文件打开，点击确定。这样我们就大功告成啦！

上期回顾：32位操作系统word转swf格式转换器

excel表格之间的核对，是每个excel用户都要面对的工作难题，今天ostar带大家一起盘点一下表格核对的方法，一共6种，以后再也不用加班勾数据了。

一、使用合并计算核对

excel中有一个大家不常用的功能：合并计算。利用它我们可以快速对比出两个表的差异。

例：如下图所示有两个表格要对比，一个是库存表，一个是财务软件导出的表。要求对比这两个表同一物品的库存数量是否一致，显示在sheet3表格。

库存表：

软件导出表：

操作方法：

步骤1：选取sheet3表格的A1单元格，excel2003版里，执行数据菜单(excel2010版 数据选项卡) - 合并计算。在打开的窗口里“函数”选“标准偏差”，如下图所示。

步骤2：接上一步别关窗口，选取库存表的A2:C10（第1列要包括对比的产品，最后一列是要对比的数量），再点“添加”按钮就会把该区域添加到所有引用位置里.

步骤3：同上一步再把财务软件表的A2:C10区域添加进来。标签位置：选取“最左列”，如下图所示。

进行以上步骤后，点确定按钮，会发现sheet3中的差异表已生成，C列为0的表示无差异，非0的行即是我们要查找的异差产品。

如果你想生成具体的差异数量，可以把其中一个表的数字设置成负数。（添加一辅助列=c2*-1），在合并计算的函数中选取“求和”，即可。另外，此类题目也可以用VLOOKUP函数查找另一个表中相同项目对应的值，然后相减核对。

二、使用选择性粘贴核对

当两个格式完全一样的表格进行核对时，可以用选择性粘贴方法，如下图所示，表1和表2是格式完全相同的表格，要求核对两个表格中填的数字是否完全一致。

今天就看到一同事在手工一行一行的手工对比两个表格。star马上想到的是在一个新表中设置公式，让两个表的数据相减。可是同事核的表，是两个excel文件中表格，设置公式还要修改引用方式，挺麻烦的。

后来一想，用选择性粘贴不是也可以让两个表格相减吗？于是，复制表1的数据，选取表格中单元格，右键“选择粘贴贴” - “减”。

进行上面操作后，差异数据即露出原形。

三、使用sumproduct函数完成多条件核对

一个同事遇到的多条件核对问题，简化了一下。

如下图所示，要求核对两表中同一产品同一型号的数量差异，显示在D列。

公式：

D10=SUMPRODUCT(($A$2:$A$6=A10)*($B$2:$B$6=B10)*$C$2:$C$6)-C10

公式简介：

因为返回的是数字，所以多条件查找可以用sumproduct多条件求和来返回对应的销量。在微信平台回复 sumproduct即可查看该函数的教程。

使用VLOOKUP函数核对

star评：本例可以用SUMIFS函数替代sumproduct函数。

四、使用COUNTIF函数核对

如果有两个表都有姓名列。怎么对比这两个表的姓名哪些相同，哪些不同呢？其实解决这个问题挺简单的，但还是不断的有同学提问，所以这里有必要再介绍一下方法。

例，如下图所示，要求对比A列和C列的姓名，在B和D列出哪些是相同的，哪些是不同的。

分析：在excel里数据的核对一般可以用三个函数countif，vlookup和match函数，后两个函数查找不到会返回错误值，所以countif就成为核对的首选函数。

公式：B2 =IF(COUNTIF(D:D,A2)>0,"相同","不同")

D2 =IF(COUNTIF(A:A,D2)>0,"相同","不同")

公式说明:

1 countif是计算一个区域内（D:D），根据条件(等于A2的值)计算相同内容的个数，比如A2单元格公式意思是在D列计算“张旺财”的个数。

2 IF是判断条件(COUNTIF(A:A,D2)>0)是否成立，如果成立就是返回第1个参数的值（"相同"），不成立就返回第二个参数的值（"不同"）

兰色说：本例是在同一个表，如果不在同一个表，只需要把引用的列换成另一个表的列即可。

五、使用条件格式核对

太多的同学在微信上提问如何查找对比两列哪些是重复的，今天兰色介绍一种超简单的方法，不需要用任何公式函数，两步即可完成。

----------------操作步骤----------------------

第1步：把两列复制到同一个工作表中

第2步：按CTRL键同时选取两列区域，开始 - 条件格式- 突出显示单元格规则 - 重复值。

设置后效果如下：

注：1 此方法不适合excel2003版 ,2003版本可以用countif统计个数的方法查找重复。

2 此方法不适合同一个表中有重复项，可以删除重复项后再两表对比。

六、使用高级筛选核对

高级筛选也能核对数据？可能很多同不太相信。其实真的可以。

回答微信平台一位同学的提问：快速从一份100人的名单中筛选出指定30个人名。

分析：excel2010版本中我们可以直接选取多个项目，但如果一下子给你30个姓名让你从中挑选出来，估计要很久才能完成筛选。这时我们可以借助高级筛选来快速完成。

例：如下图所示AB两列为姓名和销量，要求，根据E列提供的姓名从A列筛选出来。

操作步骤：

选取AB列数据区域，数据 - 高级筛选 - 打开如下图高级筛选窗口，并进行如下设置。

A 列表区域为AB列区域。

B 条件区域为E列姓名区域。注意：一定要有标题，而且标题要和A列标题一样。

点击确定后，筛选即完成。如下图所示。

我们有时候需要将在多个工作表的数据到同一个工作表当中，首先我们需要确认的是这些数据的格式是否具有一致性，如果所有的数据格式都是一样的，那么这个问题就非常好处理了。今天和大家分享的是一键汇总各分表数据到总表。

照例举个栗子，如下图，一个工作簿，包含多个工作表的格式都是相同，现在需要将各个分表的数据汇总到总表中，如果是你，你会怎么去做？

数据分别在不同的工作表中，每个工作表的数据格式都是一致的。

也许你会想到使用数据透视表或者合并计算等方式进行操作。但是你会发现这两种操作方式都有它的不足或者扩展性不强。比如说，当标题行或列是多行（多列）或者存在合并单元格时，也就无能无力了。

我和你说的是VBA代码来实现这个，有时候就是那么一瞬间的错过，你就不会再遇到啦！

我们首先看看，下面的动画教程：

PS:是将分表的数据汇总明细到当前活动的工作表，因此在使用时务必先在需要汇总的表中执行。

附上VBA源代码

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

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

Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？

有的时候一个工作簿中有十多个工作表，想把格式或者数据进行批量处理，如果逐个修改，即便使用复制粘贴功能，依然很是浪费时间，很麻烦。其实，微软为我们提供了很简单的解决方法，那就是先选中多个目标工作表，再进行操作，就可以完成批量修改啦。今天来和小编一起来学习如何为多张工作表同时进行批量编辑吧。

一、选中多个工作表

如果是连续的工作表，则点击第一个目标工作表标签，按住【Shift】键，同时再点击末尾的目标工作表标签，这样就选中了区间所有的工作表。如果不是连续的工作表，则点击第一个工作表标签后，按住【Ctrl】键，依次点击目标工作表，这样就选中了不连续工作表。

二、批量编辑

完成工作表的选中后，在目前单元格中的任意操作都将运用到被选中的每一个工作表中。例如：（1）输入数据：当我在A1中输入数字1，则后面的所有表格中都将在单元格A1中完成数字1的输入。（2）格式设置：比如调整单元格A1中的数字大小、颜色、填充色等。（3）单元格设置：合并单元格、插入、删除、调整单元格大小等；（4）插入公式：自制公式、插入函数等。

PS：完成批量操作后，需要在任意工作表标签上单击鼠标右键，在弹出的列表中，点击【取消成组工作表】按钮，再次操作时就会只应用到当前工作表。

欢迎关注，以上。

工作中，经常会遇到需要同时并列查看两个表格以便减少工作量的情况，不停的切换表格十分影响效率，那么，如何才能设置在同一屏幕查看和对比两个工作薄呢？下面和大家分享两个方法！

方法一：

打开要查看的Excel表格文件。

点击工具栏的‘视图’选项，选择‘并排查看’。

表格分为上下两段后，选择其中一个表格。

点击视图—同步滚动，实现两个表格同时查看，如不需要同时查看亦可取消。

完成表格，取消点击并排查看即可。

方法二：

打开要查看的Excel表格文件。

点击工具栏的‘视图’选项，选择‘全部重排’。

在弹出对话框中选择“水平并排”或“垂直并排”，个人喜好00

表格分为上下或者左右两段后，选择其中一个表格。

点击视图—同步滚动，实现两个表格同时查看，如不需要同时查看亦可取消。

完成表格，取消点击并排查看即可。

工作表又如何同时并列查看？

一个工作簿里的不同工作表又如何同时并列查看？

先把工作表变成临时工作簿，再按照上面方法一、二操作即可。

如何把工作表变成临时工作簿：

今天的课程就到这里，如果您喜欢这堂课程，请帮忙点赞和转发哦，感谢您的支持！

最近两周一直在讲解如何利用VBA，在EXCEL的多个工作表中进行大数据的查询。今天把两周的内容精炼总结一下，想利用这些程序的朋友，可以拷贝下面的代码，放在编译器中就可以直接使用啦。

1 Sub KK()

2 Sheets("SHEET1").Select

3 I = 2

4 Do WhileCells(I, 1) <>""

5 Cells(I,1).Select

6 TT =Cells(I, 1)

7 Cells(I, 2) = ""

8

9 SetFJX =Sheets("A").Range("A1:A"&Sheets("A").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

10 If NotFJXIs Nothing Then Cells(I, 2) = Sheets("A").Cells(FJX.Row, 2)

11

12 SetFJX =Sheets("B").Range("A1:A" &Sheets("B").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

13 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("B").Cells(FJX.Row, 2)

14

15 SetFJX =Sheets("C").Range("A1:A"&Sheets("C").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

16 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("C").Cells(FJX.Row, 2)

17

18 Set FJX=Sheets("D").Range("A1:A" &Sheets("D").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

19 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("D").Cells(FJX.Row, 2)

20 I = I + 1

21 Set FJX =Nothing

22 Loop

23End Sub

代码截图：

工作表截图：注意名称

下面对代码进行逐行讲解：

1 Sub KK() ’KK给出程序的名称

2 Sheets("SHEET1").Select ’指选择sheet1的工作表，并进行操作

3 I = 2 ’是对变量i赋初始值，一般要用Dim i as Integer 进行声明。这里可以仅用Dim i， 也可以再简单点，直接用也行。但这不是说Vba是动态语言，相反，这恰恰说明了VBA作为静态语言的灵活性。

4 Do While Cells(I, 1) <> "" ’DOWHILE是一个循环，是循环的标识，回调语句是loop，WHILE跟循环条件，是指第i行第一个单元格不为空建立一个循环。 变量是i，条件是直到i行的第一个单元格是空值。

5 Cells(I, 1).Select ’要对第I行一个单元格定位，这也是为了程序具有可视性。

6 TT = Cells(I, 1) ’然后把它的值value取出赋給TT，这也是为了以后操作简单。这里TT也是直接用的，略去了声明语句。

7 Cells(I, 2) ="" ’要把第2个单元格清空，两个半角双引号，中间什么也没有就是空值，和空格不同，空格是" "。

8

9Set FJX=Sheets("A").Range("A1:A"&Sheets("A").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

’SET是令FJX等于一个值，(这里也应先给FJX 事先声明此程序略去了)，

sheets（"A"）是指名称为A的那个工作表；

Range("A1:A"& Sheets("A").Range("A1").End(xlDown).Row)是指从A1单元格开始向下直到最后一个不为空的单元格区域；

Sheets("A").Range("A1:A"& Sheets("A").Range("A1").End(xlDown).Row)是指A的工作表中在A1到最后一个不为空的单元格区域；

Find(TT,AFTER:=[A1], LOOKAT:=xlWhole)要查找值为TT的单元格，在A1的after后开始查询，是完全匹配,把区域和之后的操作间隔一个。

这样就把查找的结果赋给了FJX。

10 If Not FJXIs Nothing Then Cells(I, 2) = Sheets("A").Cells(FJX.Row, 2)

’if then 语句, 如果...那么......。查询的结果放在FJX，FJX is Nothing就是说没有查到结果。给它一个逻辑否定，就是前面加个NOT，其意思就是FJX不为Nothing 就是查到了，查到了怎么办？fjx.Row是指查到数据的行号。Sheets("A").Cells(FJX.Row,2)就是在A工作表查到的行号的第2个单元格的值，Cells(I, 2) = Sheets("A")。Cells(FJX.Row, 2)即第i行第2个单元格的值将等于工作表A中查到的行号的第2个单元格的值 Cells(I, 2) 是哪个工作表呢？指Sheets("SHEET1")。

11

12 SetFJX =Sheets("B").Range("A1:A"&Sheets("A").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

13 If Not FJX Is Nothing Then Cells(I, 2)=Sheets("B").Cells(FJX.Row, 2)’这两行类似于第9第10行，是处理当在B工作表中继续查找的操作。当查到后会有第13行的操作，和第10行的操作一样，这里要注意：第一，xlwhole是指单元格完全匹配的查找。第二，连接字符串的符号是＆，不可用加号，当用到.cells时前面要用With，现在还没有用到，以后会有。

14

15 SetFJX =Sheets("C").Range("A1:A"&Sheets("C").Range("A1").End(xlDown).Row).Find(TT, AFTER:=[A1], LOOKAT:=xlWhole)

16 If Not FJXIs Nothing Then Cells(I, 2) =Sheets("C").Cells(FJX.Row, 2)

’15行和16 行是在工作表“C”中进行的查找，也就是说：首先在工作表“A”中查找，然后就在“B”中查找，再次在"C"中查找。一旦查找到就执行将此行的第二个单元格的VALUE赋给 Sheets("SHEET1")的工作表的I行第二个单元格值，这样就实现了在多个工作表中的查询。

17

18 Set FJX=Sheets("D").Range("A1:A" &Sheets("D").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)

19If Not FJX Is Nothing Then Cells(I, 2)=Sheets("D").Cells(FJX.Row, 2)

’18行和19 行是执行工作表D的查找。回顾一下，从第9行开始直到第19行总共运行了4个工作表

20I = I + 1 ’I值增加1

2121 Set FJX = Nothing ’另FJX为空准备下轮的查找

22 Loop ’程序回调到第4行 DO WHILE

23 End Sub ’程序结束。

有兴趣的朋友可以试着使用一下，如果好用别忘了分享。如果有改进，别忘了晒晒代码。

分享成果，随喜正能量

最近经常会有同学在问：两个格式相同的工作表怎么核对出不同的数据内容？

两份相同的销售报表，要从里面找出不同的数据要怎么做呢？数据少的话，一看就能找出不同的；数据多的话，那要自己一个个看就没那么容易找出来了。今天就来跟大家分享在Excel文件中两个工作表如何快高效快速的核对出不同的数据内容？

我们来看下下面的两份销售报表，需要核对出两表中不同的数据内容。

下图是销售报表1：

销售报表1

下图是销售报表2

销售报表2

我们需要将；两份销售报表中不同的数据内容在其中一份销售报表内突显标记。为了方便大家能看出效果，我先将两份销售报表中的不同数据内容均已突显标记。如下图：

核对两表不同数据内容突显标记

1、Excel文件中两份销售报表在销售报表1

通过条件格式新建规则设置

2、在“条件格式”的“新建格式规则”对话框中选择“使用公式确定要设置格式的单元格”——为符合此公式的值设置格式：=A1<>销售报表1!A1；点击格式处设置单元格格式填充颜色确定后，会返回到新建格式规则对话框，再点击确定。

新建格式规则设置完成

3、设置完成之后，就会看到在销售报表1里突显标记与销售报表2不同的几处数据内容。

两表快速核对出不同的数据

如果想在销售报表2也突显标记与销售报表1不同的数据内容与上面的操作步骤一样设置就可以完成。如下图：

在销售报表2处突显标记与销售报表1不同的数据内容

两个相同格式的工作表，在通过Excel表格中条件格式设置就可快速核对出两个工作表不同的内容，还有一种方法也能核对出两个工作表不同的内容，那就是通过选择性粘贴——运算——“减”来完成核对两个工作表中的差异数。

今天就简单的跟大家分享Excel文件中通过条件格式设置来高效快速的核对两个工作表中不同内容进行突显标记，希望对各位朋友在工作中有所帮助！

更多关于Office——Excel操作技巧可加入我们交流！

Excel的分身术：在多个窗口中查看同一个工作表

大家好，我是@爱玩电脑。今天给大家讲讲如何将办公软件Excel的同一个工作表内容在两个及以上的窗口中显示，方便我们查看工作表的不同部分，进行数据核对、处理。我们前面讲过一个窗口拆分功能：天涯若比邻：Office办公软件的窗口拆分功能方便核对数据，这次讲的是另外一种方法。

概况：演示用的办公软件为Excel2007。我们的表格是这个样子的，表格的文件名是"新建窗口示例表格"：

一、新建窗口

点击"视图"/"新建窗口"。好像没什么变化？实际上你可以看到表格的名字已经变成"新建窗口示例表格：2"，

同时在屏幕下方的工具栏上可以看到已经是2个Excel文件窗口了。你还可以新建更多的窗口，但是好像更多的窗口也不太实用了。

二、排列窗口

点"视图"/"全部重排"，然后选择排列方式（我一般选"垂直并排"）

就可以发现两个相同内容的表格出现了。

三、处理数据

我们在任何一个窗口里面进行拖动，不会影响到另外一个窗口；我们在任何一个窗口进行数据修改，另外一个窗口都是同步修改。

好吧，办公软件Excel的新建窗口功能就讲到这里。文章由@爱玩电脑创作，转载请注明出处。

使用Excel时，经常需要在表格中查找指定的数据或者文字等内容。当然，查找的操作比较简单，但Excel中默认只是在当前的工作表（Sheet）中进行查找。如果一个Excel工作簿（或者说是一个Excel文档）中有很多工作表，那么要想在所有的工作表中查找指定内容，默认设置下就需要逐个打开各个工作表，再逐个进行查找操作。这种情况时我们可以在查找时特别设置一下，让Excel在当前工作簿的所有工作表中进行查找，从而提高工作效率。下面以Excel2007为例介绍如何设置，以供参考。

●点击Excel中的“查找”或者按键盘的“Ctrl+F”组合键打开“查找和替换”对话框后，点击其中的“选项”按钮。

●点击选项按钮后，查找和选择对话框中会展开更多的选项。如果在“范围”选项右侧显示的是“工作表”，则说明现在设置的只是在当前的工作表中进行查找。如果想要查找所有的工作表，需点击“范围”右侧的下拉框。

●弹出下拉列表后，在列表中点击“工作簿”选项。即将查找范围设置成了当前工作簿中的所有工作表。

●然后再输入要查找的内容，点击“查找全部”按钮。如果想逐个显示查找结果，则需点击“查找下一个”按钮。

●点击“查找全部”按钮后，对话框下方会显示出查找结果列表，在其中的“工作表”列中会显示包含查找内容的工作表名称。在某个查找结果所在的行中点击鼠标，Excel就会自动打开对应的工作表，并且选中对应的单元格。

这个小技巧可以让我们在Excel工作簿中进行查找时更快速的找到需要的结果，提高工作效率。