这个可以使用宏来解决,进入宏编辑里面插入以下代码:Public Function test(n As String) As LongDim b As StringDim c As Longb = ""c = 0For y = 1 To Len(n)If Asc(Mid(n, y, 1)) >= 48 And Asc(Mid(n, y, 1)) <= 57 Thenb = b & Mid(n, y, 1)End IfNexttest = bEnd Function然后把这个关掉后,在你需要得到结果的单元格输入公式 =test(a1)我这里是以清除A1单元格的中文字符为例