怎样快速的在excel2003中每行中间插入空白行

怎样快速的在excel2003中每行中间插入空白行

你先在后面白列第一行输入=IF(MOD(ROW(),2)=0,1,\"\")并向下填充,然后点筛选--自动筛选---选择1项,选定这些1编辑--定位--定位条件--可见单元格,点插入行,然后再把这一列删除,再在第三行输入=IF(MOD(ROW(),3)=2,1,\"\")并向下填充,然后点筛选--自动筛选---选择1项,选定这些1编辑--定位--定位条件--可见单元格,点插入行.

最佳办法

你在ABCD4行的末列（或第一列）加上数字（NO），像下面这样

A行 1

B行 2

C行 3

D行 4

然后再把1234复制粘贴一次，像下面这样

A行 1

B行 2

C行 3

D行 4

1

2

3

4

再在数字列升序排序，像下面这样

A行 1

1

B行 2

2

C行 3

3

D行 4

4

最后再把数字列删除就OK了。

用VBA最快

右击工作表标签，查看代码，把下列代码贴在弹出的VBA窗口，按F5运行就可以了

Sub tt()

Application.ScreenUpdating = False

For i = 1 To [a65536].End(3).Row * 2 Step 2

Rows(i).Copy

Cells(i + 1, 1).Insert

Next

Application.ScreenUpdating = True

Application.CutCopyMode = xlCut

End Sub

找你表格外一列（不如说E列），在E1单元格中输入1，E2单元格中输入3，选择E1:E2区域下拉，则E3、E4单元格分别是5、7，在E5单元格中输入2，E6单元格中输入4，选择E5:E6区域下拉，则E7、E8单元格分别是6、8（如图）。

选择A:E列（注意：自后向前选择，使E列为当前行），然后点击“升序排列”，成功。