小编点评

**内容排版：** **方法一：右键 Sheet1 并选择“查看代码”** ```vbscript Right Click Sheet1 Select "View Code" ``` **方法二：在开发者工具中选择“Visual Basic”** 1. 启动 Excel 并打开你的工作簿。 2. 在 Excel 的“视图”选项卡上，选择“开发者工具”。 3. 在“代码”区域中，点击“+”按钮。 4. 在弹出的代码编辑器中，将代码粘贴进来。 **代码内容：** ```vbscript Sub chinese(rng As String) Dim regx As ObjectDim strs, str, iSet 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 Sub ```

正文

启用开发工具

方式一：【右键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