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

发布网友发布时间：2022-04-24 02:09

我来回答

共3个回答

热心网友时间：2023-10-21 02:13

在每行下面插入相同的行，可以用VBA编程来实现。例如每行下面插入2行，其代码如下：

Sub 插入()

Dim I As Integer

I = 1

Do While Cells(I, 1) <> "" '判断首列为空时结束。可以根据实际情况做调整

Cells(I + 1, 1).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

I = I + 3

Loop

End Sub

运行前表格如图所示：

运行后如图：

热心网友时间：2023-10-21 02:13

在每行下面插入相同的行，可以用VBA编程来实现。例如每行下面插入2行，其代码如下：

Sub 插入()

Dim I As Integer

I = 1

Do While Cells(I, 1) <> "" '判断首列为空时结束。可以根据实际情况做调整

Cells(I + 1, 1).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

I = I + 3

Loop

End Sub

运行前表格如图所示：

运行后如图：

热心网友时间：2023-10-21 02:13

将需要插入的行复制若干，数量等同你需要插入的行数，然后复制到原始数据最下方。
在原始数据前增加1列序号，分别输入
1、2（然后拉到底）
，然后复制该列序号到粘贴过来需要插入的数据前面，得到1列
1、2、、xxx、1、2、、xxx
形式的序号，然后用该列排序，最后删除该序号列即可。

热心网友时间：2023-10-21 02:14

是指每隔一行插入一行相同的内容吗？
点击表左侧的行号选择行，右键复制，在每行下点行号，右键粘贴相同内容。
序列方法有*：要求不能有合并单元格，“单元格具有相同大小”
具体：输入想要的一行固定内容，空白列中头2行分别输入1、3，选中两单元格，向下拖拉至自己想要的行数，接下输入2，4，拖拉，选中全部表格内容，菜单“数据/排序”，按x列（拖拉形成的数据列）排序即可。（此法表中不能有合并单元格奥，如果有合并单元格，还是逐行粘贴吧）

热心网友时间：2023-10-21 02:13

热心网友时间：2023-10-21 02:14

热心网友时间：2023-10-21 02:13

在每行下面插入相同的行，可以用VBA编程来实现。例如每行下面插入2行，其代码如下：

Sub 插入()

Dim I As Integer

I = 1

Do While Cells(I, 1) <> "" '判断首列为空时结束。可以根据实际情况做调整

Cells(I + 1, 1).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

I = I + 3

Loop

End Sub

运行前表格如图所示：

运行后如图：

热心网友时间：2023-10-21 02:13

热心网友时间：2023-10-21 02:14