1、可以用录制“宏”的方式进行工资条的制作。
第一,打开EXCEL表单,找到开发工具,点击录制宏;
第二,开始制作表单;制作完成,点击“停止录制”;
第三,选中单元格,执行宏。
2、为提高效率,可以做一个按钮,进行批量操作。
Sub MakeSalaryList()
Dim i As Integer
Dim endrow As Integer
'测出数据的最后一行
endrow = Sheet1.Range("a65536").End(xlUp).Row - 1
'把标题贴过去
Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1))
For i = 3 To endrow
'把每条数据抬头贴过去
Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1))
'把数据贴过去
Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1))Next iEnd Sub 关闭编辑器,将自动返回到刚才的Excel表,选择“工具→宏→宏”,点击“执行”,将在Sheet2生成转换后的工资条。