ExtractLetter

안녕하세요.
2.5mL 을 ExtractLetter로 추출 시, ".mL"이 올바르게 반환됩니다. 다시 한번 확인해보시겠어요?
감사합니다.

특수문자 . 을 빼려고 하면 L이 출력이 안되고(예시) 2.5mL >> m로 나옴)
2.5ml은 ml로 잘 나오는데 대소문자가 섞여 있으면 소문자만 출력이 안되서(2.5ml >> ml // 2.5mL >> m로 나옴)

알려주신 방법에서 아래처럼 조금 수정하니까 mL만 나와서 공유드려요ㅎㅎ 덕분에 해결됐습니다.

감사합니다.

Function ExtractLetter(Val, Optional iStart, Optional iEnd, Optional ExcludeSpecial) As String

Dim i As Long
Dim Str As String
Dim match As Variant


Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "[a-zA-Z]"
regex.Global = True


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(ExcludeSpecial)

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 = regex.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

안녕하세요.
패턴을 아래와 같이 사용해보세요

.Pattern = "[^0-9() /]+"