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

 참서리 (k5953)

추천:  2
파일:     문자반환-2.xls (34KB) 조회:  2027
제목:   [RE]와일드카드 문자추출
　 　 　
　
'-----------------------------
사용자 정의 함수
'-----------------------------



'---------------------------------------------------------------

Function extractX(rngX As Range, rngY As Range) As String

'---------------------------------------------------------------
       
    
     
   
    Dim sValue As String: sValue = rngX.Value
    Dim sSearch As String: sSearch = rngY.Value
    
    If sSearch = "" Then extractX = "": Exit Function
    
    
    Dim sTemp As String: sTemp = ""
     
    
    For i = 1 To VBA.Len(sValue)
    
        If InStr(1, sSearch, Mid(sValue, i, 1)) >= 1 Then
            sTemp = sTemp & Mid(sValue, i, 1)
        
        End If
    
    Next i

    extractX = sTemp


End Function
 		　
[불량 게시물 신고]  
가을소고감사합니다. 수식으로는 안될까요?11-21 (10:01)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2018-11-20(17:59)
최종수정일 : 2018-11-20(17:59)
　


 ◎ 관련글
  제 목   작성자   날짜
와일드카드 문자추출 가을소고 2018-11-20
◎ [RE]와일드카드 문자추출 참서리 2018-11-20