VBA实例:表格里怎么自动算乘法
![](/wp-content/uploads/images/2023/04/23/6321b423-6485-4d97-8c35-f27f5f2aa070_fzoim555t1z.jpg)
效果如下:
![](/wp-content/uploads/images/2023/04/23/2b2e1b653b334f14926b5956c98f468b_1jw4ufkkgnl.gif)
![](/wp-content/uploads/images/2023/04/23/5e9d5209790d4b309c36d238e60d150d_jiuaa4njtoa.png)
代码如下:
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
![](/wp-content/uploads/images/2023/04/23/8314ddd5f2a746c09362ea9d33e46909_3lgno1orw2t.png)
注意问题:
1、主要为定义起始位置,把单元格所在区域用变量值来代替;
2、FOR...NEXT作为循环语句,与之前的DO...LOOP不同的地方是,for next有一个内置计数器,可以计数。