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

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

1 个答案: