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)
温馨提示:答案为网友推荐,仅供参考