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

 dew (dewdrop)

추천:  2
파일:     WELDING MAP 12월 LIST(요청)_Ans.xlsm (34.8KB) 조회:  1260
제목:   [RE]다중 조건 문자 합치기
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007): 2016

* 아래줄에 질문을 작성하세요 >>

첨부 파일에서 정산 시트에 보시면 B & C 행 텍스트와 똑같은 WELDING POINT를 월별 LIST 시트 B & C 행에 찾아서 숫자 합치기 할려는데..
잘 안되네요...

메크로를 네이버 지식에서 받긴했는데...중간에 공란이 생기면 에러가 발생합니다..

그냥 수식으로 가능할까요??
==============[최만진님 글에 대한 답변입니다]==============
첨부 화일 참조하세요...

사용자정의함수 이용
getData(조건번위, 조건1, 조건2, 가져올범위)

=getData('월별 LIST'!$B$11:$C$20, 답변!B3, 답변!C3, '월별 LIST'!$E$11:$E$20)

Function getData(rCri As Range, rA As Range, rB As Range, rData As Range)
    Dim rX As Range
    Dim iX As Integer
    Dim sX As String
    
    Application.Volatile
    
    If rCri.Rows.Count = rData.Rows.Count Then
        For iX = 1 To rCri.Rows.Count
            If rCri.Cells(iX, 1) = rA And rCri.Cells(iX, 2) = rB Then
                If sX = "" Then
                    sX = rData.Cells(iX)
                Else
                    sX = sX & "," & rData.Cells(iX)
                End If
            End If
        Next
    End If
    getData = sX
End Function

 
[불량 게시물 신고]  
최만진감사합니다~^^ 잘쓸께요~11-26 (13:53)
삭제 ■신고
        
  

작성일 : 2018-11-26(12:59)
최종수정일 : 2018-11-26(12:59)
 


 ◎ 관련글

  제 목   작성자   날짜
다중 조건 문자 합치기 최만진 2018-11-26
[RE]다중 조건 문자 합치기 dew 2018-11-26