엑셀 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 #19 / Like 연산자_예제1 [VBA]

Len(Range("a2"))
a2셀 값의 글자 개수를 알려줘!!!

Mid(Range("a2"), 1, 1)
mid함수 지정 셀 값의 왼쪽에서부터 첫번째 위치한 글자에서부터 글자 하나만 보여줘!!!

 Mid(Range("a2"), 4, 4)
a2셀의 값에서 왼쪽에서 4번째부터 시작하여 4글자만 보여줘!!!

Sub Like연산자_예제()

Dim i As Long
Dim lT As String

For i = 1 To Len(Range("A2"))
      If Mid(Range("a2"), i, 1) Like "[가-힣]" Then
            lT = lT & Mid(Range("a2"), i, 1)
      End If
Next

Range("b2") = lT
'If Len(lT) then Range("b2")=lT  
'위 코드보다 이 코드 좋다는데....
'If Len(lT) then 의미 : lT에 값이 있다면!

End Sub

VBA#37강 Len구문 사용례 참고

    If Len(Cells(i, "B")) Then          ' Cells(i, "B")에 값이 있다면 아래 구문 반복해

https://www.youtube.com/watch?v=SumpOywJJqY&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=19