[엑셀]전화번호 포맷 바꿔주는 함수

Function FP_NUMBER_FORMAT(sFrom As String) As String
    Dim iLen As Integer
    Dim sRet As String
   
    iLen = Len(sFrom)
    sRet = sFrom
   
    Select Case iLen
    Case 0, 13, 16
    Case 11
        sRet = Format(sFrom, "0##-####-####")
    Case 10
        If Left(sFrom, 2) = "02" Then
            sRet = Format(sFrom, "0#-####-####")
        Else
            sRet = Format(sFrom, "0##-###-####")
        End If
    Case 9
        sRet = Format(sFrom, "0#-###-####")
    Case 8
        sRet = Format(sFrom, "####-####")
    Case 7
        sRet = Format(sFrom, "###-####")
    Case Else
        sRet = "UnDefine " & iLen
    End Select
    FP_NUMBER_FORMAT = sRet
End Function