Alt+F11，插入，模块
Function RemoveChinese(rng As Range)
s = Len(rng.Text)
For i = 1 To s
txt = StrConv(Mid(rng.Text, i, 1), vbNarrow)
txt2 = StrConv(Mid(rng.Text, i, 1), vbWide)
If txt <> txt2 Then
RemoveChinese = RemoveChinese & Mid(rng.Text, i, 1)
Else: Exit For
End If
Next i
End Function