要拆分Excel工作簿中的工作表，您可以使用Excel的“拆分工作表”功能。以下是拆分工作表的步骤：
1. 打开Excel工作簿，并选择您想要拆分的工作表。
2. 点击菜单栏的“视图”选项卡。
3. 在“工作表”组中，找到并点击“拆分工作表”按钮。
4. 在弹出的对话框中，您可以指定拆分后工作表的位置和名称，然后点击“确定”。
这样，选定的工作表就会被拆分成两个独立的工作表，分别显示在屏幕的左右两侧。
请注意，如果您想要将工作簿拆分成多个工作簿，您需要使用VBA宏来实现。您可以按照以下步骤操作：
1. 打开Visual Basic for Applications （VBA） 编辑器。
2. 在“工程资源管理器”中，右键点击任意空白位置，选择“插入”->“模块”。
3. 在新建的模块中，输入以下代码：
```vba
Sub 拆分工作簿（）
Dim mybook As Workbook
Dim i As Integer
Set mybook = ActiveWorkbook
For i = 1 To mybook.Worksheets.Count
mybook.Worksheets（i）.Copy
mybook.SaveAs Filename:="C:\Users\john\Desktop\素材\" & mybook.Worksheets（i）.Name & ".xlsx"
ActiveWindow.Close
Next i
End Sub
```
4. 保存并关闭VBA编辑器。
5. 在Excel中，点击“开发”选项卡，然后点击“Visual Basic”按钮打开VBA编辑器。
6. 在宏窗口中，选择“拆分工作簿”宏，点击“运行”按钮执行宏。
请确保在“保存As”对话框中指定的路径是正确的，否则拆分过程会失败。
