如何在excel中提取单元格中的汉字

excel中提取单元格中的汉字

解决方案

要提取其中的所有汉字，可用下面的自定义函数。方法是：

1. 按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入粘贴下面的代码：

Function 提取汉字(sString As String) As String
Dim regEx As Object
Set regEx = CreateObject(“VBScript.RegExp”)
With regEx
'搜索整个字符串
.Global = True
'匹配非汉字
.Pattern = “[^\u4e00-\u9fa5]”
'将字符串中的非汉字替换为空
提取汉字 = .Replace(sString, “”)
End With
Set regEx = Nothing
End Function

说明：上述代码定义了一个自定义函数“提取汉字”。代码利用RegExp对象使用正则表达式匹配模式，清除字符串中的所有非汉字，得到其中的汉字。

2. 返回Excel工作表界面，在B14单元格中输入公式：

=提取汉字(A14)

即可取得A14单元格字符串中的所有汉字。