1、假設列A是輸入資料區域;B列是顯示日期區域。

2、我們首先將B列設定為日期格式。選定日期區域，B2：B10。

4、然後，也可以按下CTRL+1，開啟用於設定單元格格式的對話方塊，並將此欄位設定為日期格式。

5、現在B2：B10已經採用日期格式。接下來，輸入公式;同時選擇B2：B10。

6、然後在編輯欄位中輸入公式：= IF（A2 “”，TODAY（），“”）。

7、按下CTRL+ENTER，按下CTRL+ENTER，把B2:B10都填充上公式。這時，我們看不到什麼變化，是因為A列中還沒有輸入資料。我們在A2中輸入一個數據。

這個問題有3個辦法1、用today（)函式 但要設定 迭代計算 由於和其他檔案需要的設定不同 有些麻煩2、用宏，Worksheet_Change事件3、最簡單的是在需要日期的單元格上按住ctrl再按；（即ctrl+；）建議用後2種辦法 附上程式碼 工具-》宏-》 vb編輯器-》雙擊左側樹型目錄的sheet1，然後在右側程式碼區複製一下內容。假設A列輸入，B列顯示日期Private Sub Worksheet_Change(ByVal Target As Range) Dim iRow As Integer Dim iCol As Integer iRow = Target.Row iCol = Target.Column If iCol = 1 And Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date End IfEnd Sub