엑셀 VBA #20 / Like 연산자_예제2 [VBA]
Like함수 구조 :
If 문자셀 Like 패턴 Then.......
Sub Like연산자_예제2()
Dim i As Long, j As Long
Dim cn As Long
cn = Range("a1").CurrentRegion.Rows.Count
For i = 2 To cn
For j = 1 To Len(Cells(i, "a"))
If Mid(Cells(i, "a"), j, 5) Like "D####" Then
Cells(i, "b") = Mid(Cells(i, "a"), j, 5)
End If
Next
Next
End Sub
https://www.youtube.com/watch?v=OG7qR-9IsNA&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=20
반응형
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 VBA #26 / For Each~Next_2 [VBA] - New Collection (0) | 2023.12.13 |
|---|---|
| 엑셀 VBA #25 / For Each~Next_1 [VBA] - 시트숨기기 (0) | 2023.12.13 |
| 엑셀 VBA #24 / For~Next_4 [VBA] - 시트 핸들링 (0) | 2023.12.13 |
| 엑셀 VBA #21 / For~Next_1 [VBA] 기본 (0) | 2023.12.13 |
| 엑셀 VBA #19 / Like 연산자_예제1 [VBA] (0) | 2023.12.13 |
| 엑셀 VBA #18 / Like 연산자 [VBA] (0) | 2023.12.13 |
| 엑셀 VBA #17 / If 조건문 [VBA] (0) | 2023.12.13 |
| 엑셀 VBA #15 / 셀 범위 선택하기_10 [VBA] - 빈 셀 채우기 (0) | 2023.12.13 |
