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

爱疯

shzzhy 发表于 2016-5-6 18:46
请教爱疯老师，下面几名代码是什么意思：
countColumn = 15

有效分枝的平均值 = I列（第9列）产品的和 / 对应O列（第15列）的数字个数
无效荚数的平均值 = M列（第13列）产品的和 / 对应O列（第15列）的数字个数
褐斑粒率%的平均值 = 是V列（第22列）产品的和 / 对应O列（第15列）的数字个数
皱粒率%的平均值 = 是W列（第22列）产品的和 / 对应O列（第15列）的数字个数


15表示第15列，也就是M列，单株生物产量g
所以，countColumn表示作为统计次数的列

shzzhy

爱疯 发表于 2016-5-6 21:00
有效分枝的平均值 = I列（第9列）产品的和 / 对应O列（第15列）的数字个数
无效荚数的平均值 = M列（第1 ...

　　　多谢老师指导！

shzzhy

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

    blks = 0

　　爱疯老师好，一直在学习您编写的程序，目前为止仍然有些地方不明白，另还发现计算结果中有些问题，想请教您。
发现的问题：
1、在平均值行中，有些平均值结果不对，已用黄色块标出。这只是找出了一部分，未全部验证。请老师难看是什么原因。
2、对计算的平均值的格式用了：arrResult(avg, j) = Format(sum / count, "0.00")，但好象不是全都有效，有些原始数据值、平均值小数点后有3位小数。还发现，如果有日期型的列，如G列为日期型，原始数据为“m.d”格式，程序中修改为arrResult(avg, j) = Format(sum / count, "m.d")，但计算出来的平均值为“yy/mm/dd”的格式，无法达到“m.d”格式。
3、A列中“排号”的平均值如第7行结果是“1-3”，对后面这个语句还是没理解：arrResult(avg, 1) = "  " & arrResult(startRow, 1) & "-" & arrResult(avg, 1)。因为在我的数据中，有时候会在“排号”前会增加1列“统计号”，这时“排号”就变成B列了，我偿试将公式修改为 arrResult(avg, 2) = "  " & arrResult(startRow, 2) & "-" & arrResult(endRow, 2)，三行求平均的没有空行的可以，而2行求平均的有1空行的（如排号为46、50），则只出现“46－”。
4、获取最多次数的条目这组程序中k、t、i等表示什么意思？而且If max < t(i) Then max = t(i): idx = i　　用冒号连接是什么意思？这组程序一直无法理解。

请爱疯老师百忙中能指点，先谢谢了！