如何在excel表中每行前面都插入相同的一行

mnigcf

各位前辈，请教下如何实现在excel表中每行前面都插入相同的一行。

我们在算工资的时候在每行前面没有标题，在打印工资条的时候就需要添加上，如何添加，请指教
图1

开始如图1，插入之后如图2（不想每次都复制再插入  很累）
图2

wjzwang

这个问题,可搜索工程条相关的内容,应该有不少的函数可以实现
如果想自己简单动手的话,参考以下步骤:
1.在A列前插入一列,作为辅助列(序号)
2.输入从上到下单元格分别输入1,2,3.....N的自然序列,到最后一条记录
3.接第二步的N后输入1.5,2.5,3.5....N.5,并在后面单元格中输入工资条标题信息
4.以辅助列为依据升序排列
5.删除辅助列
OK

selva_xue

也就是隔行插入空白行，之后再粘贴也可以吧？！我也一直想知道能怎么操作呢。

wjzwang

结个以前做的例子给你参考

sunya_0529

原帖由 mnigcf 于 2010-6-25 13:36 发表
各位前辈，请教下如何实现在excel表中每行前面都插入相同的一行。

我们在算工资的时候在每行前面没有标题，在打印工资条的时候就需要添加上，如何添加，请指教
图1
740983
开始如图1，插入之后如图2（不想每次 ...

解决此类问题最优的方法当先VBA，一个按钮搞定。

我帮你写了一个相对傻瓜的宏，如果数据格式根示例文件中的没有什么明显区别的话，直接移植过去就可以使用。

代码如下——

1. 
   
2. Sub 生成工资条()
   
3. On Error Resume Next '设置错误处理
   
4. Dim k As Range, intRow%
   
5. Set k = Application.InputBox("请选择标题行所在单元格：", "选择标题行", Type:=8)
   
6. If k Is Nothing Then Exit Sub
   
7. intRow = 1
   
8. Application.ScreenUpdating = False
   
9. With ActiveSheet
   
10.   Do
    
11.     k.EntireRow.Copy '复制标题行
    
12.     .Rows(intRow * (k.Rows.Count + 1) + k.Cells(1, 1).Row).Insert Shift:=xlDown '隔行插入标题行
    
13.     intRow = intRow + 1 '计数器累加
    
14.   Loop While .Cells(intRow * (k.Rows.Count + 1) + k.Cells(1, 1).Row, k.Column) <> "" '无工资记录则停止复制标题行
    
15. End With
    
16. Application.CutCopyMode = False
    
17. Application.ScreenUpdating = True
    
18. Set k = Nothing
    
19. End Sub
    

复制代码

功能介绍：
1、运行宏后会提示你确定标题行位置，选中整个标题行所在单元，或者只选标题行最左侧的单元格都行；
2、工资表数据起始单元格不在A1也可以通用；
3、如果标题行由多行数据构成，选择多行一样可以生成标题行。


具体效果如附件所示——

awfi601

为什么要这样做工资条呢？邮件合并的效率会比这个高啊

JTFlash

http://club.excelhome.net/forum. ... 515&pid=3966938 很厉害！

我是来讨说法的

看sheet1和sheet2