Excel VBA ---之公式说明

2026-02-14 10:55:43

1、功能说明:

实现表格数据求和。

1、原始数据如下:

Excel VBA ---之公式说明

2、在VBE中编写如下代码:

Sub noFormatSub()

Dim i%

For i = 2 To 6

    Range("d" & i) = Range("b" & i) + Range("c" & i)

Next i

End Sub

Excel VBA ---之公式说明

3、在Excel界面中插入宏,选定刚刚的宏noFormatSub;

4、执行宏,得到如下结果;

即:得到总分数;

Excel VBA ---之公式说明

1、接下来,利用公式的表达方式对列进行求和;

1、原始数据为:

Excel VBA ---之公式说明

2、在VBE中编写如下代码:

Sub formatSub()

Dim i%

For i = 2 To 6

    Sheet1.Cells(i, 5) = "=b" & i & "+c" & i

Next i  

End Sub

Excel VBA ---之公式说明

3、在Excel界面中插入宏,选定刚刚的宏FormatSub;

4、执行宏,得到如下结果;

即:得到总分数;

5、对比可知,利用公式计算得到的结果与常用计算方式得到的结果一致。

Excel VBA ---之公式说明

Excel VBA ---之公式说明

Excel VBA ---之公式说明

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

猜你喜欢