[已解决]找出符合对应条件的单元格并计数求和？

gwfzh

找出符合对应条件的单元格并计数求和？

各位老师：

        1、 如何在B列中找出大于平均数的单元格并计数求和；如C2和D2单元格；

          2、找出符合上述条件（大于平均数）在A列所对应的单元格月份如单元格E2=3月、4月、5月和8月、9月；

          如何查找请老师帮忙了，谢谢！！！ help.rar (8.08 KB, 下载次数: 5)

2015-3-29 15:12 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-29 15:43

自定义函数

1. 
   
2. Function zdy(数据区域 As Range, 条件单元格 As Range)
   
3. Dim x, 平均数, br(), a, b, y
   
4.   ar = 数据区域: ReDim br(1 To UBound(ar), 1 To 2)
   
5.   平均数 = Application.Average(Application.Index(ar, , 2))
   
6.   For x = 1 To UBound(ar)
   
7.      If ar(x, 2) > 平均数 Then
   
8.         r = r + 1
   
9.          br(r, 1) = ar(x, 1)
   
10.          br(r, 2) = ar(x, 2)
    
11.      End If
    
12.   Next
    
13.   For y = 1 To r
    
14.    a = a + br(y, 2)
    
15.    b = b & "、" & br(y, 1)
    
16.   Next
    
17.   zdy = IIf(条件单元格 = "计数", r, IIf(条件单元格 = "求和", a, IIf(条件单元格 = "对应月份", Mid(b, 2), "")))
    
18. End Function
    

复制代码

跳转到最佳答案楼层

26759761@qq.com

自定义函数

1. 
   
2. Function zdy(数据区域 As Range, 条件单元格 As Range)
   
3. Dim x, 平均数, br(), a, b, y
   
4.   ar = 数据区域: ReDim br(1 To UBound(ar), 1 To 2)
   
5.   平均数 = Application.Average(Application.Index(ar, , 2))
   
6.   For x = 1 To UBound(ar)
   
7.      If ar(x, 2) > 平均数 Then
   
8.         r = r + 1
   
9.          br(r, 1) = ar(x, 1)
   
10.          br(r, 2) = ar(x, 2)
    
11.      End If
    
12.   Next
    
13.   For y = 1 To r
    
14.    a = a + br(y, 2)
    
15.    b = b & "、" & br(y, 1)
    
16.   Next
    
17.   zdy = IIf(条件单元格 = "计数", r, IIf(条件单元格 = "求和", a, IIf(条件单元格 = "对应月份", Mid(b, 2), "")))
    
18. End Function
    

复制代码

xdragon

1. =countIF(B1:B12,">"&AVERAGE(B1:B12))

复制代码

1. =SUMIF(B1:B12,">"&AVERAGE(B1:B12))

复制代码