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 关闭VBA窗口后,在工作表里面就可以用delnumber函数了 例如“我1是3张2三3”在A1单元格,B1输入=delnumber(A1)