excel如何将两个表格合并？

1、首先，我们找两个excel文档，然后我们将两个文档全部双击打开；

2、打开后，我们在任务栏中可以看到两个，我们选择2那个文档；

3、然后选中1文档，之后我们点击移动到最后，然后我们点击建立副本，之后我们点击确定；

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

您好,我就为大家解答关于两个相同的excel表格怎么合并，同一张excel表格中相同数据合并相信很多小伙伴还不知道,现在让我们一起来看看吧！

您好,我就为大家解答关于两个相同的excel表格怎么合并，同一张excel表格中相同数据合并相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、第一把这些表放在一个新建立 的文件夹里，第二在这个新建立 的文件夹里再新建一个excel表格文件 打开这个文件 在左下角sheet1标签处右键 查看代码 然后把下面代码 复制进去 然后点运行 运行子过程等几不一会时间就可以了，你的表格没有合并过和单元格才行，如果 有这个程序也会中断的，还有确定每个表的A列得有内容等待合并完以后把B列有空的行用筛选的方式删除了就行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 = Open(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)UsedRangeCopy Cells(Range("B65536")End(xlUp)Row + 1, 1)NextWbN = WbN & Chr(13) & WbNameWbClose FalseEnd WithEnd IfMyName = DirLoopRange("B1")SelectApplicationScreenUpdating = TrueMsgBox"共合并了"& Num &"个工作薄下的全部工作表。

2、如下："& Chr(13) & WbN, vbInformation,"提示"End Sub。