作者：乔山办公网日期：
返回目录：excel表格制作
做了一个每隔3行插入一个空行的代copy码。百
Sub 插入()
Dim I, J As Integer
I = 2
Const MM = 3 '每个3行插入1行
J = 0
Do While Cells(I, 1) <> "" ‘表头默认为第度一行，当第一列数据为空时，表示数据项结束
If J = MM Then
Cells(I, 1).Select
Application.CutCopyMode = False
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
J = 0
I = I + 1
End If
I = I + 1
J = J + 1
Loop
End Sub
执行代码前问表格如图所示：
执行代码后答如图所示：
选中
假设原始数据复在A1：F100中，在G列增加一个辅助列，G2中输制入百0.5，G3中输入3.5，选中G2：G3，下拉到G100，G100的数字就是度294.5，G101中输入294，G102中输入293，选中G101：G102，下拉到1为止，再利用选中A：G，利用G列进行排序知，就可以插入空行，最后把G列删除。道
1、首先需要打开软件表格，创建一列作为辅助列，如图所复示，在空白列输入一个任意数。
2、每隔两行插入一行空白行，如图所示，助列中选中连续的两行。
3、然后接下来就是制全部选中后使用知下来柄下拉直到最后一行数据。
4、按F5打开定位对话框，如图所示，并且点击定位条件。
5、然后接下来就是需要选择道常量。
6、鼠标右键单击选择插入。
7、选择点击整行的选择。
8、最后，可以看下如图所示的效果，这样就可以了。