如何将数字添加到单元格，将其添加到其他单元格中，然后清除

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数据。