合并两个excel表格的方法步骤(汇编两篇)
在excel中经常需要用到合并两个表的功能,或许还有些初学的朋友还不太会,如果需要用到合并两个表格的功能的朋友就学习一下吧。下面是读文网小编带来的关于如何合并两个excel表的方法,希望阅读过后对你有所启发!
把多个excel合并的方法
多个Excel合并步骤1:新建一个文件夹
多个Excel合并步骤2:将要合并的表格放到里面
多个Excel合并步骤3:新建一个表格
多个Excel合并步骤4:用excel打开
多个Excel合并步骤5:右击Sheet1
多个Excel合并步骤6:选择查看代码
PS:excel有着一项,WPS没有
多个Excel合并步骤7:将下列代码复制到文本框中:
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
多个Excel合并步骤8:点击运行
多个Excel合并步骤9:一段时间(取决于表格的大小和多少)后,合并完成了
合并两个excel表格的方法步骤
合并两表步骤1:首先我们先稍微整理一下需要合并到一块的多个表格中的一个的格式:
合并两表步骤2:另一张表的格式差不多也要一样,至少保证需要合并数据的区域格式一致:
合并两表步骤3:然后再选中其中一张表格中需要合并统计的数据,并复制之。但不需要复制有求和等有计算公式的数据,否则数据会有误,后面有讲解:
合并两表步骤4:再切换到另一张表格,此张表格我们用来保存合并的数据。先定位到需要统计的区域的左上角,或选择该区域:
合并两表步骤5:然后右击之,选择“选择性粘贴”,再选择“选择性粘贴”命令:
合并两表步骤6:然后在弹出的“选择性粘贴”对话框中,注意选择需要“粘贴”的类似,若是数字数据的话一般会那么“数值”以保证统计更准确,然后再在“运算”中选择我们需要合并的运算方法,如“加”,再单击“确定”既可:
合并两表步骤7:查看EXCEL数据,“合计”中的“求和”公式还是正确无误,所有数据都正确:
合并两表步骤8:而如果之前的复制了带计算公式的数据的单元格:
合并两表步骤9:在进行合并表格后数据就会出现差错了,并且误差很大: