跪求大神帮忙解答

wcy064141

请大神指点：使用VBA编程将“考勤汇总表”内的实出工时，对应姓名赋值到“人力资源部”表格内。

不知道为什么

只有上传EXCEL表附件，清晰的说明自己需求，如果有模拟的结果，才会更快更准确的得到需要的答案！

xiangbaoan

sub 看图作文()'20180804
dim d as object,ar,br,r&
set d= createobject("scripting.dictionary")
ar=sheets("考勤汇总").[a1].currentregion
br=sheets("人力资源部").[a1].currentregion
for r=3 to ubound(ar)
d(ar(r,3))=ar(r,5)
next
for r=3 to ubound(br)-1
if d.exists(br(r,2)) then br(r,4)=d(ar(r,2)) else br(r,4)=""
next
set d=nothing
sheets("人力资源部").[a1].currentregion=br
end  sub'补充此帖一灌达418帖

chaohuahch

xiangbaoan 发表于 2018-8-4 19:58
sub 看图作文()'20180804
dim d as object,ar,br,r&
set d= createobject("scripting.dictionary")

有员工编号的情况下， 不建议用姓名做key

xyxcc177

杀鸡用牛刀

xiangbaoan

chaohuahch 发表于 2018-8-4 21:07
有员工编号的情况下， 不建议用姓名做key

1、楼主说   “对应姓名赋值到”，这是关键；
2、图2中也不见编号，以编号为Key,有何用?

wcy064141

xyxcc177 发表于 2018-8-5 06:07
杀鸡用牛刀

这是其中的一小个点，如果有一张表的话简单，如果同时让你做几十张表的话，编程来得快，而且不用检查错误，节省时间。

wcy064141

xiangbaoan 发表于 2018-8-4 19:58
sub 看图作文()'20180804
dim d as object,ar,br,r&
set d= createobject("scripting.dictionary")

br(r,4)=d(ar(r,2)) else
这句话显示下标越界

wcy064141

xiangbaoan 发表于 2018-8-4 19:58
sub 看图作文()'20180804
dim d as object,ar,br,r&
set d= createobject("scripting.dictionary")

br(r,4)=d(ar(r,2)) else
这句话显示下标越界

wcy064141

xiangbaoan 发表于 2018-8-4 19:58
sub 看图作文()'20180804
dim d as object,ar,br,r&
set d= createobject("scripting.dictionary")

br(r,4)=d(ar(r,2)) else
这句话显示下标越界