2023. 12. 21. 16:23, 엑셀로 풀어가는 세상
[엑셀이뭐니]매크로 기초 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값을 초기화하는 것임
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 VBA #90 / 데이터재배치 [VBA] (0) | 2023.12.31 |
|---|---|
| 엑셀 VBA #85 / 이벤트 프로시저와 find 메서드 활용하기 [VBA] (1) | 2023.12.30 |
| 엑셀 VBA #127 / Vlookup시리즈3_배열+Dictionary활용 [VBA] (0) | 2023.12.28 |
| VBA - Dictionary(Late vs Early Binding) by 우노사설 (0) | 2023.12.23 |
| 엑셀 VBA #122 / 헷갈리는 시트, 셀 제어 [VBA] (0) | 2023.12.20 |
| 엑셀 VBA #126 / Vlookup시리즈2_배열 활용 [VBA] (0) | 2023.12.19 |
| 엑셀 VBA #119 / Dictionary 개체_실무 [VBA] (0) | 2023.12.19 |
| 엑셀 VBA #118 / Dictionary 개체_기본 [VBA] (0) | 2023.12.19 |
Comments, Trackbacks
