[已解决]请高手看看这个代码！多列数据隔离求和，帮忙修改，非常感谢！

simonCJ

Private Sub CommandButton1_Click()
Dim i, j, k, m, total
n = 100
j = 2
total = 0
For i = 0 To n
For m = 0 To Range("A65536").End(xldow).Row
k = m + 3
total = total + Cells(1, i * j + 10)
Next
Next
Cells(k, 4) = total
End Sub
我刚学VBA，这是自己写的一个代码，但是总有错误，请老师帮忙修改指导！
附件 有具体要求

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-3 04:30

1. Sub Macro1()
   
2. Dim i&, j%, total
   
3. For i = 3 To Range("A65536").End(xlUp).Row
   
4.     total = 0
   
5.     For j = 11 To 21 Step 2
   
6.         total = total + Cells(i, j)
   
7.     Next
   
8.     Cells(i, 5) = total
   
9. Next
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim i&, j%, total
   
3. For i = 3 To Range("A65536").End(xlUp).Row
   
4.     total = 0
   
5.     For j = 11 To 21 Step 2
   
6.         total = total + Cells(i, j)
   
7.     Next
   
8.     Cells(i, 5) = total
   
9. Next
   
10. End Sub

复制代码