Sub 最后十行求和()

 Dim i&

 For i = 2 To Worksheets.Count

  Worksheets(i).Cells(Rows.Count, "C").End(xlUp).Offset(1, -1).FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)"

 Next i

End Sub

戳我头像，一切都会有的。 所得取决于所付出的。

很多内容是可以通过录制宏得到的！