VBA实例：如何对数据进行自动求和相乘计算-excel自动求和

本节课主要讲解语法篇的第七课，VBA当中的for_next循环语句的实际运用。根据每一笔单号的单价与数量，求出每单的金额。

效果如下：

代码如下：

Sub fornext()

Dim omg!

'定义一个变量,类型为单精度类型

For omg = 2 To 16

'赋值循环次数/范围为2-16,因为计算的表格行数从第二行到第16行

Sheet1.Cells(omg, 4) = Sheet1.Cells(omg, 2) * Sheet1.Cells(omg, 3)

'从单元格（2，4）开始计算，D2（2,4）=B2（2,2）*C2(2,3)

Next '循环

End Sub

注意问题：

1、主要为定义起始位置，把单元格所在区域用变量值来代替；

2、FOR...NEXT作为循环语句，与之前的DO...LOOP不同的地方是，for next有一个内置计数器，可以计数。