工资条的几种制作方法

1、方法介绍：利用排序在每个员工前面插入空白行，复制表头，选择空白行粘贴即可

第一步：打开需要处理工资统计表，在工资统计表的空白列的第一位和第二位姓名输入1,3,利用“快速填充”快速填充其他直至最后一位。

2、第二步：利用同样的方法接着填充2,4,6,8......直至最后一位数比最后一位所填充的数少1，即可。

3、第三步：选择处理区域，右键——排序——升序，即可按照1.2.3.4.5....排序好，也就达到在每行插入一行空白行的目的。

4、第四步：复制表头，然后利用"定位"选定空白行，粘贴即可。具体定位：Ctrl+G——定位条件——空值。完成

1、方法介绍：利用宏命令实现复制表头，在每行之间复制一次。总共复制（员工人数-1）次。

第一步：打开需要处理工资统计表，录制个空白的宏。

2、第二步：查看宏——编辑——复制下列内容

——————————————————

Dim i As Integer

For i = 1 To 4

Rows("1:1").Select

Selection.Copy

Rows(2 * i + 1).Select

Selection.Insert Shift:=xlDown

Next

——————————————————

注意：1.“For i = 1 To 4 ”表示只复制4次表头，因为我举例只有5个人，只需要复制4次即可，具体情况就改多少。例如20次：For i = 1 To 20

         2.这个公式只适合单表头，双表头公式：

———————————————————

Dim i As Integer 

For i = 2 To 797                                

Rows("1:2").Select    

Selection.Copy 

Rows(3 * (i - 1) + 1).Select    

Selection.Insert Shift:=xlDown       

Next 

———————————————————

注意：参数也要具体问题具体设置

3、第三步：运行宏，即可。