如何批量实现每6行变更数据首列？27个首列值批量处理求助

方法一：Excel公式快速填充 #

• 先把27个要替换的首列值单独放在一列（比如G列，G1到G27）
• 假设原始5行固定数据在A1:F5，生成的新数据从A7开始：
  • 首列（A列）公式：=IF(MOD(ROW(A7)-7,6)=5,INDEX($G$1:$G$27,INT((ROW(A7)-7)/6)+1),INDEX($A$1:$A$5,MOD(ROW(A7)-7,6)+1))
  • 第2-6列（B-F列）公式：=INDEX($B$1:$F$5,MOD(ROW(B7)-7,6)+1,COLUMN(B7)-1)
• 原理：用MOD判断当前行是每组的第几行，第6行就取G列的新首值，其余行直接复用原始数据；B-F列循环提取原始5行的对应列数据，下拉填充即可覆盖所有27组。

方法二：Power Query 批量生成 #

1. 把原始5行数据和27个首列值分别导入Power Query（数据选项卡→从表格/区域）
2. 在首列值的查询表中添加自定义列，将每个首值与原始5行数据合并，补充第6行（首值替换，其余列复用原始第一行的B-F值）
3. 展开自定义列，整理格式后加载回Excel工作表

• 核心自定义列公式示例：= Table.Combine({#"原始数据", #table({"列1","列2","列3","列4","列5","列6"},{{[首列值],原始数据[列2]{0},原始数据[列3]{0},原始数据[列4]{0},原始数据[列5]{0},原始数据[列6]{0}}})})

方法三：VBA宏一键生成 #

• 按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub GenerateDataGroups()
    Dim originalData As Range
    Dim newFirstCols As Range
    Dim targetSheet As Worksheet
    Dim i As Integer
    Dim startRow As Integer
    
    ' 按需修改区域和工作表名
    Set originalData = ThisWorkbook.Sheets("Sheet1").Range("A1:F5")
    Set newFirstCols = ThisWorkbook.Sheets("Sheet1").Range("G1:G27")
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    startRow = 7 ' 新数据起始行
    
    For i = 1 To newFirstCols.Rows.Count
        ' 复制原始5行到目标位置
        originalData.Copy targetSheet.Cells(startRow + (i - 1) * 6, 1)
        ' 替换第6行首列值
        targetSheet.Cells(startRow + (i - 1) * 6 + 5, 1).Value = newFirstCols.Cells(i, 1).Value
    Next i
End Sub

• 调整代码里的工作表名、数据区域，运行宏就能自动生成所有27组数据。

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