建立模块:
Function hbzm(rr As String) As String
gg = ""
DF = Len(Trim(rr))
For i = 1 To DF
If Not ((Asc(Mid(rr, i, 1)) >= 65 And Asc(Mid(rr, i, 1)) <= 90) Or (Asc(Mid(rr, i, 1)) >= 97 And Asc(Mid(rr, i, 1)) <= 122)) Then
MsgBox i
gg = gg + Mid(rr, i, 1)
End If
Next
hbzm = gg
End Function
建立模块:
gg = ""
DF = Len(Trim(rr))
For i = 1 To DF
If Not ((Asc(Mid(rr, i, 1)) >= 65 And Asc(Mid(rr, i, 1)) <= 90) Or (Asc(Mid(rr, i, 1)) >= 97 And Asc(Mid(rr, i, 1)) <= 122)) Then
MsgBox i
gg = gg + Mid(rr, i, 1)
End If
Next
hbzm = gg
End Function