[已解决]如何自动插入空行并计算平均数

shzzhy

shzzhy 发表于 2016-5-1 23:01
爱疯老师，上次运行时检查看过是对的，今天打开运行时发现还是不对。
    错误出现在“产品1颜色”列 ...

    另，用您的这个代码运用到我的数据表中，出现了许多问题，在sheet2中用黄色块标出了一部分，还请您帮忙看看怎么改进才可运行正常。

爱疯

shzzhy 发表于 2016-5-1 23:31
另，用您的这个代码运用到我的数据表中，出现了许多问题，在sheet2中用黄色块标出了一部分，还请您帮 ...

插入空行并求平均值（20160501）2.rar (78.53 KB, 下载次数: 4)

2016-5-2 08:35 上传

点击文件名下载附件

1）18楼，问题2没改对，现在改对了。
2）纠正统计某产品以后，字典没清零的错误。

再应该没问题了，不好意思我太粗心了。

shzzhy

爱疯 发表于 2016-5-2 08:39
1）18楼，问题2没改对，现在改对了。
2）纠正统计某产品以后，字典没清零的错误。

多谢爱疯老师，问题已解决。
目前还有几个地方求平均有点问题，请多费心：
1、有效分枝、炸荚数、无效荚数等行，只有几个数据，其余均为空格；
2、计算平均数时是要求计算一组数据的平均，而不是这两个数的平均。
3、如：公03336－10，无效荚有2个值，而单株粒数有3个值，计算时应为（1.8+2.0）/3；再如公0906-19，有效分枝仅1个值0.2、无效荚数仅2个值，而单株荚数有5个值，则平均值分别为0.2/5、（1.0+0.6）/5
4、其余褐斑粒率、皱粒率等也会出现这种情况

   分析了下这些数据，认为求平均值分了三种类型，不知道您在做代码计算时是否这样分：
1、某列的数据的行数＝某地区（或某品种）数据行数S；
2、某列有数据的行数<某地区（或某品种）数据行数S；
3、某列有数据的行数为空；
4、“百粒重g”这列的数据需要按现在这种模式求平均，即有几个数据就按几个数据求平均，不需要再改动。

爱疯

插入空行并求平均值（20160501 求平均问题）5.rar (87.74 KB, 下载次数: 3)

2016-5-3 17:01 上传

点击文件名下载附件
只改了23楼所举例子的求平均值方法，即第9列，第13列
“褐斑粒率、皱粒率等也会出现这种情况”，因为没有明确指出，所以没改。建议列举：
求褐斑粒率%（V列，第22列）的平均值，次数是看某列？
求皱粒率%（W列，第22列）的平均值，次数是看某列？
...




【自己修改】
褐斑粒率%（V列，第22列）的平均值，次数是看15列
皱粒率%（W列，第22列）的平均值，次数是看15列
Case 9, 13
改成
Case 9, 13, 22, 23

shzzhy

爱疯 发表于 2016-5-3 16:48
只改了23楼所举例子的求平均值方法，即第9列，第13列
“褐斑粒率、皱粒率等也会出现这种情况”，因为没有 ...

非常感谢爱疯老师，解决了我的大问题了。按照您的提示，已经修改完毕，都可正常使用。
   还仍有几点问题刚才发现：
1、想验证一下计算是否正确，再次点击“click”按钮后，“sheet2”中会出现很多空行，而且“公03336-10”的数据行全没了，多次点击后，空行更多，只有关闭文件再重新打开后点击一次才行，但再多点又会出现问题。这个问题是什么原因造成的，能解决吗？

爱疯

插入空行并求平均值（20160501 求平均问题）6.rar (87.8 KB, 下载次数: 8)

2016-5-3 19:28 上传

点击文件名下载附件

因为改成模块变量，需清零，开始时加上这两句。

    blks = 0
    records = 0

shzzhy

爱疯 发表于 2016-5-3 19:30
因为改成模块变量，需清零，开始时加上这两句。

    blks = 0

      老师好，上个贴子问题已完全解决，在利用工作表“原始数据表”标签－“查看代码”进行代码编辑与“指定宏”操作，但结果却不能显示在“sheet2"中，具体步骤如下：
    1）通过将“宏”－“main”－“编辑”，将代码复制出来；   
    2）通过鼠标右键点击工作表“原始数据表”标签－“查看代码”，将3、复制的代码粘贴并保存；
    3）重新建立一个“main”按钮－鼠标右键点击“main”按钮－“指定宏”－选择“Sheet1.main”
    这样等于说重新设定了执行按键，在代码的“输出工作表”中已改到“sheet2”，但在点击执行后，结果却显示不到“sheet2”中，不知道是什么原因。

爱疯

27楼附件的sheet1和模块1，都保存了相同的几个过程，相当于有两套同样的代码。
改代码会很容易弄错，我没去测试。。。。。。这种情况，应该避免。
就用26楼，即模块1里有一份就行了

shzzhy

爱疯 发表于 2016-5-3 22:26
27楼附件的sheet1和模块1，都保存了相同的几个过程，相当于有两套同样的代码。
改代码会很容易弄错，我没去 ...

   好的，多谢爱疯老师。再次对您的帮助表示感谢！！！

shzzhy

爱疯 发表于 2016-5-3 19:30
因为改成模块变量，需清零，开始时加上这两句。

    blks = 0

请教爱疯老师，下面几名代码是什么意思：
countColumn = 15