1、点击【开发工具】、【Visual Basic】调出VBE编辑器。（或者使用【Alt+F11】快捷键调出VBE编辑器）
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块代码框里边输入以下VBA程序代码，检查无误后按下【F5】键运行程序。
Sub JieQuzifu()
Dim i1, i2, i3, str1, str2
On Error Resume Next '忽略运行过程中可能出现的错误
Application.ScreenUpdating = False '关闭屏幕显示更新，提高运行速度
Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表Sheet2
For i1 = 2 To 1000 '从第2行到1000行
If mysheet2.Cells(i1, 1) <> "" Then '如果单元格不是空白，则
i2 = Len(mysheet2.Cells(i1, 1)) '获取单元格字符个数
For i3 = 1 To i2 '预计对每一个字符执行
str1 = Mid(mysheet2.Cells(i1, 1), i3, 1) '截取单元格字符
If Asc(str1) < 0 Or Asc(str1) > 255 Then '如果不是此范围内的字符，则
str2 = Mid(mysheet2.Cells(i1, 1), i3, i2 - i3 + 1) '截取汉字字符
mysheet2.Cells(i1, 2) = str2 '将截取的字符写入同一行的B列单元格
Exit For '退出For循环
End If
Next
End If
Next
Application.ScreenUpdating = True '启用屏幕更新
End Sub
4、回到Excel工作表界面，将会看到程序的执行结果。
5、程序思路解读：
（1）在Excel函数中，LEN和LENB可以判断出字符是否为汉字（双字节），但在VBA程序里边，LEN和LENB就无法进行判断。
（2）使用Asc函数获取一个字符的编号，如果是英文字符、数字之类的（ANSI 字符集），其数值会在0~255之间，除此之外就是其他字符，由此可以大致判断成汉字，再根据其所在的位置截取相应的字符。
