...6埃 7挨 8癌 9矮 10艾 11爱 12碍 13安 14氨

发布网友 发布时间：2024-10-23 23:11

我来回答

共3个回答

热心网友 时间：2024-10-27 10:48

WORD里面不好去除，假设你的这一行在EXCEL的一个单元格 采用以下方式 附上操作图。

不过这么复杂的问题只给5分。。。哎。 还是希望能帮到你！ 

打开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")

热心网友 时间：2024-10-27 10:49

可以利用查找替换的方法,查找框中输入^#(这个特殊符号可以在查找替换的对话框中的特殊字符中插入),替换框什么都不用直接全部替换即可.

热心网友 时间：2024-10-27 10:49

如果在office里面就用 ctrl+f 替换 输入1 全部替换