在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