加一句:
Dim i As Integer
lr = Range("B8888").End(xlUp).Row
For i = 2 To 15
Cells(lr + 1, i).Value = Application.WorksheetFunction.Sum(Range(Cells(1, i), Cells(lr + 1, i)))
Next
Range("A" & lr + 1) = "合计"
Range(Cells(lr + 1, 1), Cells(lr + 1, 15)).Borders.Weight = xlThin