如何在資料輸入到某一列時自動填入日期？

在工作表上操作時，當您如下面的螢幕截圖所示，在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是您要輸入值的單元格範圍。