1、首先在电脑上打开Excel软件，然后在Excel中打开需要处理的文档。 2、接下来在每行上端插入3行，如序号、姓名、职务、工资、合计，然后在上方复制插入，并在序号前插入一列，编上序号1、3、5、2、4、6。 3、然后选中列A进行排序，选择数值，升

在工作中经常会碰到一种情况，就是在excel表格每一行中插入内容重复的一行，如何快速实现这一操作，现以制做工资单为例。

材料/工具

Excel

方法

最开始的表格，如何在后边每个人上边加一行，序号、姓名、职务、工资、合计，不用重复手动操作。

1、开表格，并在表格里面输入相关内容，然后需要在每个名字上面都加入一行相同的内容。例如内容为：序号、姓名、职务、工资、合计。 2、这时候可以直接在首行里面插入已经编辑好的内容，然后将其复制粘贴到其他两行，并将各行都输入一个编号。 3

在首行上端根据需要插入3行，复制序号、姓名、职务、工资、合计，并在序号前插入一列，编上序号1、3、5、2、4、6

1、在左上角的工作表标签位置，单击鼠标右键，“选定全部工作表”，将所有工作表处于组合状态； 2、在任一工作表的首行插入一行内容，则所有工作表的首行均插入了同样的内容； 3、完成编辑后，在左上角的工作表标签位置，单击鼠标右键，“取消组合

选中列A，进行排序

选中这个区域，击右键，设置单元格格式 数字，自定义 自定义类型中填入 你好@ 确定，即可

排序，选中列A,数值，升序，点击确定

1、先在另一工作表输入你要“插入一行相同的内容”； 2、在原工作表A列前插入一列（成为新A列）； 3、在新A2输入“A”——选A1~A2——下拉至末尾； 4、光标不动：按Ctrl+G——定位条件：空值（点选）——确定； 5、光标不动：菜单栏——插入——行； 6、删除之前

排序后的效果如图

1.如分别有：“A,B,C,D”四列的一个表格，图示一 那么首先在：“E,F”列中分别输入任意字符（字母或数字），注意输入的数字要呈现层次，如：E2单元格输入数字1，F3单元格输入数字2. 2.拖动并填充整行整列数据，鼠标移动到E2，F3单元格往下拉快速填充

扩展阅读，以下内容您可能还感兴趣。

如何在Excel中的每一行再插入一行相同的内容？

1、首先在电脑上打开Excel软件，然后在Excel中打开需要处理的文档。

2、接下来在每行知上端插入3行，如序号道、姓名、职务、工资、合计，然后在上方复制插入，并在序号前插入一列，编上序号1、3、5、2、4、6。

3、然后选中列A进行排序，选择数值，升序，接着点击确定。

4、点击确定之后就完成了。

excel中怎么在表格的每一行前面插入相同的两行（有合并项）？

excel中在表格的每一行前面插入相同两行的步骤制如下：

1.首先在电脑桌面打开百excel，然后打开一个已经制作好的excel表格。

2.在首行上端根据需要插度入3行，复制序号、姓名、职务、工资、合计，并在序号前插入一列，编上序号1、3、5、2、4、6。问

3.鼠标选中列A，然后开始进行排序。

4.排序, 选择列 A, 数值, 升序, 单击确定就可以了。

5.这样就解决了excel中在表格的每一行前面插答入相同两行的问题了。

如何快速在excel表格每一行插入相同一行内容

在表格右侧（或左侧）空列添加一列序号：1、2、3、4......150。（假设有150行数据）

在序号的末尾做继续序号：2.5、3.5、4.5、5.5.....149.5 。

复制一行（就是zd需要插入到每行之间的那一行）。

选中新作空序号的区域---粘贴。就有了若干行同样的东东。（每行对应一个序号，2.5、3.5、4.5...）

光标在序号列任意格，点工具条中的“排序”（升序）按钮，序号就排列成1、2、2.5、3、3.5、4、4.5.....了，整个表格就达到了你的要求。

如何在excel表格每隔1万行插入一行相同的数据？

复制代码，按ALT+F8执行百，然后度 按CTRL+G,定位空值，输问入 dsa@qq.com，同时按答CTRL+回车键

Sub 插入行()

Dim i%, rng As Range

R = [a2000000].End(3).Row

Set rng = Rows(10001)

For i = 20001 To R Step 10000

Set rng = Union(rng, Rows(i))

Next

rng.Insert

End Sub更多追问追答追问有100万行数据，有没有办法快速下拉？追答

用代码，注意，先另存。

复制代码，按ALT+F8执行，

然后 选定AB列，

按CTRL+G,定位空值

在上方 编辑栏 输入 dsa@qq.com，同时按CTRL+回车键

以每10行为例

查看代码

复制进去

关闭代码窗口。

注意另存表格，以免出错。

Sub 插入行()

Dim i%, rng As Range

R = [a2000000].End(3).Row

Set rng = Rows(10001)

For i = 20001 To R Step 10000

Set rng = Union(rng, Rows(i))

Next

rng.Insert

Columns("A:B").Select

Selection.SpecialCells(xlCellTypeBlanks).Select

Selection.FormulaR1C1 = "dsa@qq.com"

End Sub追问提示 宏 要求对象 ？追答

Sub 插入行()

Dim i%, rng As Range

R = [a65536].End(3).Row

Set rng = Rows(10001)

For i = 20001 To R Step 10000

Set rng = Union(rng, Rows(i))

Next

rng.Insert

    Columns("A:B").Select

    Selection.SpecialCells(xlCellTypeBlanks).Select

    Selection.FormulaR1C1 = "dsa@qq.com"

End Sub

我是03版本，最多 65536行，你试下。

要不你分2次操作

把代码修改下。

在EXCEL 2007表格中已有数据, 如何可以一下子在每一行数据下插入相同的空白行?

可以这样做：

1.在已抄有数据前增加袭一列（A列）。

2.然后在这一列中，百将已有度数据填充数列1，问2，3，4..n.

然后，再在这列的n+1行开始填充数列1.5，2.5，3.5.....n.5

最后，将整个表格按照A列递增答的顺序排