excel把一个工作簿分成多个工作簿

导读：Excel是一款功能强大的办公软件，可以对大量数据进行处理和分析。然而，当我们需要将一个Excel工作簿分成多个部分时，该怎么办呢？本篇文章将详细介绍在Excel中如何将一个工作簿拆分为多个部分。

1.将单个工作表拆分为多个部分

1.1 确定需要拆分的列

首先，我们需要确定需要拆分的列。在这个例子中，我们有一个数据表，有多个列：姓名、性别、语文成绩、数学成绩、英语成绩。

我们需要按照每个学生的成绩拆分为不同的工作表，所以我们需要以“语文成绩”、“数学成绩”、“英语成绩”这三个列为基础进行拆分。

因此，我们需要将这三个列标记出来，为下一步操作做好准备。

1.2 创建新的工作表

接下来，我们需要在Excel中创建一个新工作表。这个工作表将用于存储我们拆分出来的数据。

我们可以点击Excel界面下方的“新建工作表”按钮，或者使用快捷键“Shift + F11”进行创建。

1.3 编写拆分宏代码

在新创建的工作表中，我们需要编写拆分宏代码。

按下快捷键“Alt + F11”，打开编写代码的VBA界面。我们需要编写一个名为“splitData”的宏代码，代码如下：

Sub splitData()

Dim shDestination As Worksheet
Dim shSource As Worksheet
Dim cell As Range
Dim strColumn As String
Dim nLastRow As Long
Dim nDestRow As Long
Set shSource = ActiveSheet
With shSource
    strColumn = "C"
    nLastRow = .Cells(.Rows.Count, strColumn).End(xlUp).Row
    
    For Each cell In .Range("A2", .Cells(nLastRow, strColumn))
        If Not shDestination Is Nothing Then
            Select Case cell.Value
                Case "语文成绩"
                    Set shDestination = Worksheets.Add
                    shDestination.Name = "语文"
                    cell.EntireColumn.Copy shDestination.Range("A1")
                Case "数学成绩"
                    Set shDestination = Worksheets.Add
                    shDestination.Name = "数学"
                    cell.EntireColumn.Copy shDestination.Range("A1")
                Case "英语成绩"
                    Set shDestination = Worksheets.Add
                    shDestination.Name = "英语"
                    cell.EntireColumn.Copy shDestination.Range("A1")
                Case Else
                    cell.EntireRow.Copy shDestination.Range("A" & nDestRow + 1)
                    nDestRow = nDestRow + 1
            End Select
        Else
            Set shDestination = Worksheets.Add
            shDestination.Name = "其他"
            cell.EntireRow.Copy shDestination.Range("A1")
            nDestRow = 1
        End If
    Next cell
End With
End Sub

这段宏代码的作用是：将源工作表中以“语文成绩”、“数学成绩”、“英语成绩”三个列为基础进行拆分，并将拆分出来的数据放入不同的工作表中。

1.4 运行宏代码

所有步骤完成后，我们只需要回到源工作表中，按下快捷键“Alt + F8”，选择“splitData”宏代码，然后点击“运行”按钮。

现在，我们已经成功地将一个工作表拆分为多个部分，每个部分都有不同的语文、数学、英语成绩数据。

2.将整个工作簿拆分为多个部分

2.1 创建单独的工作簿

首先，我们需要创建一个单独的Excel工作簿。可以通过点击Excel顶部的“文件”选项卡，选择“新建”创建一个新的工作簿。

2.2 打开源工作簿

接下来，我们需要打开源工作簿。在单独的工作簿中，点击Excel顶部的“数据”选项卡，选择“从其他源”->“从Excel打开”，然后选择源工作簿。

2.3 创建拆分宏代码

在单独的工作簿中，按下快捷键“Alt + F11”，打开编写代码的VBA界面。我们需要编写一个名为“splitWorkbook”的宏代码，代码如下：

Sub splitWorkbook()

Dim wbSource As Workbook
Dim shDestination As Worksheet
Dim shSource As Worksheet
Dim cell As Range
Dim strColumn As String
Dim nLastRow As Long
Dim nDestRow As Long
Set wbSource = ActiveWorkbook
For Each shSource In wbSource.Worksheets
    If shSource.Name <> "汇总" Then
        Set shDestination = Nothing
        shSource.Copy
        Set shDestination = ActiveWorkbook.Worksheets(1)
        shDestination.Name = shSource.Name
        
        strColumn = "C"
        nLastRow = shDestination.Cells(shDestination.Rows.Count, strColumn).End(xlUp).Row
    
        For Each cell In shDestination.Range("A2", shDestination.Cells(nLastRow, strColumn))
            If Not shDestination Is Nothing Then
                Select Case cell.Value
                    Case "语文成绩"
                        Set shLanguage = Worksheets.Add
                        shLanguage.Name = "语文"
                        cell.EntireColumn.Copy shLanguage.Range("A1")
                    Case "数学成绩"
                        Set shMath = Worksheets.Add
                        shMath.Name = "数学"
                        cell.EntireColumn.Copy shMath.Range("A1")
                    Case "英语成绩"
                        Set shEnglish = Worksheets.Add
                        shEnglish.Name = "英语"
                        cell.EntireColumn.Copy shEnglish.Range("A1")
                    Case Else
                        cell.EntireRow.Copy shDestination.Range("A" & nDestRow + 1)
                        nDestRow = nDestRow + 1
                End Select
            Else
                Set shDestination = Worksheets.Add
                shDestination.Name = "其他"
                cell.EntireRow.Copy shDestination.Range("A1")
                nDestRow = 1
            End If
        Next cell
    End If
Next shSource
wbSource.Save
End Sub

与单个工作表拆分类似，这段宏代码的作用是将一个包含多个工作表的工作簿按照特定的列拆分成多个工作簿，并将拆分后的数据分别存储到不同的工作簿中。

2.4 运行宏代码

运行宏代码的方法与拆分单个工作表相同，只需要回到源工作表中，按下快捷键“Alt + F8”，选择“splitWorkbook”宏代码，然后点击“运行”按钮。

现在，我们已经成功地将整个Excel工作簿拆分为多个部分，每个部分都有不同的语文、数学、英语成绩数据。

总结归纳

通过本文的介绍，我们学会了如何将一个Excel工作簿拆分为多个部分。对于单个工作表，我们可以通过标记特定的列，使用VBA编写宏代码将其拆分为多个工作表。对于整个工作簿，我们可以使用VBA编写宏代码，在新建的单独工作簿中将其按照特定的列拆分为多个工作簿。这样可以帮助我们更好地处理和分析数据，提高工作的效率。