有字母和汉子,怎么把汉字去掉呢

发布网友发布时间：2023-01-01 04:43

共1个回答

热心网友时间：2023-10-25 04:12

Public Function tex(text As String)
tex = ""
For i = 1 To Len(text)
x = Mid(text, i, 1)
If LenB(StrConv(x, vbFromUnicode)) = 1 Then
tex = tex & x
End If
Next
End Function
在模块中插入上面的自定义函数，
然后在表格中写公式＝tex(a1)就得到了去除汉字的字母和数字了

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com