第2个回答 2012-04-03
按ALT+F11,插入-模块,复制下列语句
Function SplitNumEng(str As String, sty As Byte)
Dim StrA As String
Dim StrB As String
Dim StrC As String
Dim i As Integer
Dim SigS As String
For i = 1 To Len(str)
SigS = Mid(str, i, 1)
If SigS Like "[a-zA-Z]" Then
StrA = StrA & SigS
ElseIf SigS Like "#" Then
StrB = StrB & SigS
Else
StrC = StrC & SigS
End If
Next i
Select Case sty
Case 1
SplitNumEng = StrA
Case 2
SplitNumEng = StrB
Case Else
SplitNumEng = StrC
End Select
End Function
你的数据在r2
S2输入 =SplitNumEng(R2,2)
或直接用公式
=RIGHT(Q2,LEN(LOOKUP(9E+307,--RIGHT(Q2,ROW(1:50)))))
同时按CTRL SHIFT 回车键
或
=MID(Q2,MIN(IF(ISNUMBER(FIND(ROW($1:$10)-1,Q2)),FIND(ROW($1:$10)-1,Q2))),LEN(Q2))
同时按CTRL SHIFT 回车键 下拉公式本回答被网友采纳
第3个回答 2012-04-03
=MAX(IF(ISERR(--RIGHT(A1,ROW($1:$10))),0,--RIGHT(A1,ROW($1:$10)))) ctrl+shift+enter