2023. 12. 15. 11:22, 엑셀로 풀어가는 세상
반응형
엑셀 VBA #44 / Find메서드_변형2 [VBA] - 역방향으로 찾기
Dim rng As Range, cf As Range
Dim ad As String
Set rng = Range("B3", Cells(Rows.Count, "B").End(xlUp))
Set cf = rng.Find("서울", Range("B18"), , xlWhole, , xlPrevious)
If Not cf Is Nothing Then
ad = cf.Address
Do
Cells(Rows.Count, "E").End(3)(2) = cf.Offset(, -1)
Set cf = rng.FindPrevious(cf)
Loop Until cf.Address = ad
End If
https://www.youtube.com/watch?v=beI2XhKg3Yg&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=44
반응형
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 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 #45 / Find메서드_변형3 [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 |
| 엑셀 VBA #40 / 행 삭제_개선1 [VBA] - Union (0) | 2023.12.14 |
Comments, Trackbacks
