可以的。右键sheet1标签——查看代码——粘贴如下代码，运行
Sub a()
Application.DisplayAlerts = False
s = WorksheetFunction.Sum(Selection)
Selection.Merge
Selection = s
Application.DisplayAlerts = True
End Sub
因为你的求和区域没有规律，所以我给你的代码是对选择区域。
用函数sum就可以了
用函数
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024