1、既然算式前面加等号就可以计算，直接手动输入又比较麻烦，是否可以使用公式把等号加进去的呢，其实是行不通的。如：F2单元格输入公式="="&C2，到头来只是算式前面多了个等号，并没有算出结果。
2、既然步骤①的方法行不通，那就改用VBA程序来处理。按下【Alt+F11】组合键调出VBA编辑器，或者依次点击【开发工具】、【Visual Basic】调出VBA编辑器。
3、在VBA编辑器的菜单栏上面点击【插入】、【模块】插入模块。
4、在模块的代码框里面输入以下VBA程序代码，然后按下【F5】键运行程序。Sub SuanshiSum(像粜杵泳)Dim i1, i2, i3On Error Resume Next '忽略运行过程中可能出现的错误Application.ScreenUpdating = False '关闭屏幕更新，提高运行速度Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表For i1 = 2 To 1000Set MyRange1 = mysheet1.Range(mysheet1.Cells(i1, 2), mysheet1.Cells(i1, 5)) '定义单元格区域Set MyRange2 = mysheet1.Range(mysheet1.Cells(i1, 7), mysheet1.Cells(i1, 10))MyRange2.Value = "" '清空单元格里面的内容i2 = Application.WorksheetFunction.CountBlank(MyRange1) '统计空白单元格数量If i2 < 4 Then '如果所在范围不全是空白，则 For i3 = 2 To 5 mysheet1.Cells(i1, i3 + 5) = "=" & mysheet1.Cells(i1, i3) '在原单元格数值前面加=号 Next mysheet1.Cells(i1, 1) = Application.WorksheetFunction.Sum(MyRange2) '求和End IfMyRange2.Value = ""NextApplication.ScreenUpdating = True '启用屏幕更新End Sub
5、VBA程序代码思路解读：（1）既然是引用到了工作表上面的单元格作为中介，就应当错聂庋堀保证该单元格区域没有数值，以免造成数据丢失；同时要关闭屏幕刷新，以提高程序的运行速度（主要是针对大数据计算，小锰栝骼郛范围计算可以忽略）。（2）“Application.WorksheetFunction.CountBlank(MyRange1)”主要是统计计算区域单元格的空白个数，再判断计算区域是否全为空白，如果全是空白，则忽略，以提高运算速度，减少没必要的计算。（3）VBA程序里面的mysheet1.Cells(i1, i3 + 5) = "=" & mysheet1.Cells(i1, i3)，相当于是直接在算式前面加等号再赋到mysheet1.Cells(i1, i3 + 5)单元格里面，进而直接计算结果。（可以使用单引号屏蔽屏幕刷新程序后逐次按下【F8】键查看）
6、回到Excel工作表界面，将会看到计算结果。
