如何在某一列中输入数据时自动输入日期？

在工作表上操作时，当您在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是您要输入值的单元格区域。