Excel批量复制4行公式组（含空白行间隔）求助

给你几个实用的批量处理方法：

方法一：用ROW函数写通用公式，自动适配分组 #

不用手动区分每组，直接写能自动识别行位置的公式：

• 把这个公式放到C1单元格，然后下拉到所有行：
  =IF(MOD(ROW(),5)=0,"",IF(MOD(ROW(),5)<=3,A1+B1,""))
• 再把这个公式放到C4单元格，同样下拉：
  =IF(MOD(ROW(),5)=4,C3/C1,"")
  这样下拉后，每5行里的前3行自动求和，第4行自动计算除法，第5行留空，完美匹配你的规律。

方法二：用填充柄直接重复模式 #

• 先手动设置好前5行（C1-C4公式，C5空白）
• 选中C1到C5这整5行，把鼠标移到选区右下角的填充柄（小方块）上，按住Ctrl键往下拉到底
  Excel会自动重复这个5行的组合，直接搞定所有行，不用手动跳空白行。

方法三：VBA宏一键批量生成 #

如果数据量特别大，用宏更高效：

1. 按Alt+F11打开VBA编辑器，右键插入一个新模块
2. 粘贴下面的代码：

Sub BatchFillFormula()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    Dim i As Long
    For i = 1 To lastRow Step 5
        Cells(i, "C").Formula = "=A" & i & "+B" & i
        Cells(i + 1, "C").Formula = "=A" & i + 1 & "+B" & i + 1
        Cells(i + 2, "C").Formula = "=A" & i + 2 & "+B" & i + 2
        If i + 3 <= lastRow Then
            Cells(i + 3, "C").Formula = "=C" & i + 2 & "/C" & i
        End If
        If i + 4 <= lastRow Then
            Cells(i + 4, "C").ClearContents
        End If
    Next i
End Sub

3. 点击运行按钮，宏会自动根据A列的最后一行数据，按你的规律批量填充公式和空白行。

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