EXCEL VBA行自动求和统计

Sub s() n = ActiveSheet.UsedRange.Rows.Count For i = 4 To n c = 0 For j = 7 To 86 If IsNumeric(Cells(i, j)) Then c = c + Cells(i, j) End If Next If c Then Cells(i, 3) = c NextEnd Sub