如何将Excel中单行多组数据自动拆分为多个等规模表格？

针对你需要将每行多组重复结构的数据拆分为独立表格的需求，以下是三种高效自动的实现方法：

方法1：Power Query（无代码，推荐） #

Power Query是Excel内置的批量数据处理工具，适合处理大量数据：

1. 选中原始数据区域（包含表头），点击「数据」选项卡 → 「从表格/区域」，确认弹窗后进入Power Query编辑器。
2. 若每组列数固定（比如3列）：
   • 选中前3列，右键→「复制」，点击「开始」→「粘贴」→「粘贴为新查询」，这就是第一个表格的数据源。
   • 对后3列重复上述操作，得到第二个表格的数据源。
   • 分别调整每个查询的表头，点击「关闭并上载」，将数据导出到新工作表。
3. 若组数较多，可编写M代码循环处理列组，自动提取所有组的数据源。

方法2：公式法（适合小规模数据） #

假设原始数据在Sheet1的A1:F区域：

1. 新建Sheet2作为第一个表格（name1组）：
   • A1输入=Sheet1!A1，B1输入=Sheet1!B1，C1输入=Sheet1!C1
   • A2输入=Sheet1!A2，B2输入=Sheet1!B2，C2输入=Sheet1!C2
   • 选中A2:C2下拉填充，获取所有行的第一组数据。
2. 新建Sheet3作为第二个表格（name2组）：
   • A1输入=Sheet1!D1，B1输入=Sheet1!E1，C1输入=Sheet1!F1
   • 数据行按上述规律用公式引用原始数据，下拉填充即可。

方法3：VBA宏（适合大规模自动化） #

如果数据行数和组数都很多，用VBA宏可一键完成拆分：

Sub SplitTables()
    Dim srcSheet As Worksheet
    Dim newSheet As Worksheet
    Dim lastRow As Long
    Dim colGroupSize As Integer ' 每组列数，此处设为3
    Dim groupCount As Integer ' 组数
    
    Set srcSheet = ThisWorkbook.Sheets("Sheet1") ' 原始数据所在工作表
    colGroupSize = 3
    groupCount = srcSheet.Cells(1, Columns.Count).End(xlToLeft).Column / colGroupSize
    
    ' 循环处理每个组
    For j = 1 To groupCount
        Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        newSheet.Name = "Group" & j
        
        ' 复制表头
        srcSheet.Cells(1, (j - 1) * colGroupSize + 1).Resize(1, colGroupSize).Copy newSheet.Cells(1, 1)
        
        ' 复制所有行的对应组数据
        lastRow = srcSheet.Cells(Rows.Count, 1).End(xlUp).Row
        srcSheet.Cells(2, (j - 1) * colGroupSize + 1).Resize(lastRow - 1, colGroupSize).Copy newSheet.Cells(2, 1)
    Next j
End Sub

使用步骤：

1. 按Alt+F11打开VBA编辑器，插入新模块并粘贴代码。
2. 修改代码中的srcSheet名称、colGroupSize（每组列数）参数。
3. 运行宏，自动生成所有独立表格。

内容的提问来源于stack exchange，提问作者Emu_Flock