excel2010 自动计算
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/23 11:14:05
excel2010 自动计算
![](http://img.wesiedu.com/upload/d/fc/dfc8c3ffe067a00b894385145399b730.jpg)
怎样将结束结果输出到右边这一单元格.
![](http://img.wesiedu.com/upload/d/fc/dfc8c3ffe067a00b894385145399b730.jpg)
怎样将结束结果输出到右边这一单元格.
![](http://img.wesiedu.com/upload/1/b4/1b48e9829075249cdb22f323a2cdac71.jpg)
参考此代码.
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()里的列号.
再问:
![](http://img.wesiedu.com/upload/a/86/a86481b8dc8c96db8db1eb74da66138b.jpg)