Vba: 열에서 고유한 값을 얻는 방법

VBA에서 AdvancedFilter 함수를 사용하면 Excel의 열에서 고유 값 목록을 빠르게 가져올 수 있습니다.

이를 수행하는 일반적인 방법은 다음과 같습니다.

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

이 특정 예는 A1:A11 범위에서 고유 값 목록을 추출하여 E1 셀에 표시합니다.

다음 예에서는 실제로 이 구문을 사용하는 방법을 보여줍니다.

예: VBA를 사용하여 열에서 고유 값 가져오기

다양한 농구 선수에 대한 정보가 포함된 다음과 같은 데이터 세트가 Excel에 있다고 가정해 보겠습니다.

Team 열에서 고유 값 목록을 추출한다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub GetUniqueValues()

Range(" A1:A11 ").AdvancedFilter_
                Action:=xlFilterCopy, CopyToRange:=Range(" E1 "), Unique:= True

End Sub

이 매크로를 실행하면 다음과 같은 출력이 나타납니다.

이제 E 열에는 원본 데이터 세트의 팀 열에 있는 고유 값 목록이 표시됩니다.

AdvancedFilter 메서드는 대소문자를 구분하지 않습니다.

예를 들어 동일한 열에 팀 이름 “MAVS”와 “Mavs”가 있는 경우 이 특정 매크로는 정확히 동일한 문자를 공유하므로 팀 열에 나타나는 두 값 중 첫 번째 값만 반환합니다.

참고 : 여기에서 VBA의 AdvancedFilter 메서드에 대한 전체 문서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA: 특정 텍스트가 포함된 셀 수를 계산하는 방법
VBA:범위 내 행 수를 계산하는 방법
VBA: 범위 내 고유 값을 계산하는 방법