我需要计算数组顶部 1/3、中间 1/3 和底部 1/3 的整数个数(C6:C28 中的测试数组)。但我似乎无法countif
上班。
Range("C1").Select
ActiveCell.FormulaR1C1 = "=MAX(R[2]C:R[24]C)"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]/3"
Range("E1").Select
ActiveCell.FormulaR1C1 = "=2*RC[-1]"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[4]C:R[26]C,""<D1"")"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C:R[25]C,"">E1"")"
185
115
208
101
2
53
348
169
10
24
243
93
357
326
17
84
253
198
250
352
51
98
216