Function test(rng)
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
test = "有中文"
Else
test = ""
End If
End With
End Function
试试吧~~
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/54fbb2fb43166d224223098d442309f79052d256?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
本回答被提问者采纳