如何在 Excel 中对相同日期的对应值求和？

在处理包含重复值日期条目的 Excel 数据集时，您可能会发现自己需要汇总与每个日期相关的定量数据。例如，假设您管理一组如下面范围 A1:B13 所示的订单记录，其中列 A 列出了日期（某些日期出现不止一次），列 B 记录了相关的订单数量。如果您想对每个唯一日期的总订单数进行求和以生成汇总结果，Excel 提供了几种方法来高效准确地完成此任务。此功能对于汇总每日销售、合并日志记录或任何需要基于相同时间点聚合数据的场景来说非常宝贵。选择正确的方法可以节省大量手动工作，并有助于确保数据准确性。

• 使用公式根据相同日期求和对应值
• 使用 Kutools for Excel 根据相同日期求和对应值
• 使用 VBA 代码根据相同日期求和对应值
• 使用数据透视表根据相同日期求和对应值

使用公式根据相同日期求和对应值

最直接的解决方案之一是使用 Excel 的 SUMIF 函数。这种方法特别适合用于创建一个动态摘要，当您的源数据发生变化时，该摘要会自动更新。公式方法易于应用，适用于不是过大的数据范围。请按以下步骤操作：

1. 在希望特定日期总数显示的空白单元格中输入以下公式（例如，单元格 E2）：

=SUMIF($A$2:$A$13,D2,$B$2:$B$13)

2. 拖动填充值手柄从您输入公式的单元格向下应用到所有唯一的日期。这将填充一个汇总列，其中每个单元格显示其对应日期的总求和值。见截图：

使用 Kutools for Excel 根据相同日期求和对应值

如果您已经安装了 Kutools for Excel，高级组合行工具可以使这项任务更加简单。该解决方案允许您通过任何关键字段（在本例中为日期）合并行，并自动求和对应的值，为您节省时间并减少公式错误的可能性。它特别适用于那些经常需要汇总大范围数据或执行重复组合和计算操作的用户。

安装 Kutools for Excel 后，请按以下步骤操作：

1. 选择要按相同日期求和的数据范围。（建议在继续之前备份您的原始数据，因为此工具将转换您的数据布局。）

2. 转到 Kutools > 合并与拆分 > 高级合并行。

3. 在对话框中，选择您的日期列并将其设置为主键。接下来，选择要进行求和的列（例如“订单”），并在计算部分将其操作设置为求和。此设置告诉 Kutools 按照相同的日期对行进行分组，并通过求和它们的数值来进行合并。

4. 单击确定。Kutools 将立即生成汇总列表，以便对于每个唯一日期，所有相应的金额值都在一行中求和。见下图：

使用 VBA 代码根据相同日期求和对应值

对于寻求自动化或可编程方法的用户，VBA（Visual Basic for Applications）提供了一种灵活的方式来按日期求和值并将摘要导出到新范围。VBA 适用于处理重复任务、处理大型数据集或将汇总集成到更广泛的工作流程中——特别是当内置公式或功能不足以满足您的需求时。

1. 单击开发工具 > Visual Basic 打开 Microsoft Visual Basic for Applications 编辑器。在窗口中，单击插入 > 模块并将以下代码粘贴到模块中：

Sub SumValuesByDate()
    Dim SourceRange As Range
    Dim OutputRange As Range
    Dim Dict As Object
    Dim Cell As Range
    Dim iRow As Long
    Dim LastRow As Long
    Dim ws As Worksheet
    Dim kDate As Variant
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = Application.ActiveSheet
    
    ' Prompt for source data range containing dates and values
    Set SourceRange = Application.InputBox("Select the source data range (dates in first column, values in second):", xTitleId, ws.Range("A2:B13").Address, Type:=8)
    
    If SourceRange Is Nothing Then Exit Sub
    
    ' Prompt for output location
    Set OutputRange = Application.InputBox("Select the cell to output summary (top-left cell):", xTitleId, "E1", Type:=8)
    
    If OutputRange Is Nothing Then Exit Sub
    
    Set Dict = CreateObject("Scripting.Dictionary")
    
    ' Loop through data and sum by date
    For iRow = 1 To SourceRange.Rows.Count
        kDate = SourceRange.Cells(iRow, 1).Value
        If kDate <> "" And IsDate(kDate) Then
            If Dict.Exists(kDate) Then
                Dict(kDate) = Dict(kDate) + SourceRange.Cells(iRow, 2).Value
            Else
                Dict.Add kDate, SourceRange.Cells(iRow, 2).Value
            End If
        End If
    Next
    
    ' Write header
    OutputRange.Cells(1, 1).Value = "Date"
    OutputRange.Cells(1, 2).Value = "Sum"
    
    ' Write result to output range
    iRow = 2
    For Each kDate In Dict.Keys
        OutputRange.Cells(iRow, 1).Value = kDate
        OutputRange.Cells(iRow, 2).Value = Dict(kDate)
        iRow = iRow + 1
    Next
End Sub

2。单击 按钮或按 F5 运行宏。

3. 对话框将提示您选择原始数据范围（确保日期在第一列，值在第二列）。然后，另一个对话框允许您指定输出结果的位置（例如，单元格 E1）。

4. 确认后，将从您选择的输出单元格开始生成日期及其对应值求和的汇总表。

当您需要自动化的批量处理或希望避免手动干预时，VBA 是最好的选择。它是大规模或定期重复数据合并的绝佳选择。然而，如果您只需要偶尔的汇总，公式或数据透视表方法可能更简单。

使用数据透视表根据相同日期求和对应值

数据透视表提供了一种便捷且无需公式的方式，只需点击几下即可按日期对数据进行分组并计算求和。它特别适用于大型数据集或您希望交互式探索和分析数据的情况。当您的数据发生变化时，数据透视表可以自动刷新，使其适合持续报告和仪表板。

1. 选择包括标题在内的原始数据范围（例如，A1:B13）。

2. 转到插入选项卡并选择数据透视表。在对话框中，确认您的数据范围并选择放置数据透视表的位置（新工作表或现有工作表）。

3. 在数据透视表字段列表中，将日期字段拖入行区域，并将相应的订单（或您的值字段）拖入值区域。Excel 将自动为每个唯一日期求和值。

4. 当您的原始数据发生变化时，要更新数据透视表结果，请右键单击数据透视表并选择刷新。

最佳Office办公效率工具

🤖	Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
	热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
	高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
	高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
	列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
	特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
	15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……

Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Kutools for Excel更多详情…… 免费下载……

---

Office Tab为Office带来多标签界面，让您的工作更加轻松

• 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
• 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
• 可提升50%的工作效率，每天为您减少数百次鼠标点击！

Office Tab更多详情…… 免费下载……

---

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

• 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
• 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
• 协同更高效——提升Office应用间的整体工作效率
• 30天全功能试用——无需注册，无需信用卡
• 超高性价比——比单独购买更实惠

Kutools for Office更多详情…… 免费下载……