セルに数値を追加し、それを別のセルに追加してクリアする方法

Question

セルA1に数値があるとします。私は、セルA2に数字を書くとA1に追加されてA2でクリアされるようにしたい。それ、どうやったら出来るの？

Answer 1

このコード

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 

、このVBAコードを試してみては、A2にA1に値を追加する新しい値をセルに入力されるたびにA1に新しい値を格納し、セルA2内のデータを消去します。