EXCEL中怎样一次性将每行中再插入两行？

Question

如题所述

Answer 1

=========================================================================

用VBA就可以，具体操作如下图：（点击可放大）

 

 

图中模块的代码如下（不用你自己敲直接复制过去就可以咯^_^）：

 

Sub 隔行插入() 

Application.ScreenUpdating = False 

Dim i%, j%, x%, y% 

x = 1 '间隔行数 

y = 2 '插入行数 （上图例子插入的是3行，所以y=3，你要插入2行，设置y=2）

With ActiveSheet 

For i = 1 To y 

For j = 1 To .[A65536].End(xlUp).Row + Int(.[A65536].End(xlUp).Row / (x + i - 1)) 

If j Mod (i + x) = 0 Then .Rows(j).Insert 

Next j 

Next i 

End With 

Application.ScreenUpdating = True 

End Sub

 

 

在需要的地方运行“隔行插入”宏即可。可以修改代码中注释部分前面的间隔行数和插入行数，以满足不同的需要。 

Answer 2

用公式。假定原数据在SHEET1表，可在SHEET2表A1单元格输入公式：
=INDEX(SHEET1!A:A,IF(MOD(ROW(),3)=1,INT(ROW()/3)+1,65536)&""
将公式向右向下复制。
再用选择性粘贴将公式结果固定下来。

Answer 3

空白列拖出序号，复制，在下方粘贴两次。
数据，排序，第一关键字选新增的序号列。

Answer 4

借助辅助列，使用排序可完成
辅助列

排序

Answer 5

1、找一空列，先把原来的数据按1，2，3....编上顺序号，再在接着的空行上输入公式=INT(ROW(A2)/2)，下拉原数据列的2倍空行。复制这列数据，选择性粘贴，数值。
2、如果想插入空行，选择原来的所有数据，包括后面已经输入序号的空行，按这带有序号的列排序，完成操作好删除本列，你要的结果就出来了。
3、如果插入的是数据行，在第1步的下拉公式之前，先粘贴好要复制的内容，然后同时下拉，再按第2步操作，你要的结果也同样得到。