如何统计C和D列对应标颜色的值，得到的L列的结果？

陈王宇翔

1111.rar (22.29 KB, 下载次数: 10)

2024-3-30 11:29 上传

点击文件名下载附件

swl4561255

1. Sub test()
   
2. Dim a As Range
   
3. ar = [A1].End(4).Row
   
4. arr = Range("C2:E" & ar)
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For Each a In Range("C2:E" & ar)
   
7.     If a.Interior.ColorIndex = 6 Then
   
8.        d(arr(a.Row - 1, 3)) = d(arr(a.Row - 1, 3)) + a.Value
   
9.     End If
   
10. Next
    
11. k = d.keys
    
12. t = d.items
    
13. [K4].Resize(d.Count, 1) = Application.Transpose(k)
    
14. [L4].Resize(d.Count, 1) = Application.Transpose(t)
    
15. [L4].Resize(d.Count, 1).NumberFormat = "#,000.00"
    
16. Set d = Nothing
    
17. End Sub

复制代码

良良

请看附件：

quqiyuan

这种应该需要vba吧

nini1990429

用了get.cell宏+sumifs函数结合 前面那个需要在公式 自定义姓名里面输入宏函数

nini1990429

刚刚没传上去

nini1990429

请看附件 谢谢谢谢

nini1990429

nini1990429 发表于 2024-3-30 13:52
请看附件 谢谢谢谢

我传不了附件不知道为什么

nini1990429

这次不晓得可以不