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

 참서리 (k5953)

추천:  2
파일:     여러셀에 있는 문자 한셀에 넣기_reply.xlsm (22KB) 조회:  1247
제목:   [RE]조건에 맞는 여러셀의 텍스트를 한셀에 넣는 방법 부탁드립니다.
　 　 　
　
'사용자 정의 함수입니다.
'첨부 파일 참조바랍니다.

'-----------------------------------------------------------------------------------------------------
Function concatX(x As Range, y As Range, v As Range, sDelimiter As String) As String
'-----------------------------------------------------------------------------------------------------

    Dim sTemp As String: sTemp = ""
    Dim iX As Long: iX = x.Rows.Count
    
    'Stop
    
    Dim i As Long: i = 1
    
    For Each Row In x.Rows
    
      If Join(Application.Transpose(Application.Transpose(Row.Value))) = _
        Join(Application.Transpose(Application.Transpose(y.Value))) Then
        
        sTemp = sTemp & IIf(sTemp = "", "", sDelimiter) & v.Cells(i).Value
       
      End If
     
     i = i + 1
     
    Next
    
 concatX = sTemp
 


End Function
 		　
[불량 게시물 신고]  
샘물정말 감사합니다!!! 덕분에 시간을 엄청 벌었습니다~~
다시 한번 감사드립니다!!! 꾸~벅 (-.-) (_._)		01-10 (14:44)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-01-10(06:59)
최종수정일 : 2019-01-10(06:59)
　


 ◎ 관련글
  제 목   작성자   날짜
조건에 맞는 여러셀의 텍스트를 한셀에 넣는 방법 부탁드립니다. 샘물 2019-01-09
◎ [RE]조건에 맞는 여러셀의 텍스트를 한셀에 넣는 방법 부탁드립니다. 참서리 2019-01-10