|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
就这么几行还要说明??
好吧,大概说说!
- Sub 工资调整()
- arr = Sheet3.Range("a1:m75") '把a1:m75范围生成数组,最好是新建工作表做个母表
- brr = Sheet1.UsedRange '把sheet1所有范围生成数组brr
- Sheet3.Range("a76:m10000").Value = "" '保留母表部分,下面的全部清空
- j = 1
- For i = 7 To UBound(brr) '每个身份证循环一次,直到所有员工全部循环完
- arr(2, 2) = "工资审核表(" & brr(i, 4) & ")" '把sheet1中身份证和"工资审核表"做抬头
- arr(8, 3) = brr(i, 2) '提取姓名
- '根据身份证判断男\女
- If CInt(Mid(brr(i, 4), 17, 1)) Mod 2 = 0 Then arr(8, 6) = "女" Else arr(8, 6) = "男"
- '根据身份证提取出生年月
- arr(8, 8) = Mid(brr(i, 4), 7, 4) & "." & Mid(brr(i, 4), 11, 2)
-
- arr(8, 11) = brr(i, 8) '提取sheet1的学历
- arr(8, 13) = brr(i, 9) '提取sheet1的毕业时间
- arr(12, 3) = brr(i, 5) '提取sheet1的参加工作时间
- arr(12, 11) = brr(i, 16) '下面的自己个个慢慢看
- arr(16, 3) = brr(i, 11)
- arr(16, 7) = brr(i, 12)
- arr(16, 11) = brr(i, 14)
- arr(16, 13) = brr(i, 15)
- arr(33, 2) = brr(i, 14)
- arr(33, 3) = brr(i, 18)
- arr(33, 4) = brr(i, 19)
- arr(33, 5) = brr(i, 20)
- arr(33, 6) = brr(i, 21)
- arr(33, 7) = brr(i, 22)
- arr(33, 8) = brr(i, 11)
- arr(33, 9) = brr(i, 24) '提取sheet1的岗位工资
- arr(33, 10) = brr(i, 25) '提取sheet1的薪级
- arr(33, 11) = brr(i, 26) '提取sheet1的薪级工资
- arr(33, 12) = brr(i, 27)
- arr(33, 13) = brr(i, 28)
- arr(37, 10) = brr(i, 29) '提取sheet1的月增资额
- '写入sheet3的A1相应区域 , 下次循环间隔75行写入
- Sheet3.Range("a" & j).Resize(UBound(arr), UBound(arr, 2)) = arr
- j = j + 75
- Next i
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|