2023. 12. 15. 10:53, 엑셀로 풀어가는 세상
반응형
엑셀 VBA #43 / Find메서드_변형1 [VBA]
Dim rng As Range, cf As Range
Dim ad As String
Set rng = Range("A2", Cells(Rows.Count, "A").End(xlUp))
Set cf = rng.Find("A-1", , , xlWhole)
If Not cf Is Nothing Then 'cf값이 있으면
ad = cf.Address 'ad라는 변수에 cf값을 넣는다.
Do
cf.Interior.ColorIndex = 43
Set cf = rng.FindNext(cf) '기존 찾았던 cf셀 이후로 찾는다--findnext
Loop Until cf.Address = ad 'cf의 주소가 처음 주소와 같을 때 까지 Do~Loop구문작동
End If
[실무에서 가장 많이 사용되는 Find문 구조]
If Not cf Is Nothing Then
ad = cf.Address
Do
Loop Until cf.Address = ad
End If
https://www.youtube.com/watch?v=rVCct3N5VOA&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=43
반응형
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 VBA #47 / 중복데이터 처리_1 [VBA]- Removeduplicates. 고급필터. New Collection (0) | 2023.12.15 |
|---|---|
| 엑셀 VBA #46 / Replace 메서드 [VBA] - 유령문자 (0) | 2023.12.15 |
| 엑셀 VBA #45 / Find메서드_변형3 [VBA] - 중복표시 (0) | 2023.12.15 |
| 엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로 찾기 (0) | 2023.12.15 |
| 엑셀 VBA #42 / Find메서드_기본 [VBA] (0) | 2023.12.15 |
| 엑셀 VBA #41 / 행 삭제_개선2 [VBA] - 배열 (0) | 2023.12.15 |
| 엑셀 VBA #40 / 행 삭제_개선1 [VBA] - Union (0) | 2023.12.14 |
| 엑셀 VBA #39 / 행삭제_기본 [VBA] (0) | 2023.12.14 |
Comments, Trackbacks
