Excel批量动态跨行填充：如何将指定行前两列数据转至右侧表格

方法一：Excel数组公式（适配中等规模海量数据） #

假设左表前两列为A、B列，右表目标填充列是D、E列：

• 在D2单元格输入公式，下拉填充至所有行：

  =INDEX($A:$A,INT((ROW()-2)/9)*9+1)
  

• 在E2单元格输入公式，下拉填充至所有行：

  =INDEX($B:$B,INT((ROW()-2)/9)*9+1)
  

原理：通过INT((ROW()-2)/9)计算当前行所属的分组序号，再定位到每组首行，用INDEX提取对应单元格数据，实现动态跨行填充。

方法二：Power Query（适配超大规模海量数据） #

Power Query处理海量数据性能更优，避免卡顿：

1. 将左表数据导入Power Query编辑器。
2. 若数据无索引列，先添加索引列（从1开始）；再添加自定义列「组编号」，公式：

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

3. 按「组编号」分组，保留每组A、B列的首行数据：

   Table.Group(源, {"组编号"}, {{"A列值", each List.First([A]), type text}, {"B列值", each List.First([B]), type text}})
   

4. 将分组后的表与原表按「组编号」合并，展开A列值和B列值，得到每行对应填充数据。
5. 将结果加载回Excel，即为右表所需内容。

方法三：VBA脚本（适配自动化批量处理） #

若需频繁处理此类数据，VBA可实现一键自动化：

Sub 批量跨行填充()
    Dim lastRow As Long
    Dim i As Long
    Dim groupStart As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow
        groupStart = ((i - 2) \ 9) * 9 + 2 '假设数据从第2行开始，可按需调整
        Cells(i, "D").Value = Cells(groupStart, "A").Value
        Cells(i, "E").Value = Cells(groupStart, "B").Value
    Next i
End Sub

使用说明：打开Excel开发者工具，插入模块粘贴代码，运行即可，注意根据实际表格调整行列参数。

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