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

 이미영 (hellotoggi)

추천:  2
파일:     조회:  1687
제목:   [RE]중복값합치기
     
  예시
H19 수식
=get_subjects($B$2:$E$14,B19:E19,$H$2:$H$14)

'-----------------------
사용자 정의 함수입니다.
'-----------------------

Function get_subjects(rData As Range, rCri As Range, rSubject As Range)

    Dim vCri As Variant: vCri = _
    Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rCri.Value)), ",")
            
    Dim oQ As Object
    
    Set oQ = VBA.CreateObject("System.Collections.Queue")
    Dim vData As Variant
    
    
    Dim row As Range, i As Long
    '------------------------
    For i = 1 To rData.Rows.Count
    '------------------------
        vData = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rData.Rows(i).Value)), ",")
        If vData = vCri Then
            oQ.enqueue rSubject.Cells(i)
        End If
    
    Next
    
    get_subjects = Join(oQ.toarray, "/")
    
    Set oQ = Nothing
    
End Function

==============[참서리님 글에 대한 답변입니다]==============
저는 계속 #NAME가 뜹니다...
함수정의는 모듈에서 했는데도요...
 
[불량 게시물 신고]  
        
  

작성일 : 2019-04-17(16:11)
최종수정일 : 2019-04-17(16:11)
 


 ◎ 관련글

  제 목   작성자   날짜
중복값합치기2 이미영 2019-04-16
[RE]중복값합치기2 dew 2019-04-16
[RE]중복값합치기 이미영 2019-04-17
[RE]중복값합치기 참서리 2019-04-17
[RE]중복값합치기 이미영 2019-04-17