excel - 使用当前单元格值计算和替换单元格

Question

我对 Excel 中的 VBA 非常陌生，我已经尝试过搜索我的问题。

我正在尝试根据单元格的值计算答案，并在宏执行时让计算值替换当前值。例如，如果 A2 的初始值为 30，我也想将 A2 替换为 =A2*3 ，以便 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