VBA80集第6集公式与函数中报错求解决

VBA80集第6集公式与函数中第一个例题中的第二个示例
按讲解中录入，但execl总报错，求解决
Sub t2()
For x as Integer
dim x = 2 to 6
cell(x, 4) = "=b" & x & *"C" & x
Next x
End Sub

26759761@qq.com

第二行定义x变量应该是dim
第三行循环x应该是 for

完整的应该是

1. Sub t2()
   
2.    Dim x As Integer
   
3.         For x = 2 To 6
   
4.            Cells(x, 4) = "=b" & x & "*c" & x
   
5.         Next x
   
6. End Sub

复制代码

zjdh

依样画葫芦也会错？？！！