Function get_last_not_5(source As Range)
get_last_not_5 = ""
If source.Cells.Count > 1 Then
Exit Function
End If
Dim tmp() As String
tmp = Split(source.Value, ";")
Dim i As Integer
For i = UBound(tmp) To LBound(tmp) Step -1
If Left(tmp(i), 1) <> "5" Then
get_last_not_5 = tmp(i)
Exit Function
End If
Next
End Function
Function fExtractVal(sStr As String) As String
Dim j As Long, sTemp As String
sTemp = Split(";" & sStr, ";5")(0)
j = InStrRev(sTemp, "(") + 1
fExtractVal = Replace(Mid$(sTemp, j), ")", "")
End Function
1-可以通过表格公式提取所需的值:
2- UDF选项:
到单元格: