工资条的制作方法
分享三种简单制作工资条的方法(原创)
(2012-02-17 18:58:29
方法1使用宏制作工资条
用宏可以方便快捷的做出工资条，方法如下(以
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
头是单行和双行为例):
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，插入相同行数)
第二步，将工资表头向下填充到空白部分，然后任选位置，插入一列，注意必须将表头加入字段，否则将无法排序。
(图三，填充单元格)
(插入一列，并键入字段，以“人数”为例)
第三步，
填充数字，分两段进行填充，表头内容按照序列填充，工资内容按序列填充。最后再按照
这一列进行排列。这样工资条就完成了。
浙公网安备 33021202002483