2023. 12. 15. 12:00, 엑셀로 풀어가는 세상
반응형
엑셀 VBA #45 / Find메서드_변형3 [VBA]
Dim sh8 As Worksheet, sh7 As Worksheet
Dim rng As Range, cf As Range
Dim ad As String
Set sh8 = Sheets("2018")
Set sh7 = Sheets("2017")
Set rng = sh7.Range("B3", sh7.Cells(Rows.Count, "B").End(xlUp))
'Cells(Rows.Count,"B")만 쓰면 오류 발생가능성 있으므로, 시트명 sh7를 붙힐 것
For Each c In sh8.Range("B3", sh8.Cells(Rows.Count, "B").End(xlUp))
Set cf = rng.Find(c, , , xlWhole)
If Not cf Is Nothing Then
ad = cf.Address
Do
c.Offset(, 2) = "○"
Set ccf = rng.FindNext(cf)
Loop Until cf.Address = ad
End If
https://www.youtube.com/watch?v=hSXQKoyhXNE&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=45
반응형
'엑셀로 풀어가는 세상' 카테고리의 다른 글
엑셀 VBA #49 / New Collection_버블정렬의 콜라보 [VBA] (0) | 2023.12.15 |
---|---|
엑셀 VBA #48 / 중복데이터 처리_2 [VBA] - 신규항목 추출 (0) | 2023.12.15 |
엑셀 VBA #47 / 중복데이터 처리_1 [VBA]- Removeduplicates. 고급필터. New Collection (0) | 2023.12.15 |
엑셀 VBA #46 / Replace 메서드 [VBA] - 유령문자 (0) | 2023.12.15 |
엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로 찾기 (0) | 2023.12.15 |
엑셀 VBA #43 / Find메서드_변형1 [VBA] (0) | 2023.12.15 |
엑셀 VBA #42 / Find메서드_기본 [VBA] (0) | 2023.12.15 |
엑셀 VBA #41 / 행 삭제_개선2 [VBA] - 배열 (0) | 2023.12.15 |
Comments, Trackbacks