Excel表格算式求和

计算机

Windows7

Excel 2010

既然算式前面加等号就可以计算，直接手动输入又比较麻烦，是否可以使用公式把等号加进去的呢，其实是行不通的。如：F2单元格输入公式='='&C2，到头来只是算式前面多了个等号，并没有算出结果。

既然步骤①的方法行不通，那就改用VBA程序来处理。按下【Alt+F11】组合键调出VBA编辑器，或者依次点击【开发工具】、【Visual Basic】调出VBA编辑器。

在VBA编辑器的菜单栏上面点击【插入】、【模块】插入模块。

在模块的代码框里面输入以下VBA程序代码，然后按下【F5】键运行程序。Sub SuanshiSum()Dim i1, i2, i3On Error Resume Next  '忽略运行过程中可能出现的错误Application.ScreenUpdating = False  '关闭屏幕更新，提高运行速度Set mysheet1 = ThisWorkbook.Worksheets('Sheet1') '定义工作表For i1 = 2 To 1000 Set 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 If  MyRange2.Value = '' NextApplication.ScreenUpdating = True  '启用屏幕更新End Sub

VBA程序代码思路解读：（1）既然是引用到了工作表上面的单元格作为中介，就应当保证该单元格区域没有数值，以免造成数据丢失；同时要关闭屏幕刷新，以提高程序的运行速度（主要是针对大数据计算，小范围计算可以忽略）。（2）“Application.WorksheetFunction.CountBlank(MyRange1)”主要是统计计算区域单元格的空白个数，再判断计算区域是否全为空白，如果全是空白，则忽略，以提高运算速度，减少没必要的计算。（3）VBA程序里面的mysheet1.Cells(i1, i3 + 5) = '=' & mysheet1.Cells(i1, i3)，相当于是直接在算式前面加等号再赋到mysheet1.Cells(i1, i3 + 5)单元格里面，进而直接计算结果。（可以使用单引号屏蔽屏幕刷新程序后逐次按下【F8】键查看）

回到Excel工作表界面，将会看到计算结果。