[已解决]excel 求助

devilavatar

我用VBA 编了一个编号：FormulaR1C1 = "=COUNTIF(R[1]C[-2]:R[9]C[-2],1)"，我想把要统计里的“1”改成递增（就是随着列数增加而增加），怎样可以做到，我要用VBA做

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-14 23:57

Application直接调用工作表函数，直接返回结果

1. Sub b()
   
2. Dim x As Integer
   
3. For x = 3 To 5
   
4. Cells(3, x) = Application.CountIf(Range("A4:A13"), x - 2)
   
5. Next x
   
6. End Sub

复制代码

跳转到最佳答案楼层

mxg825

Application直接调用工作表函数，直接返回结果

1. Sub b()
   
2. Dim x As Integer
   
3. For x = 3 To 5
   
4. Cells(3, x) = Application.CountIf(Range("A4:A13"), x - 2)
   
5. Next x
   
6. End Sub

复制代码