如何在Excel中按年/季度/月/周统计出现次数？

当您需要快速找出某个事件在特定年份或月份发生的次数时，公式提供了一种灵活且动态的方法。通过将内置日期函数与SUMPRODUCT结合使用，您可以直接按年、月或其任意组合进行计算，使您的汇总结果准确，并且随着源数据的变化自动更新。这种方法适用于大多数小到中型数据集的常规分析任务。

选择一个空白单元格以显示统计结果，然后输入以下公式：

=SUMPRODUCT((MONTH($A$2:$A$24)=F2)*(YEAR($A$2:$A$24)=$E$2))

输入公式后，向下拖动单元格的自动填充柄以将公式应用到其他行。如下图所示：

注意事项：

• 公式中的 MONTH($A$2:$A$24)=F2 和 YEAR($A$2:$A$24)=$E$2 是匹配F2中指定月份和E2中指定年份的条件。请根据您的数据布局更新范围和引用（如 A2:A24、E2、F2）。
• 如果仅按月统计，忽略年份，请使用：
  =SUMPRODUCT(1*(MONTH($A$2:$A$24)=F2))
• 确保日期列包含真实的Excel日期值，而不是文本格式的日期，以避免错误或不匹配。如果公式返回意外结果，请仔细检查日期格式。
• 如果您的数据集较大，考虑使用数据透视表或VBA以提高性能和更易维护性。

此方法适用于大多数需要快速统计数据的场景，并且希望在修改数据时结果能够自动更新。然而，处理多个分组条件可能会使公式复杂且难以维护。

如果您已安装Kutools for Excel，可以利用其直观的工具按年、月、工作日、天或进一步的组合（如年和月或月和日）进行分组和统计，而无需构建复杂的公式。这种方法特别适合寻求可视化、菜单驱动解决方案的用户。

1. 选择包含日期的列，然后点击 Kutools > 格式 > 应用日期格式。将出现以下对话框：

2. 在“应用日期格式”对话框中，选择与统计需求对应的格式样式（如月、年、工作日、天等），然后点击确定。例如，选择“Mar”以按月统计。

3. 当日期列仍处于选中状态时，点击 Kutools > 转为实际值。此步骤将所有日期转换为显示值（例如月份名称），以便在后续步骤中更容易分组。

4. 接下来，选择包含转换后的分组名称和关联数据（如金额或类别列）的范围。前往 Kutools > 文本 > 高级合并行。您将看到以下界面：

5. 在“高级合并行”对话框中：
（1）将您的日期列设置为 主键 以对其进行分组。
（2）对于要统计的列（例如金额），将计算方式设置为 计数.
（3）您可以为其他列选择其他聚合或组合方法（例如用逗号组合水果名称）。
（4）点击 确定 进行处理。

您的数据现在将显示每个选定周期内的记录数量。如下图所示：

与手动公式相比，Kutools简化了流程、减少了人为错误，并且非常适合频繁进行分组统计并希望避免公式复杂性的用户。它适用于小型和大型数据集。在批量转换或合并行之前，请记得备份数据。

数据透视表提供了一种强大且交互式的方式来分析大型数据集，并按一个或多个时间维度（年、月、季度、小时等）汇总出现次数——所有操作都通过简单的点击界面完成。数据透视表还允许快速重新配置和过滤，使其成为探索数据模式或准备管理报告的理想工具。

1. 选择您的数据表，然后前往 插入 > 数据透视表。“创建数据透视表”对话框出现。

2. 在对话框中，指定放置数据透视表的位置（新工作表或现有位置，例如单元格E1），然后点击 确定.

3. 在“数据透视表字段”窗格中，将“日期”字段拖到“行”部分，将“金额”（或目标字段）拖到“值”部分。默认情况下，值可能会被求和。

数据透视表如下图所示：

4. 通过右键单击值列标题（如“金额总和”），然后选择 按以下方式汇总值 > 计数.

5. 要按其他周期（如月、年或季度）分组，请右键单击“行标签”列中的任意单元格，选择 分组，在弹出的对话框中选择分组条件（如月、年或季度），然后点击 确定.

您的表格现在将按选定的周期显示统计结果：

注意： 按多个周期（如月和年）分组将在“行标签”中添加额外层级。您可以在“数据透视表字段”窗格中重新排列分组字段（例如，将 年 移动到 日期下方）以调整您的汇总视图。

这种方法最适合大型和动态数据集，需要定期分组、比较和汇总。它不太适合快速、临时的单元格级计算，也不适合不熟悉数据透视表功能的用户。

当您需要重复生成按不同时间段分组的统计摘要，或者希望通过自动化计数流程来提高效率（特别是在大型数据集中），自定义VBA宏是一种有效的解决方案。这种方法非常适用于定期处理数据、生成定期汇总表或需要自定义分组（如财季或周）的场景，这些需求可能无法通过公式或数据透视表轻松实现。

完整操作步骤：

• 在首次运行任何宏之前，请备份您的工作簿。
• 点击 开发工具 > Visual Basic 打开VBA编辑器。
• 点击 插入 > 模块，然后将以下代码复制并粘贴到模块窗口中。

Sub CountOccurrencesByPeriod()
    Dim lastRow As Long
    Dim ws As Worksheet, summaryWs As Worksheet
    Dim periodType As String
    Dim dict As Object, key As Variant
    Dim dateRange As Range, cell As Range
    Dim outputRow As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = Application.ActiveSheet
    Set dateRange = Application.InputBox("Select date range:", xTitleId, Selection.Address, Type:=8)
    
    periodType = Application.InputBox("Count by (Year/Quarter/Month/Week):", xTitleId, "Month", Type:=2)
    
    If dateRange Is Nothing Or periodType = "" Then Exit Sub
    
    Set dict = CreateObject("Scripting.Dictionary")
    
    For Each cell In dateRange
        If IsDate(cell.Value) Then
            Select Case LCase(periodType)
                Case "year"
                    key = Year(cell.Value)
                Case "quarter"
                    key = "Q" & WorksheetFunction.RoundUp(Month(cell.Value) / 3, 0) & " " & Year(cell.Value)
                Case "month"
                    key = Format(cell.Value, "yyyy-mm")
                Case "week"
                    key = "W" & WorksheetFunction.WeekNum(cell.Value) & " " & Year(cell.Value)
                Case Else
                    key = Format(cell.Value, "yyyy-mm")
            End Select
            
            If dict.Exists(key) Then
                dict(key) = dict(key) + 1
            Else
                dict.Add key, 1
            End If
        End If
    Next cell
    
    Set summaryWs = Worksheets.Add(After:=ws)
    summaryWs.Name = "Occurrence_Summary"
    
    summaryWs.Range("A1").Value = "Period"
    summaryWs.Range("B1").Value = "Occurrences"
    
    outputRow = 2
    For Each key In dict.Keys
        summaryWs.Cells(outputRow, 1).Value = key
        summaryWs.Cells(outputRow, 2).Value = dict(key)
        outputRow = outputRow + 1
    Next key
    
    MsgBox "Summary completed in sheet 'Occurrence_Summary'.", vbInformation
End Sub

输入代码后：

• 返回Excel并按下 Alt+F8，选择 CountOccurrencesByPeriod，然后点击 运行。
• 系统将提示您选择要分析的日期范围。选择包含日期的相关列或范围。
• 第二次提示会询问要按哪个周期分组：输入“年”、“季度”、“月”或“周”（不区分大小写）。
• 宏将生成一个名为 Occurrence_Summary 的新工作表，列出每个周期及其内部的出现次数。

故障排除和提示：

• 如果遇到宏安全警告，请在 文件 > 选项 > 信任中心 > 宏设置 中调整宏设置。
• 确保您的日期列包含有效的Excel日期值；文本字符串或混合格式可能会导致统计不准确或错误。
• 该宏具有灵活性——输入“季度”可快速按年和季度分组统计，或输入“周”以按周汇总。
• 如果您希望自定义输出（例如添加更多详细信息），可以修改宏以处理其他列或计算规则。

此解决方案适用于批量报告或定期分析，但假设您具备VBA的基本知识和正确的工作簿管理能力。如果您希望结合可视化汇总，可以同时使用数据透视表和VBA。

按周统计条目或事件的频率是销售跟踪、项目管理和资源分配中的常见需求。Excel提供了WEEKNUM函数，它可以返回给定日期在一年中的周数，从而使通过公式按周分组数据变得简单。

适用场景：您有一系列日期（例如销售或考勤数据），并希望统计每年每星期的条目数量。此方法适用于持续分析以及数据频繁变化的情况，因为统计会自动更新。

1. 在空白列中（例如B2），输入以下公式以计算A列中每个日期的周数：

=WEEKNUM(A2,1)

第二个参数（“1”）表示周从星期日开始（如果希望周从星期一开始，则改为“2”）。将此公式复制到日期数据的所有行中。

2. 列出您希望汇总的周数（例如1、2、3，…）。在另一个空白单元格（如D2）中，使用以下公式统计特定周数的出现次数（假设B2:B24列出了周数，D2包含要查找的周数）：

=COUNTIF($B$2:$B$24, D2)

按下Enter后，将此公式拖动到您的周数列表中。每个结果都显示该周的出现次数。

提示和注意事项：

• 如果您希望按年和周同时统计，以区分不同年份的条目，请使用：

  =SUMPRODUCT((YEAR($A$2:$A$24)=$F$2)*(WEEKNUM($A$2:$A$24,1)=G2))

  其中F2是目标年份，G2是目标周数。根据需要调整列范围和引用。
• WEEKNUM函数的周编号可能因设置（系统、美国/ISO、您选择的起始日）而有所不同。
• 如果使用ISO周编号（欧洲标准，周从星期一开始，第一周是包含第一个星期四的一周），请使用 =ISOWEEKNUM(A2)（适用于Excel 2013及更高版本）。
• 始终确保所有日期值均为有效的Excel日期格式，以获得准确的结果。

此方法适用于动态数据表，可以适应仪表板、定期汇总以及您希望按周交叉统计而不使用数据透视表或额外插件的场景。

在Excel中统计两个日期之间的周末/工作日数量

在Excel中按日期/月/年和日期范围进行计数

在Excel中按条件统计筛选数据/列表