이 기사에서는 정의 된 범위에서 고유 한 값을 계산하는 사용자 지정 함수를 만듭니다.

이 예의 원시 데이터는 행의 난수로 구성됩니다. 이 예에서는 각 행에있는 고유 번호의 수를 계산하려고합니다.

ArrowRaw

행에서 고유 한 숫자의 개수를 찾기 위해 “CountUniqueValues”사용자 지정 함수를 만들었습니다. 이 함수는 범위를 입력으로 사용하고 고유 한 숫자 개수를 반환합니다.

ArrowOutput

논리 설명

고유 한 숫자의 개수를 가져 오기 위해 사용자 지정 함수 “CountUniqueValues”를 만들었습니다. 이 사용자 지정 함수에서는 컬렉션 개체의 개체를 만들었습니다. 이 컬렉션 개체는 고유 번호 목록을 만드는 데 사용됩니다. 고유 번호 목록이 있으면 컬렉션의 항목 수를 얻습니다.

코드 설명

Application.Volatile은 통합 문서에서 셀 값이 변경 될 때마다 다시 계산되기 때문에 사용됩니다.

On Error Resume Next는 오류를 처리하는 데 사용됩니다.

아래 코드를 따르세요

Option Explicit

Function CountUniqueValues(InputRange As Range) As Integer

Dim CellValue As Variant, UniqueValues As New Collection

Application.Volatile

'For error Handling

On Error Resume Next

'Looping through all the cell in the defined range

For Each CellValue In InputRange

UniqueValues.Add CellValue, CStr(CellValue)  ' add the unique item

Next

'Returning the count of number of unique values

CountUniqueValues = UniqueValues.Count

End Function

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요