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

 참서리 (k5953)

추천:  2
파일:     keyword 단어앞마다 기호넣기.xlsm (17.2KB) 조회:  1346
제목:   [RE]키워드 앞 특정 기호 출력
　 　 　
　 '-----------------------------------------------------------------------
Function key_word(src As Range, key As Range) As Variant
'-----------------------------------------------------------------------

    Dim vSrc As Variant: vSrc = VBA.Split(src.Value, " ")
    Dim vKey As Variant: vKey = VBA.Split(key.Value, ",")
    
    For i = LBound(vSrc, 1) To UBound(vSrc, 1)
         
        If Not IsError(Application.Match(vSrc(i), vKey, 0)) Then
            vSrc(i) = "#" & vSrc(i)
        End If
        
    Next i
    
    key_word = Join(vSrc, " ")
    
    
End Function



 		　
[불량 게시물 신고]  
참서리다음 YouTube 동영상에 자세히 설명되어 있습니다.
https://youtu.be/pMeH6qUo-ug		07-24 (20:13)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2019-07-24(20:12)
최종수정일 : 2019-07-24(20:14)
　


 ◎ 관련글
  제 목   작성자   날짜
키워드 앞 특정 기호 출력 너굴너굴 2019-07-23
◎ [RE]키워드 앞 특정 기호 출력 참서리 2019-07-24
[RE]키워드 앞 특정 기호 출력 dew 2019-07-23