Question

在excel中（含有合并单元格）如何在特定位置批量插入行。

做一个考点监考员安排表，人员什么的都已经安排好了（如下）,注意：0501和XXXX中学是合并单元格 0501 XXXX中学 尹X华 XX学校 八年级 语文 甲
朱X棠 XX中学 七年级 语文 乙
现在的问题是如何在每条信息前都插入一行表头（如下）：
试室 毕业学校 监考员姓名 所在学校 年级 科目 分工
我的方法是一条一条插入，太麻烦，有没有别的更简单有效的方法？





Answer 1

1.如图报表所示，在2E列添加a、3F列添加a，选定与其相对角的4个单元格，鼠标放置选定单元格右下角，拉选定致整个报表的长度，格式即进行了复制，如图所示：

2.按ctrl+G快捷键，定位条件，选定常量，点击确定，如图所示：

3.不要移动鼠标使格式变换，点击鼠标右键，出现下拉框，选择插入整行，所图所示：

4.第三步骤第二种方法，开始工具栏找到插入单元格，选定整行，点击确定，如图所示：

5.然后，单元格以经批量插入一行，清除E、F列的内容，再根据自己的需求进行调整，批量插入行的任务就完成了，如图所示：

Answer 2

看这样是不是能给你点参考。

Answer 3

Sub zxc()
For i = 13 To 1 Step -5 '注意倒序，每隔几行插入就写“ -* ”这里是-5，需要从多少行开始插入就在=号和TO之间输入*行。这里是13行。
If Sheet1.Cells(i, 1) <> "" Then
Rows(i + 1 & ":" & i + 3).Insert '插入3行，每次插入几行就输入*行
Sheet1.Cells(i, 2) = Sheet1.Cells(i, 1)
End If
Next i
End Sub

在免费赠送一个合并的vb宏，自己领悟。
Sub Macro2()
For i = 2 To 20 Step 4 '从第二行开始到20行，每4行合并一次
If Sheet1.Cells(i - 1, 2) <> "" Then
Range(Cells(i - 1, 2), Cells(i + 2, 2)).Merge '合并4行
End If
Next i
End Sub

Answer 4

都是2行合并的很规律的数据么？如果是，不用VBA，分分钟搞定，上传附件

Answer 5

考虑用VBA，建议上传附件。