如何在 Excel 中计算两个日期之间的百分比？

在 Excel 中管理进行中的项目或监控计划任务进度时，通常需要根据今日日期计算任务周期已过去的比例。这有助于通过将已过时间表示为总计划周期的百分比，直观评估项目是提前、按期还是延迟。例如，您的工作表中可能包含多个任务，每个任务均有各自的开始日期和结束日期。您希望了解截至今天，每个任务的计划周期已完成百分之多少。本教程将逐步介绍在 Excel 中实现这一目标的实用方法，说明如何自动更新进度百分比，并展示如何利用条件格式根据这些结果直观突出显示任务状态。

下图显示了一个示例任务列表，包含开始日期、结束日期以及所需的完成百分比计算结果：

• 使用公式计算两个日期之间的完成百分比
• VBA 代码 – 自动计算百分比并动态更新整行及日期数据

---

使用公式计算两个日期之间的完成百分比

要计算两个日期之间任务的完成百分比，您可以使用基于 Excel 的 DATEDIF 和 TODAY 函数的公式。当任务量较小且数据集更新不频繁时，此方法尤为适用。

1. 在需要显示结果的行中（例如单元格 ）D2），输入以下公式：

=(DATEDIF(B2,TODAY(),"d")+1)/(DATEDIF(B2,C2,"d")+1)

参数说明：
B2 是任务开始日期所在单元格，C2 是任务结束日期所在单元格。TODAY() 会自动返回当前日期，因此该公式计算的是从任务开始至今已过去的天数占任务总计划天数的比例。

2. 输入公式后，向下拖动填充柄，即可将公式复制到所有需要的行中，每行会根据今天的日期自动显示对应任务的当前完成百分比。下图展示了该公式应用于多个任务的效果：

3. 选中所有已计算的单元格，转到开始选项卡，点击数字组中的百分比样式按钮，即可将数值以百分比形式显示，而非小数。您还可使用增加小数位数和减少小数位数按钮，按需调整小数位数的精度。

注意事项：此方法非常灵活，但需确保所有日期单元格在 Excel 中均设置为实际日期格式，否则可能导致错误或显示不正确的值。

如果您希望结果每天自动更新，TODAY()可确保每次重新计算或打开工作簿时，百分比都能准确反映当前进度。但请注意，若引用的是手动输入的静态日期（而非 ）TODAY()），则需随时间推移自行更新这些值。

---

VBA 代码 – 自动计算百分比并动态更新整行及日期数据

如果您的工作表包含大量具有明确开始日期和结束日期的任务，不妨使用 VBA 根据今日日期自动计算每个任务的进度百分比。当您希望在无需手动输入公式的情况下动态更新多行任务进度时，此方法尤为高效。该宏会逐行遍历任务，将今日日期与任务的开始日期和结束日期进行比对，计算已过时间占总持续时间的百分比，并将结果填入目标列，助您快速掌握各项任务的完成进度。

1. 按 Alt + F11 打开 Microsoft Visual Basic for Applications 编辑器。在 VBA 编辑器中，依次点击插入 > 模块 以创建新模块，然后将以下代码粘贴其中：

Sub UpdateTaskCompletionPercent()
'Updated by Extendoffice 20250724
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim StartDateCol As String, EndDateCol As String, PercentCol As String
    Dim startDate As Variant, endDate As Variant, todayDate As Date
    Dim pct As Double
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = Application.ActiveSheet
    
    ' Adjust these column letters as needed
    StartDateCol = "B"
    EndDateCol = "C"
    PercentCol = "D"
    
    todayDate = Date
    lastRow = ws.Cells(ws.Rows.Count, StartDateCol).End(xlUp).Row
    
    For i = 2 To lastRow ' Skip header
        startDate = ws.Cells(i, StartDateCol).Value
        endDate = ws.Cells(i, EndDateCol).Value
        
        If IsDate(startDate) And IsDate(endDate) Then
            If endDate >= startDate Then
                If todayDate < startDate Then
                    pct = 0
                ElseIf todayDate >= endDate Then
                    pct = 1
                Else
                    pct = (todayDate - startDate + 1) / (endDate - startDate + 1)
                End If
                ws.Cells(i, PercentCol).Value = pct
                ws.Cells(i, PercentCol).NumberFormat = "0.00%"
            Else
                ws.Cells(i, PercentCol).Value = "Invalid dates"
            End If
        Else
            ws.Cells(i, PercentCol).Value = "Date error"
        End If
    Next i
End Sub

2. 输入代码后，按 F5（或单击）运行按钮）即可执行脚本。此批处理操作将立即根据当前日期填充百分比列（D）中的每一行。

注意事项与故障排除：

• 如果您的任务数据分布在不同的列中，请调整代码中的 StartDateCol、EndDateCol 和 PercentCol，使其与您工作表的布局完全匹配。
• 如果脚本显示 “Date error”或 “Invalid dates”，请检查是否存在空白行、日期输入错误，或起始日期与结束日期重叠/顺序有误。
• 此方法可确保您的百分比计算始终准确无误，并在批量编辑数据或从其他来源导入数据后自动实时更新。

此 VBA 解决方案专为需要反复进行数据准备和自动化报告的场景而设计，可有效替代低效的手动公式复制操作。

---

---

更多相关百分比文章：