多個(gè)excel文件快速合并成一個(gè)文件-非常好用

1、Excel多個(gè)文件格子如何合并？ 非常好用1.先把所有要合并的EXCEL放到同一目錄下.2.在當(dāng)前目錄下新建一個(gè) EXCEL3.打開新建的EXCEL 按ALT+F114.在sheet1里輸入-此行不要復(fù)制-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 MyPat

2、h = ActiveWorkbook.Path MyName = Dir(MyPath & "" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "" & MyName) Num =

3、 Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) &

4、; Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "個(gè)工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub-此行

5、不要復(fù)制-5.關(guān)閉Microsoft Visual Basic6.點(diǎn)擊    工具-宏-安全性   改成低 (如果已經(jīng)改成低,此步驟可以省略)7.點(diǎn)擊    工具-宏-宏  再點(diǎn)擊 執(zhí)行8.稍等12分鐘  <注意:EXCEL的總行數(shù)不要超過65535行>樓主幸運(yùn)，以前我找過，朋友給了段vba代碼，很方便的Sub CombineWorkbooks()Dim FilesToOpen, ftDim x As IntegerApplication.ScreenUpdating =

6、FalseOn Error GoTo errhandlerFilesToOpen = Application.GetOpenFilename _(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _MultiSelect:=True, Title:="要合并的文件")If TypeName(FilesToOpen) = "boolean" ThenMsgBox "沒有選定文件"'GoTo errhandlerEnd Ifx = 1While x <= UBou

7、nd(FilesToOpen)Set wk = Workbooks.Open(Filename:=FilesToOpen(x)wk.Sheets().Move after:=ThisWorkbook.Sheets _(ThisWorkbook.Sheets.Count)x = x + 1WendMsgBox "合并成功完成！"errhandler:' MsgBox Err.Description'Resume errhandlerEnd Sub 回答人的補(bǔ)充   2009-07-09 10:33Sub test()Dim i As Integer, j As IntegerFor i = 2 To Sheets.Count Sheets(i).Activate ActiveSheet.UsedRange.Select Selection.Copy