excel工作表拆分&合并代码

《excel工作表拆分&合并代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、工作表汇总1、多个工作簿汇总成一个将这些文件放到一个文件夹，确保只有这些文件，且若打开某一文件，数据就能看见——即不用点其他sheet。建一新Excel，也存到该文件夹。仅打开该新Excel，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：SubFind()Application.ScreenUpdating=FalseDimMyDirAsStringMyDir=ThisWorkbook.Path&""ChDriveLeft(MyDir,1)'findalltheexcelfilesChDirMyDirMatch=Dir$("")DoIfNotLCase(Mat

2、ch)=LCase(ThisWorkbook.Name)ThenWorkbooks.OpenMatch,0'openActiveSheet.CopyBefore:=ThisWorkbook.Sheets(1)'copysheetWindows(Match).ActivateActiveWindow.CloseEndIfMatch=Dir$LoopUntilLen(Match)=0Application.ScreenUpdating=TrueEndSub在此界面直接按F5键运行此宏，完成2、多个工作表汇总成一个Sub合并工作表()Fori=2ToSheets.CountSheets(

3、i).UsedRange.CopyDestination:=Sheets("汇总").Range("A"&Sheets("汇总").UsedRange.Rows.Count+1)NextEndSubALT+F11,打开代码窗口.粘贴代码回到工作表中.按ALT+F8,运行这段代码就可以了保证第一个工作表名称为汇总合并后如果有多余的标题行,自己筛选来删除就OK了工作表拆分Sub工作薄拆分()'将工作薄按工作表拆分成多个工作薄DimPATHAsStringPATH=Application.ActiveWorkbook.PATHDimshtAsWorksheetApplication.Sc

4、reenUpdating=FalseForEachshtInSheetssht.copyActiveWorkbook.SaveAsPATH&""&sht.NAME&".xls"'(工作表名称为文件名）ActiveWorkbook.CloseNextApplication.ScreenUpdating=TrueEndSubSubUnhideAllSheets()ForEachSheetInActiveWorkbook.SheetsSheet.Visible=TrueNextEndsub[求助]工作表名称等于单元格B2内容PrivateSub引用单元格数据命名工作表()OnError

5、ResumeNext'ignoreDimi%,ShtAsWorksheetForEachShtInSheetsIfSht.Name<>"工程汇总表"ThenSht.Name=Sht.Cells(2,2).ValueEndIfNextEndSub[求助]请问老师工作表的标签名能否随单元格的内容变化PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfRange("A1")<>""ThenActiveSheet.Name=Range("A1")EndSub如果工作表标签的名和A1的值相同时就退出要执行的程序程序PrivateS

6、ubWorksheet_SelectionChange(ByValTargetAsRange)IfRange("A1")<>""AndRange("A1")<>ActiveSheet.NameThenActiveSheet.Name=Range("A1")Else[a1]=[u1].ValueEndIfEndSubSub插入行并复制上行()ActiveCell.Offset(-1,0).Rows("1:1").EntireRow.SelectSelection.CopySelection.InsertShift:=xlDownActiveCell.Offset(1,0).Range

7、("A1").SelectApplication.CutCopyMode=FalseEndSub