配列の上部 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