分离文本与数字
Function FLA(XX)
Dim I As Integer
FLA = XX
For I = 0 To Len(FLA) '设I等于0至FLA的字符数
FLA = Replace(FLA, I, "") '将数字I换成""(空)
Next I
End Function
Function FLB(MR As Range)
Dim I As Integer
CC = ""
For I = 1 To Len(MR)
If Val(Mid(MR, I, 1)) > 0 Then
CC = CC & Mid(MR, I, 1)
End If
Next I
FLB = CC
End Function
评论