启用开发工具
方式一：【右键Sheet1 】->【查看代码】
方式二：【开发者工具】->【Visual Basic】
Function chinese(rng As String)
Dim regx As Object
Dim strs, str, i
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "[\u4e00-\u9fa5]"
Set strs = .Execute(rng)
For Each i In strs
str = str & i
Next
If Len(str) > 0 Then
chinese = str
Else
chinese = ""
End If
End With
End Function
