Cells(2, 2).Select
For i = 0 To 9
Cells(12, 2).Value = Cells(12, 2).Value + ActiveCell.Offset(i, 0)
Next

這樣可以把總分加起來....剩下自己試試