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

 참서리 (k5953)

추천:  2
파일:     조회:  2426
제목:   [RE]특정 단어 문장에서 추출하기
　 　 　
　 Option Explicit


사용자 정의 함수입니다.

'--------------------------------------------
Function find_keys(rSrc As Range, rKeys As Range)
'--------------------------------------------
       
    Dim sSrc As String: sSrc = rSrc.Value
    Dim cell As Range
    Dim sTemp As String: sTemp = ""
    
    '----------------------------------
    For Each cell In rKeys.Cells
    '----------------------------------
        '문자열 포함여부 확인
        If Not( InStr(1, sSrc, cell.Value)= 0 ) Then
            
           ' 처음일때 ",'없이 전달
            If sTemp = "" Then
                sTemp = cell.Value
            Else
                sTemp = sTemp & "," & cell.Value
            End If
            
        End If
    
    Next cell
    
    find_keys = sTemp

End Function 		　
[불량 게시물 신고]  
참서리아래 동영상에서 자세히 설명되어 있습니다.
https://youtu.be/6e7wMiVtqt0		04-15 (16:48)
ⓧ삭제 ■신고
너굴너굴안녕하세요. 동영상으로 함께 설명을 보니 너무 좋은 것 같습니다. 상세하고 꼼꼼하게 설명해 주셔서 감사합니다!! ^^04-17 (01:41)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-04-15(16:48)
최종수정일 : 2019-04-15(16:48)
　


 ◎ 관련글
  제 목   작성자   날짜
특정 단어 문장에서 추출하기 너굴너굴 2019-04-15
◎ [RE]특정 단어 문장에서 추출하기 참서리 2019-04-15