怎样将Excel工作表拆分成多个Excel工作簿？

1. 首先打开需要拆分的Excel工作簿，然后按照如下步骤进行操作： a) 选择需要拆分的工作表 b) 在“开始”选项卡中，选择“格式” → “移动或复制工作表”选项 c) 在弹出的对话框中，选择“新工作簿”选项 d) 点击“确定”按钮。此时，Excel会自动生成一个新工作簿，并将所选工作表复制到新工作簿中。

2. 如果需要将多个工作表拆分到不同的工作簿中，可以使用VBA宏实现。以下是一个示例代码，可以按照实际需求进行修改：

Sub SplitWorkbook() Dim i As Integer Dim j As Integer Dim k As Integer Dim l As Integer Dim n As Integer Dim wkbSource As Workbook Dim wkbNew As Workbook Dim sht As Object Dim shtNew As Object

Set wkbSource = ActiveWorkbook

'要拆分的工作表名称
arrShts = Array("Sheet1", "Sheet2", "Sheet3")

For i = LBound(arrShts) To UBound(arrShts)

    '在新工作簿中创建工作表
    Set wkbNew = Workbooks.Add
    Set shtNew = wkbNew.Sheets.Add()

    '将选择的工作表复制到新工作簿中
    Set sht = wkbSource.Worksheets(arrShts(i))
    sht.Copy after:=shtNew

    n = wkbNew.Worksheets.Count

    '删除新工作簿中未选择的工作表
    For j = n To 1 Step -1
        For k = UBound(arrShts) To LBound(arrShts) Step -1
            If