8个excel表格怎么合并,合并,表格

1.如何快速合并几个excel表格

“快速合并几个excel表格”的操作步骤是：

1、打开Excel工作表；

2、由已知条件可知，在一个工作簿下，有多个工作表，工作表的结构都相同，但数据顺序不同，希望多个表格合并生成一个汇总表；

3、在“汇总表”中，点击“数据”选项下的“合并计算”；

4、根据数据合并的规则，选择“求和”，并将牵涉取合并的数据区域通过“引用位置”逐个添加进去，标签位置根据实际需要，勾选“首行”“最左列”；

5、按“确定”后，“汇总表”生成了合并计算的结果。

2.excel 多表合并

第一 新建一个文件夹把这51个excel文件放在这个文件夹里 然后在这个文件夹里再新弄一个空表

第二打开这个空表 在sheet1那个标签那里右键 查看代码 把代码复制进去

第三 点一下上面的运行 运行子程序

代码如下 （使用本方法前提，表里没有合并过的单元格，第二第1列必须有数据不能空白还不会可以 发我邮箱给你看看，）

Sub 合并当前目录下所有工作簿的全部工作表（）

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation， "提示"

End Sub

3.如何让多个excel表格在合并到一起

把 多个工作表 合并到到一张表， 最快捷的方法是用宏处理：

例如 将多个表合并到总计表：

总计 表只留一个标题

右键点 汇总 工作表 标签 ，查看代码， 把如下代码复制进去， F5运行：

Sub 工作表合并（）For Each st In WorksheetsIf st.Name ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)NextEnd Sub

就会把多个表合并 到 总表，

如下例： 在Sheet 总计 中 运行 如上代码，就会将所有 月份 分表 汇总 进来，方便后续处理，而 不需要一次次粘贴处理

4.如何将几个excel工作表合并成一个

方法/步骤如图：有二个工作簿，每一个工作簿中都有若干个工作表，在做合并之前，我们要将这两个工作表打开。

在其中一个工作簿选择所有的工作表，方法是先选择第一个工作表，按住shift键，然后点最后一个工作表，这样就可以快速全部选中当然，你也可以右击任意一工作表，在弹出的菜单中选择“选定全部工作表”选择所有的工作表。右击工作表标签，在弹出的菜单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿。

这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了。这里需要注意的是如果两个工作簿，有相同名字的工作簿的话，系统自动用（2）来命名。

这样做的话，当前工作簿不会发生变化，复制移动的工作簿，会合并两个工作表的所有内容。如图你不想影响原来文件的话，你最好可以新建一个空白工作再复制移动工作表到新的文件啊。

5.如何将excel多个表数据合并一个表中

操作步骤：1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。

2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。3、按Alt+F11进入VBA代码编辑和调试界面。

4、根据下图提示，插入一个模块。5、将下述代码粘贴到模块空白处：复制代码代码如下：Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets（"合并汇总表"）.DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄 （*.xls*）,*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！"， vbInformation， "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt：="请选择要合并的数据区域："， Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows. = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i)..Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name)..Sheets（"合并汇总表"）.SelectActiveWorkbook.Sheets（"合并汇总表"）.Range("A" & DataRows).Value = .Sheets（"合并汇总表"）.Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + (MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub6、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。

7、点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。8、下一步，用鼠标选择要合并的数据范围。

注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。

9、点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。注意：1)A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。

10、选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。

11、然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：。