电子表格EXCEL中怎样一次性将每行中再插入两行?

1.EXCEL中怎样一次性将每行中再插入两行?

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

用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

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

2.EXCEL中怎么实现在每两行之间加一行

假设，数据在sheet1的A列中。我们可以把数据按你说的样式全部引用到sheet2中。

在sheet2的A1输公式

=IF(MOD((ROW()+1),2)=0,INDEX(Sheet1!A:Z,(ROW()+1)/2,1),(INDEX(Sheet1!A:Z,ROW()/2,1)+INDEX(Sheet1!A:Z,(ROW()+2)/2,1))/2)

再把公式往下拖到两倍于sheet1数据区。

即可让sheet2的A1,A3,A5,A7值为sheet1中的A1,A2,A3,A4等。

而sheet2的A2为sheet1的A1,A2的平均值，A4为sheet1的A2,A3的平均值。以此类推。