Excel统计唯一值个数|极客笔记

Excel统计唯一值个数

在日常工作中，我们经常会遇到需要统计Excel表格中某一列的唯一值个数的情况。Excel本身并没有提供直接的功能来实现这个需求，但是我们可以借助一些方法来实现这个目标。本文将介绍两种常用的方法来统计Excel表格中某一列的唯一值个数，分别是使用Excel公式和使用Excel宏。

使用Excel公式统计唯一值个数

在Excel中，我们可以使用COUNTIF函数结合UNIQUE函数来统计某一列的唯一值个数。以下是具体步骤：

首先，确保你的Excel表格已经打开，选中你要统计唯一值的列，并命名该列，假设列名为A。
在空白单元格中输入以下公式：

=COUNTA(UNIQUE(A:A))

按下回车键，Excel会计算出该列的唯一值个数。

这种方法的优点是简单、快捷，适用于数据量较小的情况。但是在数据量较大的情况下，计算可能会比较慢。

使用Excel宏统计唯一值个数

除了使用Excel公式，我们还可以使用Excel宏来实现统计唯一值个数的功能。以下是具体步骤：

首先，按下Alt + F11打开Visual Basic for Applications（VBA）编辑器。
在左侧的项目资源管理器中，找到你的Excel表格文件，右键点击，选择插入 -> 模块。
在新建的模块中输入以下VBA代码：

Sub CountUniqueValues()
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")

    Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

    For Each cell In rng
        If Not dict.exists(cell.Value) Then
            dict.Add cell.Value, Nothing
        End If
    Next cell

    MsgBox dict.Count
End Sub