excel表格怎么等距拆分

将Excel表格等距拆分的方法有：使用公式、使用VBA、使用Power Query。其中，使用公式的方法最为简单易用。下面将详细描述如何使用公式来实现等距拆分。

一、使用公式拆分

1. 创建辅助列

首先，在Excel表格中创建一列辅助列，用于记录行号。假设数据从A列开始，在B列输入公式 =ROW(A1)，然后将公式向下填充到最后一行数据。

2. 使用MOD函数

接下来，使用MOD函数来实现等距拆分。假设需要将数据等距拆分为每5行一组，在C列输入公式 =MOD(B1-1,5)+1，然后将公式向下填充到最后一行数据。这样，C列的数值将从1到5循环变化。

3. 筛选数据

根据C列的数值进行筛选，例如筛选出C列等于1的数据，即可得到第一组数据。重复这一操作，逐个筛选出每一组数据。

二、使用VBA拆分

1. 打开VBA编辑器

按Alt+F11打开VBA编辑器，然后插入一个新模块。

2. 输入VBA代码

在新模块中输入以下VBA代码：

Sub SplitData()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim lastRow As Long
    Dim groupSize As Long
    Dim i As Long
    Dim newSheetIndex As Long
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    groupSize = 5 ' 修改为你需要的等距大小
    newSheetIndex = 1
    For i = 1 To lastRow Step groupSize
        Set newWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newWs.Name = "Group" & newSheetIndex
        ws.Rows(i & ":" & Application.Min(i + groupSize - 1, lastRow)).Copy Destination:=newWs.Rows(1)
        newSheetIndex = newSheetIndex + 1
    Next i
End Sub

3. 运行VBA代码

按F5运行该代码，即可将数据按指定的等距大小拆分到新的工作表中。

三、使用Power Query拆分

1. 加载数据到Power Query

选择数据区域，点击“数据”选项卡，选择“从表/范围”，将数据加载到Power Query编辑器中。

2. 添加索引列

在Power Query编辑器中，点击“添加列”选项卡，选择“索引列”，然后选择“从1开始”。

3. 使用公式计算组号

在Power Query编辑器中，点击“添加列”选项卡，选择“自定义列”，输入以下公式：

= Number.RoundDown(([Index] - 1) / 5) + 1

这将根据索引列计算组号。

4. 按组号拆分

在Power Query编辑器中，点击“主页”选项卡，选择“拆分为查询”，选择“按组号拆分”，然后选择“按每个分组创建新查询”。

5. 加载拆分结果

在Power Query编辑器中，点击“关闭并加载”，将拆分结果加载回Excel工作表。

通过以上三种方法，可以将Excel表格中的数据进行等距拆分。使用公式的方法最为简单易用，适合大多数用户。如果需要更加自动化的操作，可以考虑使用VBA或者Power Query。