提取文本中的数字

LFH2578

=regexp(A2，“\d+")

LFH2578

新版wps的regexp函数，如果有小数点的公斤数=REGEXP(A2,"[0-9.]+")

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, i&, j&, strJoin$, strChar$
   
    Application.ScreenUpdating = False
   
    With [A1].CurrentRegion
        ar = .Value
        For i = 2 To UBound(ar)
            strJoin = ""
            For j = 1 To Len(ar(i, 1))
                strChar = Mid(ar(i, 1), j, 1)
                If IsNumeric(strChar) Then strJoin = strJoin & strChar
            Next j
            ar(i, 2) = strJoin
        Next i
        .Value = ar
    End With
        
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

..........