excel自定义公式提取汉字

Function takech (str As String) As String

    Set regEx = CreateObject("VBScript.RegExp")
    With regEx    '搜索整个字符串
        .Global = True    '匹配非汉字 也可以.Global = 1
        .Pattern = "[^\u4e00-\u9fa5]"     '也可以表达为:[^，！一-龥]. 意思是匹配除了全角逗号,感叹号和所有汉字的其它字符.
        takech = .Replace(str, "")  '将字符串中的非汉字替换为空
    End With

End Function