http://img1.kaixin001.com.cn/i3/repaste/zt1_1.gif

    打开excel，alt+F11,右侧你的文件VBAProject（***.xls），右击“插入--模块--双击模块，把下面代码粘贴进去，保存退出。重新打开excel，启用宏，就可以用了。具体，在A2单元格中输入    =取值(A1,"-zm)     就可以得到去掉字母的内容了。2007的也类似。

    Function 取值(rng, types As String) As String
    Dim obj As Object
    Set obj = CreateObject("VB script .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")