excel怎么把表格分成多份

要将Excel表格分成多份，可以使用“拆分工作表”、“利用宏代码”、“按特定条件筛选和复制”、“利用Power Query”等方法。 其中，利用Power Query是一种非常强大且灵活的方法，可以大大提升工作效率。

一、拆分工作表

拆分工作表是最直接的一种方法，尤其适合数据量不大的情况下。可以通过手动复制和粘贴的方法将大表格拆分成多个工作表。

1. 复制和粘贴

最简单的方式就是复制需要的数据区域，然后在一个新的工作表中粘贴。这个方法适合处理较小的数据集。

2. 使用Excel的“拆分”功能

Excel本身提供了一个拆分窗口的功能，可以将一个工作表分成多个视图窗口，但这并不是我们要的“拆分成多个表格”的意思。要实现真正的拆分，可以通过以下步骤：

选择需要拆分的行或列。
右键点击选择“剪切”。
创建一个新的工作表，粘贴剪切的数据。

二、利用宏代码

如果需要经常进行大批量的数据拆分，使用VBA宏代码是一个高效的方法。

1. 启动VBA编辑器

按下 Alt + F11 启动VBA编辑器。

2. 编写宏代码

以下是一个简单的VBA宏示例，可以根据特定列的值将数据拆分到不同的工作表中：

Sub SplitIntoSheets()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    Dim key As Variant
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set rng = ws.Range("A1:A" & lastRow)
    Set dict = CreateObject("Scripting.Dictionary")
    For Each cell In rng
        If Not dict.exists(cell.Value) Then
            Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
            newWs.Name = cell.Value
            dict.Add cell.Value, newWs.Name
            cell.EntireRow.Copy Destination:=newWs.Range("A1")
        Else
            ws.Rows(cell.Row).Copy Destination:=ThisWorkbook.Sheets(dict(cell.Value)).Cells(ThisWorkbook.Sheets(dict(cell.Value)).Cells(ThisWorkbook.Sheets(dict(cell.Value)).Rows.Count, "A").End(xlUp).Row + 1, 1)
        End If
    Next cell
End Sub

运行这段宏代码后，Excel将根据“A”列的值将数据拆分到不同的工作表中。

三、按特定条件筛选和复制

Excel提供了强大的筛选功能，可以通过筛选条件将数据复制到新的工作表中。

1. 应用筛选器

在Excel中选择要筛选的列，然后点击“数据”选项卡中的“筛选”按钮。

2. 复制筛选结果

应用筛选条件后，选择筛选结果并复制到新的工作表中。

3. 创建新的工作表

按下 Ctrl + N 创建新的工作表，然后将复制的数据粘贴到新的工作表中。

四、利用Power Query

Power Query 是Excel中一个强大的数据处理工具，可以通过它来拆分表格。

1. 导入数据到Power Query

在Excel中，点击“数据”选项卡，然后点击“从表/范围”将数据导入到Power Query编辑器。

2. 拆分查询

在Power Query编辑器中，选择要拆分的列，然后点击“拆分列”按钮，根据需要选择拆分方式。

3. 加载数据回Excel

完成拆分后，点击“关闭并加载”将拆分后的数据加载回Excel中。

五、按特定条件拆分

有时需要根据特定条件（例如日期、产品类别等）将数据拆分成多个表格。

1. 使用筛选器

根据特定条件应用筛选器，然后复制筛选后的数据到新的工作表中。

2. 使用VBA宏代码

以下是一个简单的VBA宏示例，可以根据某列特定条件将数据拆分到不同的工作表中：

Sub SplitByCriteria()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    Dim key As Variant
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    Set rng = ws.Range("B1:B" & lastRow)
    Set dict = CreateObject("Scripting.Dictionary")
    For Each cell In rng
        If Not dict.exists(cell.Value) Then
            Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
            newWs.Name = cell.Value
            dict.Add cell.Value, newWs.Name
            cell.EntireRow.Copy Destination:=newWs.Range("A1")
        Else
            ws.Rows(cell.Row).Copy Destination:=ThisWorkbook.Sheets(dict(cell.Value)).Cells(ThisWorkbook.Sheets(dict(cell.Value)).Cells(ThisWorkbook.Sheets(dict(cell.Value)).Rows.Count, "A").End(xlUp).Row + 1, 1)
        End If
    Next cell
End Sub

这段代码根据第二列的值将数据拆分到不同的工作表中。

六、总结

将Excel表格分成多份的方法有很多种，具体选择哪种方法取决于数据量、复杂度以及对自动化的需求。手动拆分适合小数据量、VBA宏代码适合复杂且重复的任务、Power Query适合数据处理和分析。 通过掌握这些方法，可以大大提高工作效率和数据处理的灵活性。