[已解决]修改一个简单宏，谢谢！

bipl607

请教各位高手：
这个宏怎么修改才不会出现按第二次、第三次按钮得出其它结果，谢谢！

Sub sum()
c = ActiveSheet.UsedRange.Columns.Count
r = ActiveSheet.UsedRange.Rows.Count
For i = 2 To r
Cells(i, c) = Application.sum(Range(Cells(i, "D"), Cells(i, c)))
Next
End Sub

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-8-31 09:51

bipl607 发表于 2013-8-31 09:49
谢谢楼上，但这样一改，删除I\J列就不能直接在I列求前面5科的总分，谢谢！

你这个肯定要变化啊
你这是使用的区域 你运行对单元格赋值  然后这个区域就变大了
Sub sum()
c = Cells(1, Columns.Count).End(xlToLeft).Column
r = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To r
Cells(i, c) = Application.sum(Range(Cells(i, "D"), Cells(i, c - 1)))
Next
End Sub

跳转到最佳答案楼层

xhrys

你的代码有点小错误，应该是这样的，看代码倒数第三行的区别：

1. Sub sum()
   
2. c = ActiveSheet.UsedRange.Columns.Count
   
3. r = ActiveSheet.UsedRange.Rows.Count
   
4. For i = 2 To r
   
5. Cells(i, c) = Application.sum(Range(Cells(i, "D"), Cells(i, c-1)))
   
6. Next
   
7. End Sub

复制代码

bipl607

谢谢楼上，但这样一改，删除I\J列就不能直接在I列求前面5科的总分，谢谢！

我心飞翔410

bipl607 发表于 2013-8-31 09:49
谢谢楼上，但这样一改，删除I\J列就不能直接在I列求前面5科的总分，谢谢！

你这个肯定要变化啊
你这是使用的区域 你运行对单元格赋值  然后这个区域就变大了
Sub sum()
c = Cells(1, Columns.Count).End(xlToLeft).Column
r = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To r
Cells(i, c) = Application.sum(Range(Cells(i, "D"), Cells(i, c - 1)))
Next
End Sub