怎么合并两个excel表格

1、首先我们需要打开Excel，然后新建一个空白工作簿，选择工作簿里面sheet 1工作表任意单元格，如图所示。

2、接着点击工具栏的“数据”-“现有连接”。

3、然后就会在表格上d出现有连接对话框。

4、点击现有链接之后，会d出如图所示的界面，此时只需要在点击要插入的表格所在的本地文件夹即可。

5、在导入数据的时候，我们只需选择“表”以及确定导入的位置即可。

6、将需要导入的表格导入以后的效果图；

7、然后点击表格左下角的“+”新建名为sheet 2的工作表，接下来按照以上的步骤将剩下的那个工作表导入数据即可，这样就完成了将两个表格合并的目标了。

在用Excel进行办公时，遇到需要把两个表的数据进行合并时该怎么 *** 作呢？下面就来看看方法。

工具/材料

Excel2010

第一种方法，把另一张表中的正确数据合并到原表中，如下图所示，右边红圈里的正确数字要合并到左边的表格中，替换掉错误数字。

将右边的表格选中，再点击开始选项卡中的复制功能，然后点击在左边表格的第一个标题处。

然后点击粘贴中的选择性粘贴，在d出的对话框中选择跳过空白单元格，确定，数据就合并了。

第二种方法，将另一张表格中的数字合并到原本中的空白处。如下图所示。

将右侧的表格选中，点击复制功能，再点击到原表中的第一个标题处。

点击粘贴中的选择性粘贴，在d出的对话框中点选跳过空白单元格，确定，就合并好了。

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1

2、选择查看代码（PS：excel有着一项，WPS没有）

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、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

　在 Excel 中经常需要用到2个表进行合并的功能。或许有些初学的朋友不知道该怎么用，如果需要用到表合并的功能却不会用的朋友，不妨学习一下。下面是我带来的关于如何将2个excel表合并的 方法 ，欢迎阅读!

　如何将2个excel表合并的方法：

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

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

　合并2个表步骤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

1、首先打开你要调整的两个表格，关掉其他表格，只留这2个表格。

2、打开之后，点击你需要移动的表单里，看到下方的标签处。

3、可以看到有多张表，按住shift键可以全选表格，或者单击右键选择选定全部工作表。

4、选中全部表格之后，再次单击右键选择移动或复制工作表。

5、点击将选定工作表移至的下拉框。

6、并在下拉框中选择另一个表格，点击移至最后，选择确定。

7、然后就会在另一个表格里看到所有表格都移到本来存在的表格后面了。

试试WPS的合并表格功能

excel的话用power query也可以，不过讲起来比较复杂，有需要再说吧

编写不易，如有疑问请追问，如有帮助请采纳，谢谢