-excel2010计算,大一计算机考试excel题

参考此代码zd。

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