使用当前的单元格值来计算并在单元格中替换

Question

我在Excel中对VBA很陌生，我已经试过寻找我的问题了。

我想根据单元格的值计算答案，并在宏执行时让计算值替换当前值。例如，如果A2的初始值为30，我也想用A2 = 3代替A2，以使A2读取90作为其新值。

有没有办法做到这一点，而不必复制和粘贴其他地方的所有东西？

感谢您的任何帮助。

Answer 1

尝试类似这样的事情。首先，确保您已选择至少一个单元格，然后从宏菜单运行宏：

Sub MultiplyBy30() 
Dim rng as Range 
Dim cl as Range 

Set rng = Range(Selection.Address) 

For each cl in rng.Cells 
    If IsNumeric(cl.Value) And Len(cl.Value) > 0 Then 
    cl.Formula = "=" & cl.Value & "*30" 
    End If 
Next 

End Sub