[已解决]VBA多工作表求和

excel菜鸟123

Sub 求和()
Dim Arr, i&, Myr&
Dim Sht As Worksheet
For Each Sht In Sheets
    Myr = [A65536].End(xlUp).Row + 1
    If Myr > 1 Then
    Cells(Myr, 2).Formula = "=sum(r2c:r[-1]c)"
    End If
    Next
End Sub
我这样运行的话，怎么只有第一个工作表可以求和啊。哪位帮看下，谢谢!

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-12-21 15:35

1. Sub 求和()
   
2. Dim Arr, i&, Myr&
   
3. Dim Sht As Worksheet
   
4. For Each Sht In Sheets
   
5.     Myr = Sht.Cells(Sht.Rows.Count, 1).End(xlUp).Row + 1
   
6.     If Myr > 2 Then
   
7.     Sht.Cells(Myr, 2).Formula = "=sum(r2c:r[-1]c)"
   
8.     End If
   
9.    
   
10.   Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub 求和()
   
2. Dim Arr, i&, Myr&
   
3. Dim Sht As Worksheet
   
4. For Each Sht In Sheets
   
5.     Myr = Sht.Cells(Sht.Rows.Count, 1).End(xlUp).Row + 1
   
6.     If Myr > 2 Then
   
7.     Sht.Cells(Myr, 2).Formula = "=sum(r2c:r[-1]c)"
   
8.     End If
   
9.    
   
10.   Next
    
11. End Sub

复制代码

excel菜鸟123

老司机带带我 发表于 2016-12-21 15:35

谢谢！