alt+F11 左邊右鍵插入個模塊 雙擊模塊,右邊空白處把下列代碼拷貝進去 Function delnumber(b As String) As String Dim i As Integer For i = 1 To Len(b) If Asc(Mid(b, i, 1)) <= 57 And Asc(Mid(b, i, 1)) >= 48 Then Else delnumber = delnumber & Mid(b, i, 1) End If Next End Function 關(guān)閉VBA窗口后,在工作表里面就可以用delnumber函數(shù)了 例如“我1是3張2三3”在A1單元格,B1輸入=delnumber(A1)