去掉字母A-Z以及数字0-9以外的其他字符函数 （原创）

Function SubstituteEx(Strtemp As String) As String'************************************************************'一个字符串中剥离品番部分，去掉A-Z,0-9，-'以外的字符'************************************************************    Dim VarTemp As String    Dim i As Long    Dim sig As Boolean        For i = 1 To Len(Strtemp)            sig = True        VarTemp = Right(Left(Strtemp, i), 1)            If Asc(UCase(VarTemp)) < 48 Or Asc(UCase(VarTemp)) > 90 Then                    If Asc(UCase(VarTemp)) <> 45 Then                            sig = False                            End If                    Else                    If (Asc(UCase(VarTemp)) > 57 And Asc(UCase(VarTemp)) < 65) Then                            sig = False                            End If                    End If                If sig Then                    SubstituteEx = SubstituteEx & VarTemp                    End If    Next    End Function