跪求大神帮忙解答

xiangbaoan

wcy064141 发表于 2018-8-5 08:46
br(r,4)=d(ar(r,2)) else
这句话显示下标越界

sub 看图作文()'老大，木附件，你说行吗
dim d as object,ar,br,r&
set d= createobject("scripting.dictionary")
ar=sheets("考勤汇总").[a1].currentregion
br=sheets("人力资源部").[a1].currentregion.resize(,8)
for r=3 to ubound(ar)
d(ar(r,3))=ar(r,5)
next
for r=4 to ubound(br)-1
if d.exists(br(r,2)) then br(r,8)=d(ar(r,2)) else br(r,8)=""
next
set d=nothing
sheets("人力资源部").[a1].currentregion.resize(,8)=br
end  sub
'补充:无附件，不追问

wcy064141

帮俺再看见，大神。

xiangbaoan

wcy064141 发表于 2018-8-5 19:13
帮俺再看见，大神。

'楼主你好，就你的附件而言，下面的就行：
Sub 按钮4_Click()
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, 3)) Then br(r, 6) = d(ar(r, 3)) Else br(r, 6) = ""
Next
Set d = Nothing
Sheets("人力资源部").[a1].CurrentRegion = br
End Sub

iwangyi

猜猜猜，都是建立在假设之上。