如何在Excel中計算距離截止日期的天數？

Author Xiaoyang Last modified 2025-08-23

在日常工作中和專案管理中，追蹤截止日期前還剩下多少天至關重要。例如，您可能有一系列截止日期，並且需要監控任務、作業、合同到期或專案里程碑的剩餘天數。高效地計算剩餘天數有助於確保不會錯過任何重要日期，並支持更好的排程和時間管理。本文詳細介紹了在Excel中計算距離截止日期天數的實用方法，提供逐步指導以及針對不同需求的解決方案。

使用公式計算距離截止日期的天數
VBA程式碼 - 自動化剩餘天數計算，並可選擇性標記或通知逾期的截止日期

使用公式計算距離截止日期的天數

如果您想快速確定每個截止日期前的剩餘天數，Excel提供了簡單的公式解決方案。這些方法適用於靜態列表，或者當需要根據當前日期定期重新計算時也很合適。

1. 在您希望顯示結果的空白單元格中（例如，在A欄中的截止日期旁邊的B欄），輸入以下公式：

=A2-TODAY()

此公式從A2單元格中的截止日期減去今天的日期（由TODAY()函數返回）。結果就是剩餘的天數。

輸入公式後，向下拖動填充柄以對包含截止日期的其他列進行計算，如下所示：

2. 為確保您的計算結果以數字形式顯示，請將結果單元格格式化為「常規」。點擊「主頁」選項卡 > 找到「數字格式」下拉菜單 > 選擇「常規」，如下所示：

a screenshot of changing the format of the result cells

注意事項與實用提示：

如果截止日期已經過去（早於今天），結果將是負數，表示逾期天數。
如果您希望避免顯示負值（例如，對於逾期的任務顯示為0），請使用以下替代公式：

=MAX(0,A2-TODAY())

此公式比較計算出的剩餘天數與0，並顯示較大的值——實際上是以0替換負數。

a screenshot showing how to replace the negative numbers with0

這種方法在報告截止日期時特別有用，因為只有剩餘（非負）天數是有意義的，例如未完成的任務或即將到期的合同。

請始終檢查您的截止日期是否為有效的Excel日期值。不正確或文本格式的日期將導致計算錯誤或意外結果。
使用TODAY()的公式每次打開或重新計算工作表時都會自動更新。
如果您希望僅處理工作日（排除週末和假日），可以考慮使用NETWORKDAYS函數來處理不同的場景。

定期審查您的截止日期清單並重新計算剩餘天數可以顯著提高您預測和處理即將到來的截止日期的能力。如果您需要更高級的自動化或視覺提醒，請參閱下面的VBA解決方案。

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一樣使用 Efficient Tabs！
每天為您節省 50% 的時間，並減少數以千計的滑鼠點擊！

VBA程式碼 - 自動化剩餘天數計算，並可選擇性標記或通知逾期的截止日期

對於處理大量截止日期清單或希望簡化流程的用戶來說，使用VBA自動化剩餘天數的計算可以大幅減少手動操作。這種方法特別有價值，當您希望Excel執行額外操作時，例如自動標記逾期的截止日期或提供通知，確保重要的日期永遠不會被忽略。

1. 要使用此方法，如果開發者工具標籤尚未顯示，請啟用它（檔案 > 選項 > 自定義功能區 > 勾選「開發者工具」）。進入「開發者工具」> 「Visual Basic」以打開VBA編輯器。在VBA窗口中，點擊「插入」> 「模組」，然後輸入以下VBA程式碼：

Sub CalculateAndHighlightDaysLeft()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim deadlineCol As String
    Dim resultCol As String
    Dim daysLeft As Long
    Dim cell As Range
    
    On Error Resume Next
    
    ' Configure columns as needed below:
    deadlineCol = "A" ' Column containing deadlines
    resultCol = "B" ' Column to place days left calculation
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, deadlineCol).End(xlUp).Row
    
    For i = 2 To lastRow
        If IsDate(ws.Cells(i, deadlineCol).Value) Then
            daysLeft = ws.Cells(i, deadlineCol).Value - Date
            ws.Cells(i, resultCol).Value = daysLeft
            
            ' Highlight overdue deadlines
            If daysLeft < 0 Then
                ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 185, 185) ' Light red fill
                
                ' Optionally show popup message for overdue (uncomment next line if desired)
                ' MsgBox "Row " & i & " is overdue! Deadline: " & ws.Cells(i, deadlineCol).Text, vbExclamation, "KutoolsforExcel"
            Else
                ws.Cells(i, deadlineCol).Interior.Pattern = xlNone
            End If
        Else
            ws.Cells(i, resultCol).Value = "Invalid date"
            ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 235, 156) ' Yellow fill for invalid data
        End If
    Next i
End Sub

2. 關閉VBA編輯器，返回到您的工作表，並按下Alt + F8。在出現的對話框中，選擇CalculateAndHighlightDaysLeft並點擊「執行」。該程式碼將處理A欄中的每個日期（從第2行開始向下），並將剩餘天數寫入B欄。逾期的截止日期（日期早於今天）將自動以淺紅色標記。具有無效日期的單元格將填滿黃色，並在結果列中標記為「無效日期」。

提示：

如果您的截止日期在不同的列中，可以在代碼中修改deadlineCol和resultCol。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多