目标：根据工作表中某列数据，拆分成不同工作簿（.xlsx文件）
操作步骤：
【1】打开Excel数据表，另存为【.xlsm】文件，进入【开发工具-查看代码】（alt+F11） VBA代码界面，粘贴代码后，点击【运行】（F5）。具体代码如下：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
【2】填写需要根据哪一列数据进行拆分，然后【确定】，等待完成，可拆分成不同工作簿。
欢迎交流学习 | 如有侵权，敬烦告知。
