如何把两个excel表格合并在一起

我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示： 用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示： 然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplicationScreenUpdating = FalseMyPath = ActiveWorkbookPathMyName = Dir(MyPath & "\"& "xls")AWbName = ActiveWorkbookNameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = WorkbooksOpen(MyPath &"\" & MyName)Num = Num + 1With Workbooks(1)ActiveSheetCells(Range("B65536")End(xlUp)Row+ 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To SheetsCountWbSheets(G)UsedRangeCopyCells(Range("B65536")End(xlUp)Row + 1, 1)NextWbN = WbN & Chr(13) & WbNameWbClose FalseEnd WithEnd IfMyName = DirLoopRange("B1")SelectApplicationScreenUpdating = TrueMsgBox "共合并了" & Num& "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub 运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

如果表格格式一样，就是把　第2个表的数据接到第一个表后面，那直接先复制第2表的数据，然后到第一表表尾，粘贴　就可以。如果两个不同格式的表，像弄到一个文件里，我建议你复制工作表。方法：打开这两个工作表，点一下现在要复制的工作薄的那个工作表，在左下角　工作表的名字上右键“移动活复制工作表”，然后在d出的窗口里　的工作簿中选择另外那个文件，点确定。这样就把第一表的某个工作表　复制到另外一个表里了。

1需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

2用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

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

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

ApplicationScreenUpdating = False

MyPath = ActiveWorkbookPath

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

AWbName = ActiveWorkbookName

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = WorkbooksOpen(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 SheetsCount

WbSheets(G)UsedRangeCopy Cells(Range("B65536")End(xlUp)Row + 1, 1)

Next

WbN = WbN & Chr(13) & WbName

WbClose False

End With

End If

MyName = Dir

Loop

Range("B1")Select

ApplicationScreenUpdating = True

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

End Sub

4运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

两个文件都打开,右键点击2里的sheet1_选择复制或移动工作表_在d出的对话框里选择文件1_选择要复制或移动到文件1里哪个工作之前_确定就完整地合并过去了,连格式都一起过去了,很方便

1、将excel文件都复制到一个文件夹下。注意文件夹下不要有其他的excel文件。

2、切换到数据菜单，点击新建查询，选择从文件下的从文件夹。

3、输入刚刚的文件夹路径，点击确定。

4、点击合并下的合并和加载选项。

5、选择要合并的工作表名称，最后点击确定。就完成了多个excel文件的合并。

---