excel怎么利用VBA让满足条件的单元格自动等于另一个单元格？

Question

如图：如果A2=1,那么A3就等于A1，A2不等于1的话，A3当前的数值不变依次B2=1,那么B3就等于A1，B2不等于1的话,B3当前的数值不变这样依次类推

Answer 1

循环判断第2行，把是1的数字的下一行单元格修改为A1值，宏代码如下：

Sub å®1()
    Dim arr,j
    arr=activesheet.usedrange
    for j=1 to ubound(arr,2)
        if arr(2,j)=1 then arr(3,j)=arr(1,1)
    next j
    activesheet.usedrange=arr
End Sub追问

这个怎么变成自动的？就是第2行我只要输入数据，就会自动计算？
劳烦您了！

追答

那需要设置到工作表的事件代码上，如下图：

希望以后提问一次性说清楚，打代码确实比较费时，重来一次比较不爽