利用正则表达式,可以编写自定义函数来提取汉字。 在Excel界面按Alt+F11,然后插入一个模块,添加如下代码。 Function Hanzi(rng As Range) As String '正则表达式 With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "[^/u4e00-/u9fa5]" Hanzi = .Replace(rng, "") End With End Function