나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  2
파일:     고유값 개수 구하기.xls (36KB) 조회:  979
제목:   [RE]중복값갯수
　 　 　
　
'------------------------
'  사용자 정의 함수
'------------------------

'-----------------------------------------------------------------

Function getunique(ParamArray X() As Variant) As Long

'-----------------------------------------------------------------
    
    
    Dim colx As Collection: Set colx = New Collection
    
    On Error Resume Next
    
    For Each y In X
    
        For Each m In y
            
            If y.Value <> "" Then
            
                 colx.Add m, m
                 
            End If
            
        Next
        
    Next
    
    getunique = colx.Count
    
    

End Function
 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2018-11-30(23:03)
최종수정일 : 2018-11-30(23:03)
　


 ◎ 관련글
  제 목   작성자   날짜
중복값갯수 궁금 2018-11-30
◎ [RE]중복값갯수 참서리 2018-11-30