您的位置:首页>要闻 >内容

怎样把多个excel表格合并到一个表格里面(怎样将多个excel表格合并到一个excel表格中)

2022-05-31 15:34:40来源:
导读今天小风给大家收集了一些怎样把多个excel表格合并到一个表格里面,怎样将多个excel表格合并到一个excel表格中方面的信息来分享给大家,如

今天小风给大家收集了一些怎样把多个excel表格合并到一个表格里面,怎样将多个excel表格合并到一个excel表格中方面的信息来分享给大家,如果大家感兴趣的话就接着看下面得文章吧

1、有很多张excel,而且excel表里面的公式基本一样,那么是否可以合并在一个excel页面呢?其实利用excel表的宏计算就可以实现。

2、下面给大家分享如何实现这个功能。

3、材料/工具Excel任意版本方法/步骤

首先把要合并的excel表都放在同一个文件夹里面

2、然后这个文件夹里面新建一个excel

3、打开新建的excel表,并按快捷键“alt”+“F”

4、进入宏界面

5、选择刚才新建Excel的名字,进入输入界面

6、然后把下面这些宏计算的代码复制进去

代码如下:Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath &"\"&"*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <>""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath &"\"& MyName)Num = Num + With Workbooks().ActiveSheet.Cells(.Range("B6、5、5、3、6、").End(xlUp).Row + 2、, ) = Left(MyName, Len(MyName) - 4、)For G = To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B6、5、5、3、6、").End(xlUp).Row + , )NextWbN = WbN & Chr(3、) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B").SelectApplication.ScreenUpdating = TrueMsgBox"共合并了"& Num &"个工作薄下的全部工作表。

4、如下:"& Chr(3、) & WbN, vbInformation,"提示"End Sub。

本文到此结束,希望对大家有所帮助。

免责声明:本文由用户上传,如有侵权请联系删除!

猜你喜欢

最新文章