在EXCEL中获取列中不重复的值的个数

Public Sub distinctCount()
'求Col列中StartRow到EndRow范围中不重复的个数
'本例是计算标题为sheet1的Excel表中的A1:A240的不重复值的个数
    '修改下面四行的结尾值
    Dim sheetsCaption As String: sheetsCaption = "Sheet1"
    Dim Col As String: Col = "A"
    Dim StartRow As Integer: StartRow = 1
    Dim EndRow As Integer: EndRow = 240
     '以下固定
    Dim Count As Integer: Count = 0
    With Sheets(sheetsCaption)
        
        For i = StartRow To EndRow
            Count = Count + 1
            For j = StartRow To i - 1
                If .Range(Col & i) = .Range(Col & j) Then
                    Count = Count - 1
                    Exit For
                End If
            Next
        Next
    End With
    MsgBox Count
End Sub

本文地址：http://com.8s8s.com/it/it41897.htm