《Excel应用大全》系列论坛

陌XLP Lv.1

关注
如何利用函数在工资表里利用姓名匹配奖金表里员工的多行奖金数据,再求和汇总到工资表的奖金列。

工资表.zip   2024-7-2 14:00 上传

Excel函数匹配求和

21.23 KB, 下载次数: 2


171阅读
1回复 倒序

zhangcheng6688 Lv.3 2楼

学习一下字典,打扰了
Sub test()
arr = Sheet2.[a4].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 3 To UBound(arr)
   If arr(i, 1) <> "" Then
      d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
   End If
Next
brr = Sheet1.[a1].CurrentRegion
For i = 4 To UBound(brr)
   brr(i, 4) = d(brr(i, 2))
Next
Sheet1.[a1].CurrentRegion = brr
End Sub

已显示全部内容