在Excel中，如何在一串不规则字符中提取出其中数字呢？ 5
展开全部
假设不规则字符在A1，你在其它单元格写入=MIDB(a1,SEARCHB("?",a1),2*LEN(a1)-LENB(a1))
但是这个公式会把英文和数字一起提取出来
所以我建议你用宏，alt+f11→插入→模块
然后粘贴进下面的宏（这个宏不是我写的我忘记在哪儿找的了）：
Function MyGet(Srg As String, Optional n As Integer = False, Optional start_num As Integer = 1)
'从单元格中提取数字/中文/英文=Myget（value,0数字1中文2英文，从第几个开始）
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean
For i = start_num To Len(Srg)
s = Mid(Srg, i, 1)
If n = 1 Then
Bol = Asc(s) < 0
ElseIf n = 2 Then
Bol = s Like "[a-z,A-Z]"
ElseIf n = 0 Then
Bol = s Like "#"
End If
If Bol Then MyString = MyString & s
Next
MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))
End Function
然后保存，返回你的excel表格界面
假设你的不规则字符在A2，任一其它单元格输入=myget（A2)就可以取出数字了
但是这个公式会把英文和数字一起提取出来
所以我建议你用宏，alt+f11→插入→模块
然后粘贴进下面的宏（这个宏不是我写的我忘记在哪儿找的了）：
Function MyGet(Srg As String, Optional n As Integer = False, Optional start_num As Integer = 1)
'从单元格中提取数字/中文/英文=Myget（value,0数字1中文2英文，从第几个开始）
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean
For i = start_num To Len(Srg)
s = Mid(Srg, i, 1)
If n = 1 Then
Bol = Asc(s) < 0
ElseIf n = 2 Then
Bol = s Like "[a-z,A-Z]"
ElseIf n = 0 Then
Bol = s Like "#"
End If
If Bol Then MyString = MyString & s
Next
MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))
End Function
然后保存，返回你的excel表格界面
假设你的不规则字符在A2，任一其它单元格输入=myget（A2)就可以取出数字了
更多追问追答
追问
WPS好像没办法用
追答
那第一排的那个公式呢？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
什么也没有，你想提取什么啊！！！！！！！！！
给你一个数组公式：
=LOOKUP(9^9,MID(A1,MATCH(1,MID(A1,ROW(1:9),1)^0,0),ROW(1:9))*1)
数组公式，输入或者粘贴公式必须同时按CTRL+SHIFT+ENTER这3个键结束！！！
应该可以得到A1单元格里的数字了……
给你一个数组公式：
=LOOKUP(9^9,MID(A1,MATCH(1,MID(A1,ROW(1:9),1)^0,0),ROW(1:9))*1)
数组公式，输入或者粘贴公式必须同时按CTRL+SHIFT+ENTER这3个键结束！！！
应该可以得到A1单元格里的数字了……
更多追问追答
追问
就是类似于
中国建设银行，山西省，吕梁市，山西省吕梁市离牌区中国建设银行分行，61578724843794，张三
这个单元格
然后按照你说的那个公式就好了吗，用不用改动什么呢？
追答
把公式中的ROW（1：9）改为：ROW($1:$29)，应该可以提取出类似的那个账号了……
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
