1、点击【开发工具】、【Visual Basic】调出VBE编辑器。（或者使用【Alt+F11】快捷键调出VBE编辑器）
2、在VBE编辑器的菜单栏上面点击【插入】、【模块】。
3、在模块代码框里边输入以下VBA程序代码，检查无误后按下【F5】键运行程序。Sub 亭盍誓叭JieQuzifu()Dim i1, i2, i3, str1, str2On Error Resume Next '忽略运行过程中可能出现的错误Application.ScreenUpdating = False '关闭屏幕显示更新，提高运行速度Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表Sheet2For 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 IfNextApplication.ScreenUpdating = True '启用屏幕更新End Sub
4、回到Excel工作表界面，将会看到程序的执行结果。
5、程序思路解读：（1）在Excel函数中，LEN和LENB可以判断出字符是否为汉字（双字节犬匮渝扮），但在VBA程序里边，LE绿覆冗猩N和LENB就无法进行判断。（2）使用Asc函数获取一个字符的编号，如果是英文字符、数字之类的（ANSI 字符集），其数值会在0~255之间，除此之外就是其他字符，由此可以大致判断成汉字，再根据其所在的位置截取相应的字符。
