使用當前的單元格值來計算並在單元格中替換

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