你的要求比较难实现。建议:比如表格有30行,在最后一行做求和公式:=SUM(C1:C29)。数据随时填写都可以。
不好做 倒不如把sum结果放到列首,比如,你要计算的数据在A列,那么可以在B1填上=SUM(A:A),或者在A1里填上=SUM(A2:A?),?可以是10000或更大,这样也可以达到效果了吧
这个不用宏就可以完成呀。
比如1到n是数据,n+1行是空的,则在n+2内输入:=sum(A1:An)&An+1
Private Sub Worksheet_Change(ByVal Target As Range)
tt = Cells(20000, 1).End(xlUp).Row
If Target.Row = tt - 1 And Cells(Target.Row, Target.Column) <> "" Then Rows(tt).Insert Shift:=xlDown
End Sub
应该用宏才能达到要求