使用VBA快速制作工资条

洗好澡还算清醒，再把很久以前给我爸写的工资条制作方法整理下。

首先还是看下案例表Sheet1的结构：

ABCDEF1姓名业绩底薪工龄工龄工资应发薪水2苏玟洁4500001000011500115003罗丹伶5000001500054000190004颜世璇8000001500043000180005苏俊明10000002000032500225006王思涵2500000250002200027000

希望实现的效果：

ABCDEF1姓名业绩底薪工龄工龄工资应发薪水2苏玟洁4500001000011500115003姓名业绩底薪工龄工龄工资应发薪水4罗丹伶5000001500054000190005姓名业绩底薪工龄工龄工资应发薪水6颜世璇8000001500043000180007姓名业绩底薪工龄工龄工资应发薪水8苏俊明10000002000032500225009姓名业绩底薪工龄工龄工资应发薪水10王思涵2500000250002200027000

以下是宏代码：

Sub 生成工资单()    '将Sheets(1)表复制到Sheet(2)中,做备份    Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1]    '定义变量num,赋值为1    num = 1    '设定循环条件,以100人为例,<=100*3    Do While num <= 300    '第num+1行，第1列的值为空，则把刚添加的标题行删除，结束    If Cells(num + 1, 1).Value = "" Then    '选中num行        Rows(num).Select    '删除num行        Selection.Delete        Exit Sub    End If    num = num + 2    '选中第1行第1列    Rows("1:1").Select    '选区复制    Selection.Copy    '选中num行    Rows(num).Select    '将复制的第1行的内容插入到该行上方    Selection.Insert Shift:=xlDown    LoopEnd Sub

也可在上述代码的基础上实现标题行为多行的工资单，如：

ABCDEF1工资单2姓名业绩底薪工龄工龄工资应发薪水3苏玟洁4500001000011500115004罗丹伶5000001500054000190005颜世璇8000001500043000180006苏俊明10000002000032500225007王思涵2500000250002200027000

案例文件下载

从此便踏上征途，也许会孤独一程。

相关文章：

你感兴趣的文章：

标签云：