效果如下：
代码如下：
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有一个内置计数器，可以计数。
