1、功能说明:
实现表格数据求和。
1、原始数据如下:

2、在VBE中编写如下代码:
Sub noFormatSub()
Dim i%
For i = 2 To 6
Range("d" & i) = Range("b" & i) + Range("c" & i)
Next i
End Sub

3、在Excel界面中插入宏,选定刚刚的宏noFormatSub;
4、执行宏,得到如下结果;
即:得到总分数;

1、接下来,利用公式的表达方式对列进行求和;
1、原始数据为:

2、在VBE中编写如下代码:
Sub formatSub()
Dim i%
For i = 2 To 6
Sheet1.Cells(i, 5) = "=b" & i & "+c" & i
Next i
End Sub

3、在Excel界面中插入宏,选定刚刚的宏FormatSub;
4、执行宏,得到如下结果;
即:得到总分数;
5、对比可知,利用公式计算得到的结果与常用计算方式得到的结果一致。



4、综上所述,在VBE中也可以利用公式来进行计算。