EXCEL 根据一个单元格的选项自动填充另一个单元格的日期

2025-04-06 22:43:50

推荐回答（2个）

回答1：

右键工作表标签》查看代码》粘贴以下代码

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Select Case Target
    Case 1
        Cells(Target.Row, "B") = Format(Now, "yyyy-mm-dd")
    Case 2
        Cells(Target.Row, "C") = Format(Now, "yyyy-mm-dd")
    Case 3
    
    Case 4
    
    Case Else
    End Select
End Sub

3，4等其它选项自己参考着改。

07及以上版本excel请另存为.xlsm启用宏工作簿

回答2：

那就让A一直是当天日期不就行了？表达不太明白，如果还有变，可以用IF函数回OR函数。