电子表格EXCEL中如何在每行下面插入相同的行?

1.EXCEL中如何在每行下面插入相同的行?

在每行下面插入相同的行，可以用VBA编程来实现。

例如每行下面插入2行，其代码如下：Sub 插入（）Dim I As IntegerI = 1Do While Cells(I, 1) <> "" '判断首列为空时结束。可以根据实际情况做调整 Cells(I + 1, 1).Select Selection.EntireRow.Insert , CopyOrigin:= Selection.EntireRow.Insert , CopyOrigin:= I = I + 3LoopEnd Sub运行前表格如图所示：运行后如图：。