如何将多个excel表的内容转到1个工作表多个工作薄

Excel中可以利用VBA把多个相同格式的Excel表格数据快速的合并到一张表格中

软件版本：Office2007

举例说明如下：

1有多个工作表有如下相同格式的数据，合并到总表中：

2Alt+F11，输入如下代码：

代码是将所有工作表中的A2到B列最后一个非空单元格区域，全部依次复制到总表中

3F5执行代码，表格数据就合并到总表中了：

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表数据合并后的结果。效果如图所示。

可以利用VBA合并多个Sheet表。

软件版本：Office2007

举例说明如下：

1有多个工作表有如下相同格式的数据，合并到总表中：

2Alt+F11，输入如下代码：

3F5执行代码，表格数据就合并到总表中了：

打开需要合并的表格，鼠标选中第一个表格。鼠标右键点击“合并表格”，选择“合并成一个工作表”。在合并成一个工作表窗口中，勾选要合并的表格。点击“开始合并”即可。

MicrosoftExcel是微软公司的办公软件Microsoftoffice的组件之一，是由Microsoft为Windows和AppleMacintosh *** 作系统的电脑而编写和运行的一款试算表软件。

Excel是微软办公套装软件的一个重要的组成部分，它可以进行各种数据的处理、统计分析和辅助决策 *** 作，广泛地应用于管理、统计财经、金融等众多领域。

Excel是MicrosoftOfficesystem中的电子表格程序。可以使用Excel创建工作簿（电子表格集合）并设置工作簿格式，以便分析数据和做出更明智的业务决策。