Sub 分割表()Application.ScreenUpdating = FalseFor i = 3 To Sheets.Count    a = Sheets(i).Name    Sheets(i).Select    Sheets(i).Copy    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False    ActiveWorkbook.CloseNextApplication.ScreenUpdating = TrueEnd Sub