求数据列表同代码的平均值

飞跃1

求助各位大神，如图如附件的，怎么能够实现，谢谢各位大神啦！

晨光晞微

1. =AVERAGEIF(B:B,B2,G:G)

复制代码

飞跃1

晨光晞微 发表于 2024-3-22 10:19

不好意思，我没说清楚，需要先把代码去重后，在求平均，要咋弄，去重我会，要重新差异列去重后的代码，在来求平均值，谢谢啦

晨光晞微

1. =UNIQUE(B2:B310)

复制代码

1. =AVERAGEIF(B:B,UNIQUE(B2:B310),G:G)

复制代码

飞跃1

模板已更新，需要填进K列，谢谢啦

飞跃1

飞跃1 发表于 2024-3-22 10:33
模板已更新，需要填进K列，谢谢啦

晨光晞微大神已解决，非常感谢，谢谢

我的城市你来过

=SUMIFS(G:G,B:B,B2)/COUNTIF(B:B,B2)

swl4561255

1. Sub test()
   
2. ar = Range("A1").CurrentRegion.Rows.Count
   
3. arr = Range("A2:G" & ar)
   
4. Set d1 = CreateObject("Scripting.Dictionary")
   
5. Set d2 = CreateObject("Scripting.Dictionary")
   
6. For i = 1 To ar - 1
   
7.   d1(arr(i, 2)) = d1(arr(i, 2)) + arr(i, 7)
   
8.   d2(arr(i, 2)) = d2(arr(i, 2)) + 1
   
9. Next
   
10. m1 = d1.keys
    
11. n1 = d1.items
    
12. n2 = d2.items
    
13. Range("K1").Resize(1, 2) = Array("代码", "单价平均值")
    
14. Range("K2").Resize(d1.Count, 1) = Application.Transpose(m1)
    
15. For j = 2 To d1.Count + 1
    
16.   Cells(j, "L") = n1(j - 2) / n2(j - 2)
    
17. Next
    
18. Set d1 = Nothing
    
19. Set d2 = Nothing
    
20. End Sub
    

复制代码

wdy895

函数或者透视表都可以。

jisijie630

飞跃1 发表于 2024-3-22 10:33
模板已更新，需要填进K列，谢谢啦

=AVERAGEIF(B:B,J2,G:G)