拆分：把單個(gè)excle表格中的多個(gè)sheet,分成多個(gè)單個(gè)excel如：123.xls含有三個(gè)sheet分別為a、b、c；拆分成a.xls、b.xls、c.xls,拆分后的a.xls、b.xls、c.xls含有相同名稱的sheet,方法如下：打開excel表，并右鍵單擊sheetl，點(diǎn)擊查看代碼”復(fù)制如下代碼到空白處點(diǎn)擊運(yùn)行——運(yùn)行子過程,10秒生成到桌面上Alt+F11返回SubMacro1()DimshtAsWorksheetDimshtNameAsStringshtName="Sheet1"Application.ScreenUpdating=FalseApplication.DisplayAlerts=FalseForEachshtInSheetssht.CopyActiveWorkbook.Sheets(1).Name=shtNameActiveWorkbook.SaveAsFilename:=ThisWorkbook.Path&"\"&sht.Name&".xls"ActiveWorkbook.CloseNextApplication.DisplayAlerts=TrueApplication.ScreenUpdating=TrueEndSub合并：同一Excel表格中的多個(gè)sheet全部合并到sheetl如：123.xls含有三個(gè)sheet分別為a、b、c；<b、c數(shù)據(jù)全部合并到a中，方法如下:1、打開excel表，右擊sheetl，左擊“查看代碼”復(fù)制如下代碼到空白處點(diǎn)擊運(yùn)行——運(yùn)行子過程，10秒合并完成4、Alt+F11返回Sub合并當(dāng)前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToSheets.CountIfSheets(j).Name<>ActiveSheet.NameThenX=Range("A65536").End(xlUp).Row+1Sheets(j).UsedRange.CopyCells(X,1)EndIfNextRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！",vbInformation,"提示"EndSub合并：將多個(gè)excel合并成一個(gè)excel中多個(gè)sheet如：將a.xls、b.xls、c.xls合并成123.xls；其中123.xls包含三個(gè)sheet：a、b、c。方法如下：將多個(gè)excel放到同一個(gè)文件夾中，在文件夾中新建一個(gè)表格打開新建表格右擊sheetl，點(diǎn)擊“查看代碼”復(fù)制如下代碼運(yùn)行—運(yùn)行子過程一起選中多個(gè)excel，確定保存Alt+F11返回SubBooks2Sheets()'定義對(duì)話框變量DimfdAsFileDialogSetfd=Application.FileDialog(msoFileDialogFilePicker)'新建一個(gè)工作簿DimnewwbAsWorkbookSetnewwb=Workbooks.AddWithfdIf.Show=-1Then'定義單個(gè)文件變量DimvrtSelectedItemAsVariant'定義循環(huán)變量DimiAsIntegeri=1'開始文件檢索ForEachvrtSelectedItemIn.SelectedItems'打開被合并工作簿DimtempwbAsWorkbookSettempwb=Workbooks.Open(vrtSelectedItem)'復(fù)制工作表tempwb.Worksheets(1).CopyBefore:=newwb.Worksheets(i)’把新工作簿的工作表名字改成被復(fù)制工作簿文件名，這兒應(yīng)用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsxnewwb.Worksheets(i).Name=VBA.Replace(tempwb.Name,".xls","")'關(guān)閉被合并工作簿tempwb.CloseSaveChanges:=Falsei=i+1NextvrtSelectedItemEndIfEndWithSetfd=NothingEndSub合并：將多個(gè)excel合并成一個(gè)excel中一個(gè)sheet如：將a.xls、b.xls、c.xls合并成123.xls；其中123.xls包含一個(gè)sheet：d。方法如下：將多個(gè)excel放到同一個(gè)文件夾中，在文件夾中新建一個(gè)表格打開新建表格右擊sheetl，點(diǎn)擊“查看代碼”復(fù)制如下代碼運(yùn)行—運(yùn)行子過程一起選中多個(gè)excel，確定保存Alt+F11返回Sub合并當(dāng)前目錄下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&"\"&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName<>""IfMyName<>AWbNameThenSetWb=Workbooks.Open(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithE