Excel去除中文，只留英文和数字

在Excel中点击宏-》编辑器，右键添加模块，写入下面内容：

Function tet(s As String) As String
    Dim str As String
    str = ""
    For i = 1 To Len(s)
        If Strings.Asc(Mid(s, i, 1)) > 0 Then
            str = str + Mid(s, i, 1)
        End If
    Next i
    tet = str
End Function

这就可以使用自定义函数了，=tet(A1)，就会得到结果。