怎么把多个excel文件导入到一个excel中

excel

我们需要把所有要合并的excel文件都放到一个文件夹里，然后在这个文件夹里新建一个excel文件。接着用Microsoft excel打开这个新建的excel文件，右键点击底部的工作表Sheet1，选择查看代码，然后就会进入宏的编辑界面。这时候我们把下面这段宏代码复制进去，然后在顶部工具栏找到运行 - 运行子过程/用户窗体，点击运行就行了。代码如下：

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 + 1With Workbooks(1).ActiveSheet.Cells(.Range(B65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range(B65536).End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange(B1).SelectApplication.ScreenUpdating = TrueMsgBox 共合并了 & Num & 个工作薄下的全部工作表。如下： & Chr(13) & WbN, vbInformation, 提示End Sub

运行之后等个十几秒，等它处理完会弹出一个提示框，点确定就行。这时候你就可以看到合并后的数据了，总共有5000多行，是这个文件夹下17个excel表格的数据合在一起的结果。酷睿软件园为你解答~