如何提起对应数值

glhfgtd

提取字符串中数字、中文、英文字符的自定义函数

Function MyGet(Srg As String, Optional n As Integer = False)
    Dim i As Integer
    Dim s, MyString As String
    Dim Bol As Boolean
    For i = 1 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

(0-数字，1-汉字，2-英文）

lisachen

=SUBSTITUTE(A1,MAX(--TEXT(LEFT(A1,ROW(1:99)),"0;0;0;!0")),)