用Excel VBA实现未知范围列唯一值提取与频次统计及代码排障

入门阶段写该功能的常见代码故障定位 #

都是现阶段开发该功能时极易触发的运行异常，按点排查即可定位问题：

• 遍历范围设置错误：要么写死固定遍历20行，实际数据超出预设行号就漏统计；要么直接引用整列A，把后续大量空单元格纳入循环，运行效率极低，甚至会把空值统计成独立唯一值
• 存在性判断逻辑缺失：遍历A列每个值时，没有先比对已输出的唯一值列表是否存在该值，导致每个值都在输出列新增一行，最终所有频次统计结果都是1
• 类型判断不严谨：没有统一单元格值的读取格式，文本型数值和纯数值会被当成两个不同的唯一值，比如123（数值格式）和"123"（文本格式）分开统计，结果和实际预期不符
• 对象引用错误：如果尝试用字典类结构存储唯一值，未正确初始化对象就直接调用，会触发“对象变量或With块变量未设置”的运行时错误

无自定义工作表函数的分步实现逻辑 #

全程基于你已经掌握的基础遍历计数能力实现，不需要额外学习复杂语法：

• 自动定位A列有效数据的最后一行，适配数据范围未知的场景，不需要手动修改遍历行数
• 逐行读取A列每个单元格的实际值，自动跳过遍历过程中遇到的空单元格
• 每读取一个有效值，就在已生成的输出唯一值列中做匹配遍历：
• 匹配到相同值：直接将对应行的计数字段数值+1
• 未匹配到相同值：在输出列的最后一行新增记录，写入当前唯一值，初始频次设为1
• 遍历完成后自动补充输出列表头，避免手动输入导致的格式不统一

可直接运行的VBA参考代码 #

Sub 提取A列唯一值及频次()
    Dim targetWs As Worksheet
    Dim lastRowA As Long, lastRowOutput As Long
    Dim i As Long, j As Long
    Dim currentCellVal As Variant
    Dim valExists As Boolean
    
    ' 绑定当前操作的工作表，避免跨表引用出错
    Set targetWs = ActiveSheet
    
    ' 自动识别A列最后一行有数据的位置，适配任意数据长度
    lastRowA = targetWs.Cells(targetWs.Rows.Count, "A").End(xlUp).Row
    ' 处理A列无有效数据的异常场景
    If lastRowA < 2 Then
        MsgBox "A列未检测到有效数据，请核对录入内容"
        Exit Sub
    End If
    
    ' 初始化输出区域：唯一值放B列、频次放C列，清空之前的残留输出
    targetWs.Range("B:C").ClearContents
    targetWs.Range("B1") = "唯一值"
    targetWs.Range("C1") = "出现频次"
    lastRowOutput = 1 ' 输出列初始定位在表头行
    
    ' 从A列第2行开始遍历（如果需要从A1开始统计，将i的起始值改为1即可）
    For i = 2 To lastRowA
        currentCellVal = targetWs.Cells(i, "A").Value
        ' 跳过遍历过程中遇到的空单元格
        If currentCellVal <> "" Then
            valExists = False
            ' 遍历已输出的唯一值列表，检查当前值是否已存在
            For j = 2 To lastRowOutput
                If targetWs.Cells(j, "B").Value = currentCellVal Then
                    ' 匹配成功，对应频次+1
                    targetWs.Cells(j, "C").Value = targetWs.Cells(j, "C").Value + 1
                    valExists = True
                    Exit For ' 匹配完成后终止本次查找，减少无效遍历
                End If
            Next j
            ' 未找到匹配值时，新增一行记录
            If valExists = False Then
                lastRowOutput = lastRowOutput + 1
                targetWs.Cells(lastRowOutput, "B").Value = currentCellVal
                targetWs.Cells(lastRowOutput, "C").Value = 1
            End If
        End If
    Next i
    
    MsgBox "统计完成，共提取" & lastRowOutput - 1 & "个唯一值"
End Sub

• 全程未调用任何自定义工作表函数，完全基于基础单元格遍历逻辑实现，符合当前学习阶段的能力要求
• 自动适配任意长度的A列数据，不管后续追加多少行数据，都不需要手动修改遍历行号
• 自动跳过空单元格，不会将空白内容统计为独立的唯一值
• 可直接根据使用需求调整输出列位置，比如需要将结果输出到D、E列，只需修改代码中对应的列引用即可

内容的提问来源于stack exchange，提问作者clevun