计算问题

lufabao

Private Sub Worksheet_Change(ByVal Target As Range)
    s = Range("e65536").End(xlUp).Row
    If Target.Column = 5 Then
    For i = 5 To s
    Next
  Cells(i - 1, 6) = Cells(i - 1, 3) + Cells(i - 1, 5)
     Else
     Range("E3").Select
     Range("e3") = "=SUM(R[3]C:R[11119]C)"
End If
End Sub

高

见附件。第三行的公式没必要计算到一万多行，已改。