snippet.vb

Function re(CellLocation As Range, RegPattern As String)
    Dim OutPutStr As String
    Dim RegEx As Object, RegMatchCollection As Object, RegMatch As Object
 
    Set RegEx = CreateObject("vbscript.regexp")
    With RegEx
        .Global = True
        .Pattern = RegPattern
    End With
 
    OutPutStr = ""
    Set RegMatchCollection = RegEx.Execute(CellLocation.Value)
    For Each RegMatch In RegMatchCollection
        OutPutStr = OutPutStr & RegMatch
    Next
    re = OutPutStr
 
 
End Function

snippet.vb

Function CamelCase(str)
    Dim arr, i
    arr = Split(LCase(str), "_")
    For i = LBound(arr) + 1 To UBound(arr)
        arr(i) = UCase(Left(arr(i), 1)) & Mid(arr(i), 2)
    Next
    CamelCase = Join(arr, "")
End Function

관련 문서