在处理工作表时，您希望向 A 列输入数据后，B 列能自动填入当前日期和时间（如下图所示）。在 Excel 中，如何用一种简单快捷的方法实现这一效果？

使用 VBA 代码在向某列输入数据时自动填入日期

使用 VBA 代码在向某列输入数据时自动填入日期

也许 Excel 中没有直接的方法来完成此任务，但以下 VBA 代码可以帮到您，请按以下步骤操作：

1. 选择您希望自动插入日期的工作表标签，右键单击，从弹出菜单中选择查看代码，然后在弹出的 Microsoft Visual Basic for Applications 窗口中，将以下代码复制并粘贴到模块中：

VBA 代码：在向另一列输入数据时自动填入日期：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

2. 关闭此代码窗口并返回工作表。现在，当您在 A 列输入数据时，B 列对应单元格将立即自动填入当前日期和时间。

注意：在上述代码中，A2:A15 是您要输入值的单元格区域。

太棒了！在 Excel 中像使用 Chrome、Edge、Firefox 和 Safari 一样高效地使用 Tabs！
每天为您节省 50% 的时间，并减少成千上万次鼠标点击！