零售创新，创新那些事儿，SPSS，VBA

分离文本与数字 

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