VBA实例：表格里怎么自动算乘法

效果如下：

代码如下：

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有一个内置计数器，可以计数。