1. 在每行下方插入相同数量的空行
  2. 每隔相同数量行的下方插入相同数量的空行


https://www.office68.com/excel/2118.html

示例一：间隔一行插入多行

方法1：公式+辅助列

如图，要在每个 “姓名” 的后面插入 2 行，步骤如下：
image.pngimage.png

  1. C2:C6 填充顺序序列
  2. C7 输入公式：=CEILING(ROW(A1),2)/2 或 INT((ROW(A1)-1)/2)+1，下拉填充公式直至出现大于C6值的数字
  3. 辅助列升序排序，即 A-Z排序
  4. 删除辅助列

这里插入两行空白行，所以公式红色数字为2，可修改

方法2：VBA

image.png

  1. Sub 插入空行()
  2. Dim i&, t
  3. For i = Sheet1.[a1].End(xlDown).Row To 2 Step -1
  4. Sheet1.Rows(i).Resize(2).Insert
  5. Next
  6. End Sub

示例二：间隔多行数插入多行

如图，两个 “姓名” 为一组，要在每组的后面插入 3 行，步骤如下：
image.pngimage.png

  1. 在 C2 中输入公式：=IF(A2=””,INT((ROW(A1)-COUNTA(A:A))/3),INT((ROW(A1)-1)/2))+1
  2. 然后拖动填充柄填向下充公式，直到公式返回结果的最大值大于 B 列 “组别” 的数量
  3. 按 C 列升序排序即可得到结果。

    示例三：间隔不等数量的行插入多行

如图，要在每户最后一个 “姓名” 的下面插入 2 个空白行。


【Excel】 插入空白行-全部应用场景 - 图6【Excel】 插入空白行-全部应用场景 - 图7【Excel】 插入空白行-全部应用场景 - 图8

  1. 在 C2 中输入公式：=IF(A2<>””,COUNTIF(B$2:B2,” 户主 “),INT((ROW(A1)-COUNTA(A:A))/2)+1)

然后拖动填充柄填向下充公式，直到公式返回结果的最大值大于 B 列户数（C19 单元格），本例为 5。

  1. 按 C 列升序排序即可得到结果。

[

](https://www.office68.com/uploads/allimg/120629/22224K095-8.jpg)