想将N个excel中的内容合并到1个excel中简单几步操作，VB帮你实现此文档适用于Office20071、保证要合并的文件，在同一个文件夹中如果不在，拷贝到一起；2、在此文件夹中新建一个空白excel文件；3、打开新建excel，找到VB，工具栏中的开发工具Visual Basic（或快捷键Alt+F11）；4、双击Sheet1（或者Sheet2、Sheet3，随便你想放哪儿）；5、复制粘贴如下代码；Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False Bypath = ActiveWorkbook.Path MyName = Dir(MyPath & “\“ & “*.xls“) AWbName = ActiveWorkbook.Name Num = 0 Do While MyName AWbName Then Set Wb = Workbooks.Open(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 Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range(“B65536“).End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range(“B1“).Select Application.ScreenUpdating = True MsgBox “共合并了“ & Num & “个工作薄下的全部工作表。
如下：“ & Chr(13) & WbN, vbInformation, “提示“ End Sub--此段代码摘自网络，感谢无私奉献的网友6、运行代码，F5即可运行，或者工具栏中,运行运行子过程/用户窗体运行；7、静静等待结果，运行完毕后会有提示；8、提示过后，excel文件会自动打开，你要合并的数据都在里面啦~9、大功告成！。
