엑셀 문자 추출 함수 :: ExtractLetter 사용법 및 전체 코드

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 ([https://www.oppadu.com](https://www.oppadu.com/))
'■ ExtractLetter 함수
'■ 텍스트에서 문자만 추출합니다. 추출 시작 및 종료위치를 지정할 수 있습니다.
'■ 인수 설명
'_____________Val : 문자를 추출할 텍스트 또는 셀입니다.
'__________iStart : 추출을 시작할 위치입니다. 기본값은 1 입니다.
'___________iEndl : 추출을 종료할 위치입니다. 기본값은 32767 입니다.
'__ExcludeSpecial : 특수문자 포함 여부입니다. TRUE일 경우 특수문자를 포함하여 문자를 추출합니다.
'###############################################################
 
Function ExtractLetter(Val, Optional iStart, Optional iEnd, Optional ExcludeSpecial) As String
 
Dim i As Long
Dim Str As String
Dim match As Variant
 
If IsMissing(iEnd) Then iEnd = 32767
If IsMissing(iStart) Then iStart = 0
If IsMissing(ExcludeSpecial) Then ExcludeSpecial = False
 
If iEnd <= 0 Or Not IsNumeric(iEnd) Then iEnd = 32767
If iStart <= 0 Or Not IsNumeric(iStart) Then iStart = 1 
If Not IsNumeric(ExcludeSpecial) Then ExcludeSpecial = False Else ExcludeSpecial = cBool(xcludeSpecial) 
If iStart > iEnd Then ExtractLetter = CVErr(errvalue)
If IsObject(Val) Then Str = Val.Value Else Str = Val
 
Str = Mid(Str, iStart, iEnd - iStart + 1)
 
With CreateObject("VBScript.RegExp")
 
    If ExcludeSpecial = False Then
        .Pattern = "\D"
    Else
        .Pattern = "[^\d!@#$%\^&*()-_+=~`';:""?<>,.]"
    End If
 
    .Global = True
    Set match = .Execute(Str)
 
        If match.Count > 0 Then
            ExtractLetter = ""
            For i = 0 To match.Count - 1
               ExtractLetter = ExtractLetter & match(i)
            Next i
        End If
End With
 
End Function