如何快速批量对多个工作表中的格式化数据求和

1、以下图为例，有多个工作表，数据格式一致，现在需要将每个工作表中的总成绩求出来并写入C2单元格中。

4、在代码界面输入如下代码Option ExplicitSub score() Dim i, r, s Dim w1 As Worksheet For i = 1 To Worksheets.Count Set w1 = Worksheets(i) s = 0 For r = 2 To 10 s = s + w1.Cells(r, 2) Next r w1.Cells(2, 3) = s Next i End Sub这段代码中批量处理数据的关键在于两个FOR循环语句。