[엑셀이뭐니]매크로 기초 11강-Match 함수로 찾기(응용편)/ 중단모드 해제하기/ 엑셀 VBA 기초

[엑셀이뭐니]매크로 기초 11강-Match 함수로 찾기(응용편)/ 중단모드 해제하기/ 엑셀 VBA 기초

 

Sub match함수응용()

Dim rok As Long
Dim endr As Long
Dim R As Range

On Error Resume Next

endr = Cells(Rows.Count, "A").End(xlUp).Row
Range(Cells(2, 1), Cells(endr, 1)).Select

For Each R In Selection
    a = R                     '상품명
    b = R.Offset(0, 1)        '색상
    c = R.Offset(0, 2)        '사이즈
    d = a & "/" & b & "/" & c
    
    
    rok = Application.Match(d, Sheets("sheet1").Columns("A"), 0)
    
    R.Offset(0, 3) = Sheets("sheet1").Cells(rok, 5)
    
    rok = 0                'rok값을 초기화

Next
End Sub

 

rok값을 초기화 이유

원피스 색상에는 '핑크'가 없으나 바로 전 값인 50을 불러 와 버림.

이를 위해 rok값을 초기화하는 것임

https://www.youtube.com/watch?v=7XCt64TAo0M
ㅁㅁㅁ