请问EXCEL如何去掉一个单元格里的英文和数字,只保留文字呢?

2022-07-26 社会 711阅读

我已经把所有的演示步骤录下来了,请查看下面动画:

http://hiphotos.baidu.com/dhxmr1110/pic/item/35a0375a59b9e3b3800a183a.jpg

宏最方便了。

打开excel,alt+F11,右侧你的文件VBAProject(***.xls),右击“插入--模块--双击模块,把下面代码粘贴进去,保存退出。重新打开excel,启用宏,就可以用了,具体A2=取值(取值(A1,"-zm"),"-sz")就可以得到了。

    Function 取值(rng, types As String) As String

    Dim obj As Object

    Set obj = CreateObject("VBSCRIPT.REGEXP")

    With obj

        .Global = True

        If types = "-hz" Then

            .Pattern = "[一-﨩]"

        ElseIf types = "-zm" Then

            .Pattern = "[a-zA-Z]"

        ElseIf types = "-sz" Then

            .Pattern = "\d"

        ElseIf types = "+hz" Then

            .Pattern = "^[一-﨩]"

        ElseIf types = "+zm" Then

            .Pattern = "[^a-zA-Z]"

        ElseIf types = "+sz" Then

            .Pattern = "[^0-9]"

        End If

        取值 = .Replace(rng, "")

    End With

End Function

'使用说明:

'去汉字:=取值(A2,"-hz")

'取汉字:=取值(A2,"+hz")

'去字母:=取值(A2,"-zm")

'取字母:=取值(A2,"+zm")

'去数字:=取值(A2,"-sz")

'取数字:=取值(A2,"+sz")

声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com