如何将一个EXCEL中的多个SHEET中内容合并到一个SHEET中

如何将一个excel里面的多个sheet快速的合并到一个sheet里面？~

5分钟学会在Excel中如何把多个工作表合并成一个表 N常用的技能

将一个EXCEL中的多个SHEET中内容合并到一个SHEET中的具体操作步骤如下：

1、首先我们要有自己的excel数据，然后我们打开电脑里的microsoft excel加载要合并的数据。

2、看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一个工作表。

3、在新建的sheet表中“右键”，找到“查看代码”。

4、然后看到宏计算界面。

5、看到宏计算界面，我们就只需要把下面的代码复制进去。

6、做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。

7、合并后的效果如下图，我们看到的是合并之后有8000多行，就是205页合并后的结果。

5分钟学会在Excel中如何把多个工作表合并成一个表 N常用的技能

新建一个总表，准备汇总

Alt+F11，VBA快捷键，在弹出的新界面中，左键双击坐标的名为”总表“的工作表，使后续的代码是复制到这个工作表中。

在右边的空白区域，复制下面的代码：

Sub main()

For Each sh In Sheets

If sh.Name <> "总表" Then

i = sh.Range("D65536").End(3).Row

k = Range("A65536").End(3).Row

sh.Range("A2:D" & i).Copy Range("A" & k + 1)

End If

Next

End Sub

代码详解：1.Sub main()——其中Sub 跟括号是固定的，main是宏名，可以随便更改（其实完全没有必要多此一举，这里可以不做任何修改）2.For Each sh In Sheets——这是遍历全部的工作表，这里就要注意，如果你的工作表中包含一些，不需要汇总数据的工作表，那么就需要将源数据表备份一份，然后将不需要汇总数据的工作表都删除掉，只剩下总表以及需要汇总数据的工作表（当然，还有其他办法，这里只讲解最简单地做法）3.If sh.Name <> "总表" Then——这里是判断工作表的名字是不是”总表“，如果是总表，就不汇总数据，本例中总表的名字就是”总表“，如果你的工作表中，总表名字是其他的，就将这里的”总表“改为你的工作总表明细；4.i = sh.Range("D65536").End(3).Row——这里要注意了"D65536"，是为了获得最后一个不为空的行的行号，这里用了D列，因为本例中的D列是有数据的

，在实际的使用过程中，一定要选择一个最后一行有数据的列，否则不能获得最大行号（假如只有2列，那么这里的D可以改为B或者A）5.k = Range("A65536").End(3).Row——这里是获得总表的最大行号，以便复制的数据，能够依次往下粘贴；（这里的A65536跟上面提到的是一个道理，总表中的A列最后一行不是空的）6.sh.Range("A2:D" & i).Copy Range("A" & k + 1)——这里要注意“A2:D”&i是要复制的区域，因为本例中只有A-D列，而且数据是从第2行开始的，所以这里是A2:D，那假如是从E列第10行开始，到Z列结束的区域，就应该改为E10：Z；Range("A" & k + 1)——这里是从总表的A列开始粘贴，假如是从D列开始，那么这里的A改为D即可7.End If   Next   End Sub——这些是结束判断、继续循环和程序结束，都不需要更改。

保存执行代码

以WPS 2019版本为例：

关于如何将一个EXCEL中的多个SHEET中内容合并到一个SHEET中，您可使用WPS参考下述步骤完成操作：

1、打开「表格（Excel）」文档；

2、点击「数据-合并表格-多个工作表合并成一个工作表」；

3、勾选需合并的工作表即可。

提示：在设置合并工作表时也可添加其他「表格（Excel）」文档来选择其他文档的工作表来合并。

亲，请新建一个Sheet，命名为“汇总”（名字可以随便改）。然后按“Alt+F11”打开VBA编辑窗口，在左侧对应的Sheet“汇总”上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

 

Sub hz() 
Dim bt, i, r, c, n, first As Long 
bt = 1 '表头有几行，这里的1就改成几 
Cells.Clear 
For i = 1 To Sheets.Count 
    If Sheets(i).Name <> ActiveSheet.Name Then 
        If first = 0 Then 
            c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column 
            Sheets(i).Range("A1").Resize(bt, c).Copy Range("A1") 
            n = bt + 1: first = 1 
        End If 
        r = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row 
        Sheets(i).Range("A" & bt + 1).Resize(r - 1, c).Copy Range("A" & n) 
        n = n + r - bt 
    End If 
Next 
End Sub

---

安仁县17736275470： 如何将一个EXCEL中的多个SHEET中内容合并到一个SHEET中 - ？
寸管贺斯： 将一个EXCEL中的多个SHEET中内容合并到一个SHEET中的具体操作步骤如下: 1、首先我们要有自己的excel数据,然后我们打开电脑里的microsoft excel加载要合并的数据. 2、看到这么多数据页要合并,如果是复制粘贴的话,工作量就...

安仁县17736275470： excel表格下多个sheet内容怎么汇总到一个表格中 - ？
寸管贺斯： excel表格下多个sheet内容汇总到一个表格中,可使用链接功能实现. 方法步骤如下: 1、打开EXCEL表格,点击数据选项卡中的“现有连接”. 2、点击“浏览更多”. 3、找到需要汇总的表格,点击打开. 4、选中相关Sheet表格,点击确定. 5、弹出导入数据对话框,点击确定. 6、同步骤1~5,依次添加其他Sheet表格数据即可,返回EXCEL表格,发现成功将多个Sheet工作薄汇总在一起.

安仁县17736275470： 如何将一个excel文件里多个sheet选择性合并 - ？
寸管贺斯： 在A列插入一个辅助列,输入需要合并的表名,如果A3为Sheet2,A4为Sheet4,……; 然后在B3单元格输入以下公式,并向右向下填充公式 =INDIRECT($A3&＂!＂&A$3)

安仁县17736275470： 如何将一个excel表格中多个sheet拆分 - ？
寸管贺斯： 可以按下面的步骤:(1) 在要复制的sheet标签上点鼠标右键;(2) 弹出的窗口中选＂移动或复制工作表＂;(3) 弹出的窗口中点下拉框,然后选＂(新工作簿)＂;(4) 如果是复制,勾选＂建立副本＂,如果是剪切,不勾选该选项, 确定(5) 保存,这样,一个新的excel文件就好了. 看看下面的演示过程吧.

安仁县17736275470： 如何将一个excel里面的多个sheet快速的合并到一个sheet里面? - ？
寸管贺斯： 1.首先要有自己的excel数据,并且需要的是microsoft excel,WPS没有这些负责的功能.比如下面举例的,自己有205页的数据需要合并,如图所示.2.看到这么多数据页要合并,如果是复制粘贴的话,工作量就很大了.现在开始合并,首先要在...

安仁县17736275470： 一个excel的多个sheet复制到另外一个excel中 - ？
寸管贺斯： 1. 同时打开这两个excel文件.表一为源数据表,表二为空表(需要复制表一的内容到此表中). 2. 切换到表一,选中需要复制的那个工作表,(例如sheet1)右击sheet1,选移动或复制,弹出的界面里,工作簿选为表二,建立副本打勾,确定.

安仁县17736275470： 如何将一个excel表格里的多个sheet放到一个sheet中 - ？
寸管贺斯： 如果多个表格格式或结构一致、且带着汇总计算的目的,那么通过“数据”选项下的“合并计算”来完成.

安仁县17736275470： 怎么把一个excel表里面的多个sheet1/sheet2/sheet3/sheet4等里的内容合并到一个sheet里面 - ？
寸管贺斯： 你可以在目标sheet的A1中里面输入“=Sheet1!A1”,然后先横着,直到把sheet1中的内容全部包含进来,然后选中第一行的有内容的单元格,然后向下拖,直到行数和sheet1相同,然后把sheet1换成sheet2,接着往下拖…… 当然可以用vba代码实现,但是我觉得最简单的还是复制粘贴.

安仁县17736275470： 怎样在同一个excel文件中的多个sheet里 - ？
寸管贺斯： 新建一个空白EXCEL,把需要合并的表和空白EXCEL放在一个文件夹中 在EXCEL中,到合并表里打开宏,将下列代码进行粘贴并保存.然后返回你需要合并的工作表中.或按 alt + f11,双击工程资源管理器里面的合并表的SHEET,在右侧的代码区粘贴如下代码.运行此宏,就合并了.

安仁县17736275470： 怎么把一个Excel多个sheet合在一个sheet里面? - ？
寸管贺斯： 不需要保留原来的多个sheet,可以复制到同一个sheet里面 如果需要保留原来的,统一的sheet只是作为查看用,可以考虑使用公式引用或者使用数据透视表