用Excel函数查找多行数据后求和

陌XLP

如何利用函数在工资表里利用姓名匹配奖金表里员工的多行奖金数据，再求和汇总到工资表的奖金列。 工资表.zip (21.23 KB, 下载次数: 2)

2024-7-2 14:00 上传

点击文件名下载附件
Excel函数匹配求和

zhangcheng6688

学习一下字典，打扰了
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