Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column < 14 And Cells(Target.Row, 14).Formula = "" Then Cells(Target.Row, 14).Formula = "=SUM(RC[-12]:RC[-1])"
End Sub
方法一:
用VBA编写一段循环(例如循环1000遍,靠,你不会告诉我这不够用吧!),加入如下代码(多余的行上会显示“0”,自己改一下循环的条件):
Dim i
For i = 2 To 100
Range("N" & i).Activate
ActiveCell.FormulaR1C1 = "=SUM(RC[-12]:RC[-1])"
Next i