加总E列数字，和放在最后，VBA怎么写

您可以使用以下代码来实现将加总E列数字并将其放在最后的功能：

Sub SumEandMoveToEnd()
Dim lastRow As Long
Dim sum As Double
Dim i As Long

lastRow = Cells(Rows.Count, "E").End(xlUp).Row '获取E列最后一行的行数
sum = WorksheetFunction.Sum(Range("E1:E" & lastRow)) '计算E列的总和

Range("E" & lastRow + 1).Value = sum '将总和放在E列最后一行的下一行
Range("E1:E" & lastRow).Delete Shift:=xlUp '删除E列中的所有数据，并将其余单元格向上移动

End Sub

这段代码将计算E列中所有数字的总和，并将其放在E列的最后一行的下一行。然后，它将删除E列中的所有数据，并将其余单元格向上移动，以便将总和放在最后一行。

请注意，这段代码是使用VBA编写的，因此您需要在Excel中打开Visual Basic编辑器，并将其复制粘贴到一个新的模块中。