[其他] 我想在excel里实现B2变动，A2就自动输入当前日期，有代码，求一个改动

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
For Each C In Target
    If C.Address = [B2].Address Then [A2].Value = Format(Now, "YYYY-MM-DD"): Exit Sub
Next
End Sub
-------------------------
以上代码是转别人的，我想实现BN改动AN填入当前日期

N=1到1000吧

求样改代码

或者有不用VB的更简单的方法实现吗

[ 本帖最后由 meizizi 于 2012-12-18 23:29 编辑 ]