Question

Excel vba 编程问题

Sub 循环()
For i = 0 To 120
Range("B" & CStr(i)) = "=a" & CStr(i) & "^3+h1"
Next
End Sub
提示：方法range作用于对象global时失败。
我想遍历赋值，求大神告知代码该如何修正。

Answer 1

Sub 循环()
For i = 1 To 120
Range("B" & CStr(i)) = Range("a"陵携如 & CStr(i) 尺启^ 3 + 隐卜[h1])
Next
End Sub

是不是这个效果？！

追问

我复制你的代码还是报错啊。

想要的是遍历的同时在单元格内写上公式，不是数值，或计算结果。个人理解的话 例如：单元格内的内容为：=3*5，应该是以字符串的形式写进去的。

Answer 2

您可以到“天天求学之路视频网”学习VBA编程，实现一个人独立开发程序！