vba countifexpression

我需要统计一个数组的顶部1/3,中间1/3和底部1/3的整数(C6:C28中的testing数组)。 但我似乎无法让工作。

 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 

一个可能的错误来源是"=COUNTIF(R[4]C:R[26]C,""<D1"")" – 你应该从string中提取单元格地址:

 "=COUNTIF(R[4]C:R[26]C,""<""&D1)" 

对下一个公式同样的评论。