现在的表格都有求和功能，就是把鼠标放在你想求和的数字上，连续数字按住鼠标往下拉，拉到结束的地方，在表格的右下角就会出现你要求的和
Public Sub 求和()
Range("G2").Select
ActiveCell.Formula = "=SUM(E2:E100)"
Selection.AutoFill Destination:=Range("G2:G100"), Type:=xlFillDefault
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024