vba - 用于平均一列中可变行数的公式/代码取决于标准

Question

我有看起来像这样的数据。

142 2.506

144 2.677

146 2.258

148 0.398

150 0.108

152 3.257

154 0.855

148 2.515

150 2.671

152 2.3

154 0.412

156 3.253

158 0.855

148 2.488

150 2.676

152 2.279

154 0.376

156 0.125

158 3.277

160 0.858

146 2.496

148 2.693

150 2.264

152 0.402

154 0.122

156 3.256

158 0.877

142 2.495

144 2.661

146 2.274

148 0.382

150 0.133

152 3.258

154 0.838

147 2.491

我想计算左列值为 142、144、146、148、150、152、154（增加）的右列行的平均值。

当值下降到 148 时，计算 148、150、152、154、156、158 等的另一个平均值。

如果可以，请你帮助我。我将不胜感激。

Answer 1

所以数字总是从 142 开始，然后增加 2 到 154？所以你需要一个循环重复 7 次。

dim rowCount, x as integer
dim average as double
rowCount = 2

Do until cells(rowcount,1).value = ""
for x = 1 to 7
average = average + cells(rowcount,2).value
rowcount = rowcount + 1
next x
cells(rowcount,3).value = average/7
rowcount = rowcount + 1
loop

如果它总是以 7 递增，请使用 for 循环计数到 7。