怎样去掉excel表格中的英文、标点符号、数字等,只留下汉字?紧急!

CX2543(刘成)85

上述单元格中,只提取中文汉字? 谢谢!!!!

选中这一列,点“数据”--分列--选分隔符号--选其他---输入“(”,完成分列后,再做一次按“)”分列,两次做完后,英文一列,中文一列,英文一列。再删除不需要的列。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-11-26
Sub aa()
Dim x, y, lChar, i, bb(), p, j, m
x = ActiveCell.Row
y = ActiveCell.Column
p = Len(Cells(x, y).Value)
ReDim bb(1 To p)
For i = 1 To p
bb(i) = Mid(Cells(x, y).Value, i, 1)
Next

For j = 1 To p
lChar = 65536 + Val(Asc(bb(j)))
If lChar >= 45217 And lChar <= 55289 Then
m = m + bb(j)
End If
Next
Cells(x, y).Value = m

选择此单元格,按alt+f8创建一个宏,把里面的东西全删了,复制代码进去,关闭后,回到excel再按alt+f8 点aa执行,试试吧本回答被提问者采纳
第2个回答  2010-11-26
编辑——替换,查找替换,在“查找内容”里输入 ^$(就是在高级——特殊字符里选择“任意字母”) ,“替换为”里面什么都不输,全部替换。本回答被网友采纳
第3个回答  2010-11-26
日前看来没有特别的办法,如果格式固定,可以尝试用这个公式=if(len(a1)=12,MID(A1,8,2),mid(a1,8,3))
此处以A1单元格为例.
第4个回答  2010-11-26
没办法,只能逐个删除掉了
相似回答