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

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim iColA As Long, iColB As Long, iRowUp As Long, iRowDown As Long
   
    iColA = 66     ' 要改动的列号
    iColB = 40     ' 要填入日期的列号
    iRowUp = 2     ' 行的范围上限
    iRowDown = 1000 ' 行的范围下限
   
    If Target.Column = 66 And (Target.Row >= iRowUp And Target.Row <= iRowDown) Then
       Cells(Target.Row, iColB) = Format(Now, "YYYY-MM-DD")
    End If

End Sub

可以根据要求修改，在excel里按ctrl+F11，把这段代码复制到对应的sheet里