依旧网站

须要编程
按ALT+F11，插入-模块，复制下列语句

FunctionSplitNumEng(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
EndFunction

D2输入
=SplitNumEng(C2,3)
下拉公式

诘问

模板怎样用咯？复制到哪里能省事辅导一下吗

逃答

按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

D2输入  
      =SplitNumEng(C2,3)  
下拉公式

原回覆被提问者和网友采用