如何再EXCEL中使用公式达到去除另一个单元格内除去数字以外的其他字符

发布网友发布时间：2022-04-23 07:07

共1个回答

热心网友时间：2023-10-06 06:15

用自定义函数吧, 按下Alt +F11键,插入模块,然后在代码窗口中输入以下代码:
Function num(x As String)
Dim i As Integer
Dim c As String
For i = 1 To Len(x)
c = Mid(x, i, 1)
If Asc(c) > 47 And Asc(c) < 58 Then
num = num & c
End If
Next i
End Function
关闭VBA窗口在工作表中假设你原数据在A1,就可输入公式=num(A1)得到你要的结果了.

热心网友时间：2023-10-06 06:15

用自定义函数吧, 按下Alt +F11键,插入模块,然后在代码窗口中输入以下代码:
Function num(x As String)
Dim i As Integer
Dim c As String
For i = 1 To Len(x)
c = Mid(x, i, 1)
If Asc(c) > 47 And Asc(c) < 58 Then
num = num & c
End If
Next i
End Function
关闭VBA窗口在工作表中假设你原数据在A1,就可输入公式=num(A1)得到你要的结果了.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com