根据工作表名称，将一个excel拆分为多个excel的方法，
首先我们打开这个excel，然后点击开发工具，紧接着点击visual basic ，进入visual basic的界面后点击插入选择模块，紧接着将代码直接粘贴进去，直接将这个代码关闭掉
然后我们点击宏，选择拆分工作薄然后选择执行即可搞定
Sub 拆分工作薄()
Dim xpath As String
xpath = ActiveWorkbook.Path
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"
Next
End Sub