[已解决]变量行 求和

jjcastle

各位大侠，

Range("A1").Select
Selection.End(xlDown).Select
Ro = ActiveCell.Row
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-25]C:R[-1]C)"

上面最后一句公式中 R[-25]中的-25我想用变量Ro表示，请问应该如何表达？多谢

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-28 21:39

jjcastle 发表于 2015-5-28 21:35
多谢，但是因为我还有B,C,F,H列需要求和，想通过Ro这个变量一次搞定。我刚刚试了下面的也不行。

Range ...

Application.Sum
vba引用工作表函数，前面要加application的
引用工作表函数看二楼
公式中引用公式看三楼

Range("A" & Ro + 1) = Sum(Range(Cells(2, 1), Cells(Ro, 1)))
改为
Range("A" & Ro + 1) =application.Sum(Range(Cells(2, 1), Cells(Ro, 1)))

如果结果是公式的话，用三楼的，这样可以右拉

如果要直接出结果，那就要循环

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim x
   
3.     x = Cells(Rows.Count, 1).End(3).Row
   
4.     Cells(x + 1, 1) = Application.Sum(Range(Cells(1, 1), Cells(x, 1)))
   
5. End Sub

复制代码

Range("A1").Select  这种用多了效率不高的

qh8600

1. Sub demo()
   
2.     Dim x
   
3.     x = Cells(Rows.Count, 1).End(3).Row
   
4.     Range("a" & x + 1).Formula = "=sum(a1:a" & x & ")"
   
5. End Sub
   

复制代码

这是公式的，x就是变量，最后一个非空单元格的行号

jjcastle

qh8600 发表于 2015-5-28 21:04
这是公式的，x就是变量，最后一个非空单元格的行号

多谢，但是因为我还有B,C,F,H列需要求和，想通过Ro这个变量一次搞定。我刚刚试了下面的也不行。

Range("A" & Ro + 1) = Sum(Range(Cells(2, 1), Cells(Ro, 1)))

qh8600

jjcastle 发表于 2015-5-28 21:35
多谢，但是因为我还有B,C,F,H列需要求和，想通过Ro这个变量一次搞定。我刚刚试了下面的也不行。

Range ...

Application.Sum
vba引用工作表函数，前面要加application的
引用工作表函数看二楼
公式中引用公式看三楼

Range("A" & Ro + 1) = Sum(Range(Cells(2, 1), Cells(Ro, 1)))
改为
Range("A" & Ro + 1) =application.Sum(Range(Cells(2, 1), Cells(Ro, 1)))

如果结果是公式的话，用三楼的，这样可以右拉

如果要直接出结果，那就要循环

jjcastle

qh8600 发表于 2015-5-28 21:39
Application.Sum
vba引用工作表函数，前面要加application的
引用工作表函数看二楼

什么都知道，真乃神人也。