恳请大神们帮忙解决这个相加的难题

qiongmei6

我想在附件“汇总”表格的e列求得一个代码，根据汇总表格的c列的内容找工资表格内的和b列一致的数据，把属于工资表内a列非“广州”的数据相加，目前的汇总表格的e列就是我希望根据代码生成的结果，再次谢谢各位大神的帮忙。

清风竹-

请看附件。

gwjkkkkk

写个公式吧。。。

gwjkkkkk

E4=

1. =SUMPRODUCT((工资!$A$2:$A$8<>"广州")*(工资!$B$2:$B$8=汇总!C4)*工资!$D$2:$D$8)

复制代码

ykcbf1100

参与一下。。。

ykcbf1100

代码如下：

1. Sub ykcbf()   '//2024.3.8
   
2.     Dim arr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     With Sheets("工资")
   
6.         r = .Cells(.Rows.Count, "a").End(xlUp).Row
   
7.         arr = .[a1].Resize(r, 4)
   
8.     End With
   
9.     For i = 2 To UBound(arr)
   
10.         s = CStr(arr(i, 2))
    
11.         If InStr(arr(i, 1), "广州") = 0 Then
    
12.             d(s) = d(s) + arr(i, 4)
    
13.         End If
    
14.     Next
    
15.     With Sheets("汇总")
    
16.         r = .Cells(.Rows.Count, "c").End(xlUp).Row
    
17.         arr = .[a1].Resize(r, 5)
    
18.         For i = 4 To UBound(arr)
    
19.             s = CStr(arr(i, 3))
    
20.             If InStr(arr(i, 2), "广州") = 0 Then
    
21.                 If d.Exists(s) Then
    
22.                     arr(i, 5) = d(s)
    
23.                 End If
    
24.             End If
    
25.         Next
    
26.         .[a1].Resize(r, 5) = arr
    
27.     End With
    
28.     Set d = Nothing
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "OK！"
    
31. End Sub
    
32. 
    

复制代码

qiongmei6

gwjkkkkk 发表于 2024-3-8 19:02
写个公式吧。。。

谢谢gwjkkkkk师傅，您这个公式太牛了，之前请教过很多人，他们的公式在我2003显示都是错误，唯独你这个显示出正确数字