作业帮 > 综合 > 作业

excel2010 自动计算

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/23 11:14:05
excel2010 自动计算

怎样将结束结果输出到右边这一单元格.

参考此代码.
Sub a()
Dim str$, i&
For i = 1 To [a65536].End(xlUp).Row
    str = Range("a" & i).Value
    Range("a" & i).Offset(, 1) = Evaluate(str)
Next i
End Sub
适当更改range()里的列号.

再问: 首先非常感谢你提供的方法,很实用。。。您能不能再教我算一下“立方数”。就是{J列=G列乘以I列},还有就是这个单位要换成M(第G列)。。。。嘿嘿,学生刚实习,请多多帮助。。。谢谢了。。。