怎样去掉excel表格中的英文、标点符号、数字等,只留下汉字?紧急!CX2543(刘成)85上述单元格中,只提取中文汉字?

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/04 08:02:52
怎样去掉excel表格中的英文、标点符号、数字等,只留下汉字?紧急!CX2543(刘成)85上述单元格中,只提取中文汉字?

怎样去掉excel表格中的英文、标点符号、数字等,只留下汉字?紧急!CX2543(刘成)85上述单元格中,只提取中文汉字?
怎样去掉excel表格中的英文、标点符号、数字等,只留下汉字?紧急!
CX2543(刘成)85
上述单元格中,只提取中文汉字?

怎样去掉excel表格中的英文、标点符号、数字等,只留下汉字?紧急!CX2543(刘成)85上述单元格中,只提取中文汉字?
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