vba计数表达式

我需要计算数组顶部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"")"

---

一个可能的错误来源是这个

“=COUNTIF（R[4]C:R[26]C，”
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)"