[已解决]求爱疯老师再出手帮忙“如何自动插入空行并计算平均数”

shzzhy

shzzhy 发表于 2019-4-24 16:45
爱疯老师好，只有一行数据无法计算标准差；标黄之处存在的问题是对的，但是结果仍然不对呀。
以第一组数 ...

问题会不会出在下面这几个语名上呢？对这面语句我不太理解
              For i = LBound(Crr) To UBound(Crr)
                        temp = temp + (Crr(i) - Brr(ProductAvg, j)) ^ 2
                    Next i
                    Brr(ProductAvg, j) = VBA.Sqr(temp / (ProductCount - 1))

爱疯

shzzhy 发表于 2019-4-24 16:45
爱疯老师好，只有一行数据无法计算标准差；标黄之处存在的问题是对的，但是结果仍然不对呀。
以第一组数 ...

                        '如果Crr(i)有值，才累加
                        If Len(Crr(i)) Then
                            temp = temp + (Crr(i) - Brr(ProductAvg, j)) ^ 2
                        End If

鲜籽考种平均－测试8.rar (142.14 KB, 下载次数: 1)

2019-4-24 16:55 上传

点击文件名下载附件



加了一个判断

shzzhy

爱疯老师好，非常感谢你的出手帮忙，这次结果是对的。再次表示感谢！！！

爱疯

没什么，对了那就好

shzzhy

刚才核对了下，N列“瓜瓤色”的平均行是0.0，这个不对

shzzhy

四行均为“黄”，则平均行在比较后也应为“黄”才对

爱疯

        '更新产品的参照列号
        Select Case j
        Case 10, 14
            ProductColumn = 16
        Case Else
            ProductColumn = j
        End Select



不记得这是什么时候的追加规则
如果执行到J列或N列，就改成用相应行的P列值

shzzhy

爱疯 发表于 2019-4-24 17:47
'更新产品的参照列号
        Select Case j
        Case 10, 14

我记起来了。当时是有两列有特殊情况。如共有10个单瓜，有的有分枝、有的无分枝，则分枝数就不是10个，但求平均时要按照10个来平均，也就是找一个数据完全的列做参照。