从文字中提取数字

sea_ahf

=MID(A2,FIND("部",A2)+1,IF(CODE(MID(A2,FIND("部",A2)+5,1))<=122,5,4))
如果"部"后面第5个是数字或字母，就取5位，否则取4位。但如果有6位编码就失效了。

excelvlookup

用vba无论多少字一点不错
Sub aa()
rw = Sheet1.Cells(Rows.Count, 1).End(3).Row
ar = Sheet1.Range("a2:a" & rw)
a = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To UBound(ar)
    t = "": z = 0: q = 0
    For j = Len(ar(i, 1)) To 1 Step -1
        b = Mid(ar(i, 1), j, 1)
        c = InStr(a, b)
        If c <> 0 Then
            z = j
            Exit For
        End If
    Next
    For k = z - 1 To 1 Step -1
        b = Mid(ar(i, 1), k, 1)
        c = InStr(a, b)
        If c = 0 Then
            q = k + 1
            Exit For
        End If
    Next
    If z > 0 And q > 0 Then ar(i, 1) = Mid(ar(i, 1), q, z - q + 1) Else ar(i, 1) = ""
Next
Sheet1.Range("c2").Resize(UBound(ar), 1) = ar
End Sub

吕雄瑞

=LEFT(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2)-2),2*LEN(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2)-2))-LENB(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2)-2)))

吕雄瑞

LEFT(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2)-2),2*LEN(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2)-2))-LENB(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2)-2)))

ggmmlol

吕雄瑞 发表于 2018-8-29 16:40
LEFT(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2)-2),2*LEN(MID($A2,FIND("部",$A2)+1,2*LEN(A2)-LENB(A2 ...

你这公式，看着好累人。

不如用一个小工具，查找、替换一下就解决了：

吕雄瑞

ggmmlol 发表于 2018-8-29 16:56
你这公式，看着好累人。

不如用一个小工具，查找、替换一下就解决了：

\d+月|\W+  这是什么意思呀

zhang6029

=正则表达式(A2,"\d+\w+")
按Alt+F11进入Excel的VBE环境，依次选择“工具/引用”菜单，选择“Microsoft VBScript Regular Express”
Option Explicit

Function 正则表达式(rng As Range, exp) As String
    Dim Reg As New RegExp
    Dim ms As MatchCollection
    Dim m As Match

    With Reg
    .Global = True
    .Pattern = exp
    End With
    Set ms = Reg.Execute(rng)
        For Each m In ms
            正则表达式 = m.Value
        Next
End Function

ggmmlol

吕雄瑞 发表于 2018-8-29 17:25
\d+月|\W+  这是什么意思呀

这是 正则表达式 的表示方法。其中：
\d：代表任意1个数字字符，是[0-9]的简略写法；
\w：代表任意1个 数字、英文字母 或 下划线，即[0-9a-zA-Z_]的简略写法

\D和\W分别是\d和\w的反集，即
\D：代表任意1个非数字字符，是[^0-9]的简略写法
\W: 代表任意1个 非数字、英文字母 或 下划线的字符，是[^0-9a-zA-Z_]的简略写法。本例子中，因为符合这个条件的字符都是汉字，即相当于汉字 [一-龥]

+：对前面出现的内容做次数上的限定：1次或以上，是{1,}的简略写法。
|：是正则表达式中表示 “或”的逻辑运算符。

本例子中，综合解释为：
把 xx月 或 所有汉字， 都 替换为 (空)。