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