excel2010 自动计算怎样将结束结果输出到右边这一单元格.

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/14 04:31:09

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()里的列号.