Vba를 사용하여 범위 내 고유 값을 계산하는 방법
다음 기본 구문을 사용하여 VBA를 사용하여 범위의 고유 값 수를 계산할 수 있습니다.
SubCountUnique ()
Dim Rng As Range, List As Object, UniqueCount As Long
Set List = CreateObject(" Scripting.Dictionary ")
'count unique values in range A2:A11
For Each Rng In Range(" A2:A11 ")
If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
Next
'store unique count
UniqueCount = List.Count
' display unique count
MsgBox " Count of Unique Values: " & UniqueCount
End Sub
이 특정 예에서는 A2:A11 범위에 있는 고유 값의 개수를 계산한 다음 메시지 상자에 개수를 표시합니다.
다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.
예: VBA를 사용하여 범위 내 고유 값 계산
Excel에 다음과 같은 농구 팀 이름 목록이 있다고 가정합니다.
A2:A11 범위에서 고유한 팀 이름의 수를 계산한다고 가정해 보겠습니다.
이를 위해 다음 매크로를 생성할 수 있습니다:
SubCountUnique()
Dim Rng As Range, List As Object, UniqueCount As Long
Set List = CreateObject(" Scripting.Dictionary ")
'count unique values in range A2:A11
For Each Rng In Range(" A2:A11 ")
If Not List.Exists(Rng.Value) Then List.Add Rng.Value, Nothing
Next
'store unique count
UniqueCount = List.Count
'display unique count
MsgBox " Count of Unique Values: " & UniqueCount
End Sub
이 매크로를 실행하면 다음과 같은 출력이 나타납니다.
메시지 상자에는 5개의 고유한 팀 이름이 있음이 표시됩니다.
각 고유 팀 이름을 수동으로 식별하여 이것이 올바른지 확인할 수 있습니다.
- Mavs
- 열
- 네트
- 전사
- 왕
실제로 5개의 고유한 팀 이름이 있습니다.
참고 : 다른 범위에 있는 고유 값의 수를 계산하려면 For Each 루프의 A2:A11을 다른 범위로 바꾸면 됩니다.
추가 리소스
다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.
VBA: 특정 텍스트가 포함된 셀 수를 계산하는 방법
VBA:범위 내 행 수를 계산하는 방법
VBA: COUNTIF 및 COUNTIFS 함수 작성 방법