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

 참서리 (k5953)

추천:  2
파일:     일치하는_열_복사_붙여넣기.xlsm (15KB) 조회:  1639
제목:   [RE]replace 와 vba질문 하나 드립니다.
　 　 　
　
'----------------------------------------------------------------
Function YK(search_ As Variant, rngY As Range) As Variant
'----------------------------------------------------------------


    'Dim search_ As String: search_ = "홍길동1" ' [E1].Value
    Dim varX As Variant: varX = rngY.Value
    
    For i = 1 To UBound(varX, 1)
    
        If varX(i, 1) = search_ Then
            varX(i, 1) = search_
        Else
            varX(i, 1) = ""
        End If
        
    Next i
  '  Stop
    
    YK = varX
    

End Function '



'----------------------------------------------------------------
Sub Y()
'----------------------------------------------------------------
    Dim search_ As String: search_ = "홍길동1" ' [E1].Value
    Dim varX As Variant: varX = [B3:B14].Value
    
    For i = 1 To UBound(varX, 1)
    
        If varX(i, 1) = search_ Then
            varX(i, 1) = search_
        Else
            varX(i, 1) = ""
        End If
        
    Next i
  '  Stop
    
    [E3].Resize(UBound(varX, 1), 1).Value = varX
    

End Sub


 		　
[불량 게시물 신고]  
참서리다음 YouTube 영상에 자세히 설명되어 있습니다.
https://youtu.be/spLm4sAeI7U		06-10 (10:55)
ⓧ삭제 ■신고
 　  　  　
  

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


 ◎ 관련글
  제 목   작성자   날짜
replace 와 vba질문 하나 드립니다. 지각송 2019-06-08
[RE]replace 와 vba질문 하나 드립니다. 지각송 2019-06-10
◎ [RE]replace 와 vba질문 하나 드립니다. 참서리 2019-06-10