Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2273|回复: 3

[已解决]考勤数据分职位统计问题

[复制链接]
发表于 2015-3-13 14:12 | 显示全部楼层 |阅读模式


根据表一的数据,用VBA实现填充表二F31到P34的效果
大概就是因为这个员工中间调整了职位,所以要分开两列统计
请各位大神帮忙,谢谢~~!!
最佳答案
2015-3-13 14:56
  1. Sub tj()
  2.     arr = [a1].CurrentRegion
  3.     Set d = CreateObject("scripting.dictionary")
  4.     For i = 2 To UBound(arr)
  5.         d(arr(i, 1) & arr(i, 3)) = arr(i, 4)
  6.     Next
  7.     brr = [a29:p34]
  8.     For i = 3 To UBound(brr)
  9.         For j = 5 To UBound(brr, 2)
  10.             If brr(2, j) >= brr(i, 4) And brr(2, j) <= brr(i, 5) Then brr(i, j) = d(brr(i, 2) & brr(2, j))
  11.         Next
  12.     Next
  13.     [a29:p34] = brr
  14. End Sub
复制代码

考勤.rar

8.46 KB, 下载次数: 2

发表于 2015-3-13 14:56 | 显示全部楼层    本楼为最佳答案   
  1. Sub tj()
  2.     arr = [a1].CurrentRegion
  3.     Set d = CreateObject("scripting.dictionary")
  4.     For i = 2 To UBound(arr)
  5.         d(arr(i, 1) & arr(i, 3)) = arr(i, 4)
  6.     Next
  7.     brr = [a29:p34]
  8.     For i = 3 To UBound(brr)
  9.         For j = 5 To UBound(brr, 2)
  10.             If brr(2, j) >= brr(i, 4) And brr(2, j) <= brr(i, 5) Then brr(i, j) = d(brr(i, 2) & brr(2, j))
  11.         Next
  12.     Next
  13.     [a29:p34] = brr
  14. End Sub
复制代码
回复

使用道具 举报

发表于 2015-3-13 14:56 | 显示全部楼层
。。。。。。。。。。。。。

考勤.rar

19.08 KB, 下载次数: 9

回复

使用道具 举报

 楼主| 发表于 2015-3-13 15:19 | 显示全部楼层
grf1973 发表于 2015-3-13 14:56
。。。。。。。。。。。。。

  谢谢啦大神{:35:}
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:42 , Processed in 0.425878 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表