问题未解决，再发一贴，求大神帮忙，多条件求均值

zhangzhezy

问题都在附件里，谢谢啦，持续在线等候

吴中泉

凑了一段代码,请测试

吴中泉

吴中泉 发表于 2023-5-30 11:44
凑了一段代码,请测试

程序还有问题,吃过中饭再来调试一下

y1983y

吴中泉 发表于 2023-5-30 11:44
凑了一段代码,请测试

厉害，给你点赞！

不知道为什么

也参与下 如图效果：

不知道为什么

供参考。。。。。。。。。。

吴中泉

基本完美搞定,也已初步验算正确,请测试^_^

吴中泉

吴中泉 发表于 2023-5-30 14:23
基本完美搞定,也已初步验算正确,请测试^_^

条件查询均值4.zip (38.7 KB, 下载次数: 4)

2023-5-30 14:50 上传

点击文件名下载附件

吴中泉

再次完善了一下,详见代码

1. Sub ssjss() '2023.5.30
   
2. Dim rng As Range, rng1 As Range, rng2 As Range, rng3 As Range
   
3. Dim r%, r1%, i%, j%
   
4. With Sheets("原始数据")
   
5.     r = .[B65536].End(3).Row
   
6.     Set rng = .Range("s2:s" & r) '欲求平均值的列
   
7.     Set rng1 = .Range("C2:C" & r) '所属月份列
   
8.     Set rng2 = .Range("R2:R" & r) '进度固定:验收交工
   
9.     Set rng3 = .Range("J2:J" & r) '项目经理列
   
10.     For i = 2 To r: .Cells(i, "QQ") = Month(.Cells(i, "P")): Next
    
11.     Set rng4 = .Range("QQ2:QQ" & r) '俊工日期列/辅助列
    
12. End With
    
13. 
    
14. With Sheets("人工明细")
    
15.     r1 = .[A65536].End(3).Row - 1
    
16.     .Range("B5:Q" & r1) = ""
    
17.     If .[G2] = "" Then .[G2] = ">0"
    
18.     If .[I2] = "" Then .[I2] = ">0"
    
19. For i = 5 To r1
    
20.     On Error Resume Next
    
21.     For j = 3 To 14
    
22.         .Cells(i, j) = WorksheetFunction.AverageIfs(rng.Offset(0, i - 5), _
    
23.             rng1, .[G2], rng2, .[k2], rng3, .Cells(4, j), rng4, .[I2])
    
24.     Next j
    
25.         .Cells(i, 2) = WorksheetFunction.AverageIfs(rng.Offset(0, i - 5), _
    
26.             rng1, .[G2], rng2, .[k2], rng4, .[I2])
    
27. Next i
    
28.     地址 = .Range("B5:B" & r1).Address(0, 0)
    
29.     .Cells(r1 + 1, 2).Resize(1, j - 2) = "=sum(" & 地址 & ")"
    
30. End With
    
31. End Sub
    
32. Sub Button1_Click()
    
33.     Call ssjss  '
    
34. End Sub
    

复制代码

tanglf188

参与一下，时间关系只做了人工明细