Question

如何将一个excel工作薄拆分为多个工作表

Answer 1

将每一个工作表保存为一个工作薄。

打开工作表》Alt+F11》粘贴下列代码》运行代码。

 Sub
  SaveSheet()    
   Application.ScreenUpdating = False    
   For Each ws In ThisWorkbook.Worksheets    
   ws.Copy    
   ActiveWorkbook.SaveAs Filename:= _    
   ThisWorkbook.Path & "\" &
  ws.Name, FileFormat:=xlOpenXMLWorkbook _    
    , Password:="",
  WriteResPassword:="", ReadOnlyRecommended:=False, _    
    CreateBackup:=False    
   ActiveWorkbook.Close    
   Next    
   Application.ScreenUpdating = True    
 End Sub

Answer 2

如何将一张工作表拆分成多个工作表？