Excel相邻的两个单元格差值大于一则之间插入空白行？

Question

Excel相邻的两个单元格差值大于一则之间插入空白行。差值是一不进行操作，差值是二则插入一行空白行，差值是三插入两行空白行，以此类推，这个要怎么实现呢？

Answer 1

Excel相领的两个单元格差值大于一则在其中间插入一行，这只能用代码来完成，如下：

第一步：按Alt+F11组合键打开VBA编辑器；

第二步：依次单击“插入”菜单-“模块”；

第三步：在模块中输入代码，按F5快捷键运行。

注：具体代码视表格具体结构而定。

Answer 2

试试这个宏，选中要执行插入行的单列范围，然后运行这个宏：

Sub charu()
With Selection
rs = .Rows.Count
For i = rs To 2 Step -1
tmp = .Item(i) - .Item(i - 1) - 1
If tmp > 0 Then
.Item(i).Resize(tmp).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End With
End Sub本回答被提问者和网友采纳

Answer 3

代码代码代码