Sub新建工作簿()　　Application.ScreenUpdating=False　　DimgzbAsWorkbook　　Setgzb=Workbooks.Add　　ActiveSheet.Name="1-a"　　Workbooks("A.xls").Sheets("a").Cells.Copy[a1]　　Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name="1-b"　　Workbooks("A.xls").Sheets("b").Cells.Copy[a1]　　gzb.SaveAsThisWorkbook.Path&"1-A.xls",FileFormat:=xlExcel8　　Setgzb=Nothing　　ActiveWorkbook.Close　　Application.ScreenUpdating=True　　EndSub这个vba代码写在A工作簿的模块里即可，指定区域你可以自己修改下代码，我这里是全表复制的效果。