vba统计一列里每个数据出现的次数

你可以使用 VBA 中的 Dictionary 对象来统计一列中每个数据出现的次数。下面是一个示例代码：

Sub CountOccurrences()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    Dim lastRow As Long
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    Dim cellValue As String
    For i = 1 To lastRow
        cellValue = ActiveSheet.Cells(i, 1).Value
        If Not dict.Exists(cellValue) Then
            dict.Add cellValue, 1
        Else
            dict(cellValue) = dict(cellValue) + 1
        End If
    Next i
    
    Dim key As Variant
    For Each key In dict.Keys
        Debug.Print key & ": " & dict(key)
    Next key
End Sub

这个代码会遍历第一列中的每个单元格，将单元格的值作为 Dictionary 对象的键，然后增加对应的值。最后，它会打印出每个键和它们的值（出现次数）。你可以根据需要修改这个代码以适应你的实际情况。