提取excel单元格中汉字,简单模块

Alt + F11 键，进入VBA编辑器。
右击左边的“Microsoft Excel 对象”，在弹出的菜单中点击“插入”－“模块”。
双击模块，在右边把下面代码复制进去。保存。
就可以使用这个自定义函数 HZ 了。 格式 =HZ(A2)

Public Function HZ(rang As String) As String
Dim l As Integer
Dim Str As String
l = Len(rang)
If l < 1 Then
HZ = ""
Exit Function
End If
On Error Resume Next
For i = 1 To l
If Asc(Mid$(rang, i, 1)) < 0 Or Asc(Mid$(rang, i, 1)) > 255 Then
Str = Str & Mid$(rang, i, 1)
End If
Next
HZ = Str
End Function