快速把多个excel表格合并成一个excel表格.docxVIP

迅速把多个excel表格归并成一个excel表格 迅速把多个excel表格归并成一个excel表格 PAGE / NUMPAGES 迅速把多个excel表格归并成一个excel表格 怎样迅速把多个 excel 表归并成一个 excel 表 有这么一种状况，就是我们有好多张 excel ，并且 excel 表里面的公式基本同样，我们就 想迅速的把这些  excel  归并在一同，意思在归并在一个  excel  页面，这样能够方便我们分 析和统计，其实利用  excel  表的宏计算就能够实现。详细步骤以下： 1 、需要把多个  excel  表都放在同一个文件夹里面，并在这个文件夹里面新建一个  excel  。 以下列图： 2 、用  microsoft excel  翻开新建的  excel  表，并右键单击  sheet1  ，找到“查察代码” ，单 击进去。进去以后就看到了宏计算界面。以下列图： 、而后把下边这些宏计算的代码复制进去，而后找到工具栏上边的“运转”下的“运转子过程 / 用户窗体”，代码以下： Sub 归并目前目录下所有工作簿的所有工作表 () Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String False MyPath = MyName = Dir(MyPath \ *.xls) AWbName = Num = 0 Do While MyName If MyName AWbName Then Set Wb = (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 (G). .Cells(.Range(B65536).End(xlUp).Row + 1, 1) Next WbN = WbN Chr(13) False End With End If MyName = Dir Loop Range(B1).Select = True MsgBox 共归并了 Num 个工作薄下的所有工作表。以下： Chr(13) WbN, vbInformation, 提示 End Sub 以下列图： 4 、运转以后，等候 10 秒针左右，等运转完成，就是归并达成以后，会有提示，点确立就 能够了。查察归并后的数据，就是同一个文件夹里面 3 个 excel 表数据归并后的结果。如 下列图：