如何將數字添加到單元格，將其添加到其他單元格中，然後清除

Question

假設我在單元格A1中有一個數字。我想這樣做，如果我在單元格A2中寫入一個數字，它將在A1中添加，然後在A2中清除。我怎麼做？

Answer 1

試試這個VBA代碼，

Private Sub worksheet_change(ByVal target As Range) 
If target.Address = "$A$2" And IsNumeric(Cells(1, 1)) And IsNumeric(Cells(2, 1)) Then 
    Cells(1, 1) = Cells(1, 1) + Cells(2, 1) 
    Cells(2, 1).ClearContents 
End If 
End Sub 

該代碼將在A1到A2值，存儲在A1新值，只要在單元格中輸入一個新值就可以清除細胞A2數據。