工资条的制作方法

分享三种简单制作工资条的方法（原创）
(2012-02-17 18:58:29
方法1使用宏制作工资条
用宏可以方便快捷的做出工资条，方法如下（以表头是单行和双行为例）：
1.首先打开工资表，点击工具-》宏》录制新宏
2．在弹出界面中输入新建宏的名称，点击确定
3，在弹出的小图标中，点击“停止录制”
4,回到工具-》宏-》宏，在列表中选择需要编辑录入的宏命令，点击“编辑”，会出现编辑界面
5、在两个引号之间的空白处，填上以下命令（针对表头是单行的），“For i = 1 To 75”可以选择工作表中需要插入表头的行数。

点击文件-保存
Dim i As Integer
For i = 1 To 75
Rows("1:1").Select
Selection.Copy
Rows(2 * i + 1).Select
Selection.Insert Shift:=xlDown
Next
6点击表头的图标，回到工资表的界面，再点击工具-》宏-》宏，选择需要的宏执行就可以了，需要提醒的是，一旦运行，就撤销不了了O(∩_∩)O~。

对于表头是双行的，使用以下公式即可（797可以根据需要进行改动）：
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
方法:2：空位法
第一步：在工资细目的右侧两列中，交叉输入任意数字（主要是为了后面的“空位”空值，所以数字可任意输），然后选中交叉的四个单元格，双击右下角的“填充柄”，使这种格式一直填充至工资表的结束行（如图5）。

图5填充数据
第二步：执行“编辑”→“定位”命令，在打开的“定位”对话框中单击“定位条件”按钮，在打开的“定位条件”对话框中，选择“空值”，然后单击“确定”按钮（如图6）。

6定位空行
第三步：执行“插入”→“行”命令，这时便会从第三行开始，每一行的前面插入了一个空行。

第四步：复制表头的工资细目数据，选中工资表A列的数据区域，执行“编辑”→“定位”命令，在打开的“定位”对话框中单击“定位条件”按钮，在打开的“定位条件”对话框中，选择“空值”，然后单击“确定”按钮，这时会选中刚插入的空行，执行“编辑”→“粘贴”命令，这时工资条就算制作完成了（如图7）。

方法三：排序法
首先，如图，选中工资部分，在工资表头下面插入相同的行数：
（图1，原始工资表）
（图2，插入相同行数）
第二步，将工资表头向下填充到空白部分，然后任选位置，插入一列，注意必须将表头加入字段，否则将无法排序。

（图三，填充单元格）
（插入一列，并键入字段，以“人数”为例）
第三步，填充数字，分两段进行填充，表头内容按照序列填充，工资内容按序列填充。

最后再按照这一列进行排列。

这样工资条就完成了。