KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何在 Excel 中快速统计每个值首次出现的次数？

作者孙修改日期

在处理 Excel 中的大型数据集时，经常会遇到同时包含重复值和唯一值的列表。有时，您可能希望仅统计每个值的首次出现，而将后续重复项视为非唯一项。例如，在某个值多次出现的列表中，您可能希望仅统计每个值的初始实例，如下面截图所示的场景。此任务可帮助您快速掌握有多少个“首次出现”的不同条目，无论每个值之后重复多少次。如何在 Excel 中高效实现这一需求？

显示包含重复项的数据集以及首次出现值的计数的截图

使用公式计算项目的首次出现次数

统计每个值首次出现的一种直接方法是使用 Excel 公式。该方法可识别数据集中哪些条目为首次出现，并支持对这些条目求和，从而获得最终计数。

适用场景与价值：如果您正在处理列数据，并希望采用基于公式的动态解决方案（数据更新时自动刷新），此方法非常理想。它无需任何加载项或特殊权限，适合大多数用户，但需在工作表中新增一列。

请按以下步骤操作：

1. 请选择紧邻数据集首个值的空白单元格（例如，若您的数据位于 A1:A10，则选择 B1 单元格），然后输入以下公式：

=(COUNTIF($A$1:$A1,$A1)=1)+0

按 Enter 后，向下拖动填充柄，即可将公式应用到整个数据列的每一行。首次出现该值的行将显示“1”，其余行则显示“0”。如下图所示：

显示用于计算首次出现次数的公式的截图
箭头
显示首次出现计数公式结果的截图

提示：在此公式中，$A$1 表示数据区域的起始单元格（请根据实际位置调整），而 $A1 代表当前行。若您的数据并非从 A1 开始，请相应修改单元格引用。通过组合绝对引用与相对引用，可确保公式向下复制时计数结果准确无误。

2. 要统计首次出现的总数，请选择另一个空白单元格（例如，位于新公式列下方，并输入：）

=SUM(B1:B10)

按 Enter 即可返回计数结果。范围 B1:B10 应与您输入前一个公式的位置一致；若数据长度不同或公式位于其他列，请相应调整单元格引用。

显示在 Excel 中用于计算首次出现次数的 SUM 公式的截图向右箭头显示首次出现次数统计结果的截图

附加说明：此公式方法可在数值被更改、添加或删除时实时更新计数。请注意，若您的数据区域发生变化（例如插入新行），公式范围可能需要手动扩展。建议将数据转换为 Excel 表格，以实现公式的自动填充与更新。

使用 Kutools for Excel 计算项目的首次出现次数

如果您已安装 Kutools for Excel，即可使用其选择重复/唯一单元格功能轻松简化此操作，尤其适合处理大型或复杂数据集。该工具不仅能统计各值的首次出现次数，还能高亮显示这些值，便于快速查阅。

Kutools for Excel，配备人工智能🤖，提供 300 多项实用功能，助您简化工作。

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

1. 选择您要统计首次出现的所有单元格（例如 A1:A10），然后点击功能区中的 Kutools> 选择> 选择重复/唯一单元格。如下图所示：

显示功能区 Kutools 选项卡上“选择重复和唯一单元格”选项的截图

2. 在选择重复/唯一单元格对话框中，选择规则部分中的唯一值（包括第一个重复值）选项。如有需要，您还可以为所选单元格填充醒目的背景色，或更改字体颜色，使其更加突出。

“选择重复和唯一单元格”对话框的截图

3. 单击确定后，将弹出一个对话框，显示您所选区域中各值首次出现的计数。该总数包含唯一值及重复值的首次出现。参考下图：

显示包含首次出现次数的结果对话框的截图

4. 单击确定关闭对话框。每个项目首次出现的位置将被自动选中，并可选择高亮显示，便于在工作表中快速识别。

适用场景与注意事项：Kutools for Excel 的高亮方法对于经常处理大型数据表或需要即时高亮结果的用户非常高效，可避免公式错误并减少手动输入。但需在系统中安装 Kutools 加载项。运行此功能前，请务必检查所选单元格，以确保结果准确。如需撤销高亮，可使用 Excel 的撤消功能（Ctrl + Z）。

使用 VBA 代码宏计算项目的首次出现次数

对于希望完全自动化的场景，您可以使用 VBA 宏遍历列表并统计每个值的首次出现次数，无需手动添加公式或依赖外部加载项。此方法特别适用于重复性任务或大型数据集。请注意，VBA 宏要求您启用“开发工具”选项卡，并将文件保存为启用宏的格式（*.xlsm）。

适用性与说明：此宏特别适合高级用户或需要处理超大、频繁更新数据集的场景。由于它会直接修改数据，运行前请务必备份！在 Excel 网页版中，或当系统安全设置禁用宏时，此宏可能无法运行。

1. 在 Excel 中，单击开发工具>Visual Basic。当 Microsoft Visual Basic for Applications 窗口出现后，依次点击插入> 模块，并将以下代码复制粘贴到模块窗口中：

Sub CountFirstInstances()
    Dim rng As Range
    Dim dict As Object
    Dim cell As Range
    Dim firstInstanceCount As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select the range to count first instances:", xTitleId, rng.Address, Type:=8)
    
    Set dict = CreateObject("Scripting.Dictionary")
    firstInstanceCount = 0
    
    For Each cell In rng
        If Not dict.exists(cell.Value) Then
            dict.Add cell.Value, 1
            firstInstanceCount = firstInstanceCount + 1
        End If
    Next cell
    
    MsgBox "The number of first instances in the selected range is: " & firstInstanceCount, vbInformation, "First Instance Count"
End Sub

2. 粘贴代码后，单击运行按钮（运行）按钮，或按 F5 执行宏。出现提示时，选择要分析的范围（例如 A1:A10），然后单击确定。随后将弹出一个对话框，显示所选范围内首次出现的计数（包括唯一值和重复值的首次出现）。

提示与错误预防：若选择有误，只需重新运行宏即可。所用字典对象会将空单元格视为有效项，因此若数据区域包含空单元格，可能会额外计入一个空项。为提升准确性，请在使用前避免选择空行，或先筛选并排除空单元格。VBA 方法可能触发安全警告或需启用宏权限；如有需要，请调整您的信任中心设置。

故障排除建议与备注：如果宏无法运行，请检查是否已在“文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置”中启用宏。运行任何代码前，请务必保存工作。此 VBA 代码适用于单列列表；如需处理多列范围，请根据实际需求修改代码。

总结建议：总之，选择公式、Kutools 选择工具还是 VBA 宏，取决于您的技能水平、数据集规模以及对手动或自动化解决方案的偏好。公式方法更适合处理小型数据集，且适合熟悉 Excel 核心功能的用户；Kutools for Excel 为已安装该加载项的用户提供快速直观的操作选项；而 VBA 宏则专为希望自动化重复任务或处理超大数据集的用户量身打造。两种方法均能高效识别并统计每个值的首次出现，完美融入您的工作流程。

相关文章：

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

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

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱