有关问题请问

问题请教
VB code

Sub test()
Dim b As String
b = ReplaceHZtoSpace(Cells(1, 1).Value)
MsgBox b

End Sub

Function ReplaceHZtoSpace(str As String)
  Dim StrC As String
  Dim StrAll As String
  Dim i As Integer
  Dim SigS As String
  For i = 1 To Len(str)
  SigS = Mid(str, i, 1)
  If SigS Like "[a-zA-Z1～9]" Then
  StrAll = StrAll & SigS
  ElseIf SigS Like "#" Then
  StrAll = StrAll & SigS
  Else
  StrC = StrC & SigS
  End If
  Next i
  ReplaceHZtoSpace = StrAll
End Function

上面的代码在excel应用中能够去掉单元个中的汉字，如何能够把他修改成去掉单元格中的非汉字。

[解决办法]

VB code

Sub test()Dim b As Stringb = ReplaceHZtoSpace(Cells(1, 1).Value)MsgBox bb = ReplaceFeiHZtoSpace(Cells(1, 1).Value)MsgBox bEnd SubFunction ReplaceHZtoSpace(str As String)  Dim StrC As String  Dim StrAll As String  Dim i As Integer  Dim SigS As String  For i = 1 To Len(str)  SigS = Mid(str, i, 1)  If SigS Like "[a-zA-Z1～9]" Then  StrAll = StrAll & SigS  ElseIf SigS Like "#" Then  StrAll = StrAll & SigS  Else  StrC = StrC & SigS  End If  Next i  ReplaceHZtoSpace = StrAllEnd FunctionFunction ReplaceFeiHZtoSpace(str As String)  Dim StrA As String  Dim StrB As String  Dim StrC As String  Dim StrAll As String  Dim i As Integer  Dim SigS As String  For i = 1 To Len(str)  SigS = Mid(str, i, 1)  If SigS Like "[a-zA-Z1～9]" Then  StrA = StrA & SigS  ElseIf SigS Like "#" Then  StrB = StrB & SigS  Else  StrAll = StrAll & SigS  End If  Next i  ReplaceFeiHZtoSpace = StrAllEnd Function