直接用函数【插入模块，粘贴在里面】

Function KeepOnlyChinese(str As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 正则匹配所有非汉字字符（Unicode范围：4E00-9FFF）
    regex.Pattern = "[^\u4E00-\u9FFF]"
    regex.Global = True
    regex.IgnoreCase = False
    
    ' 替换非汉字字符为空
    KeepOnlyChinese = regex.Replace(str, "")
End Function