這個可以使用宏來解決,進入宏編輯裏麵插入以下代碼: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單元格的中文字符為例