1.用MID函数：B1=MID(A1,1,LENB(A1)-LEN(A1)+1)C1=MID(A1,LENB(A1)-LEN(A1)+2,LEN(A1))2.用RIGHT和LEFT函数：B1=LEFT(A1,LENB(A1)-LEN(A1)+1)C1=RIGHT(A1,2*LEN(A1)-LENB(A1)-1)3.还可用自定义函数，这个比较复杂。

打开VBA代码窗口，新插入模块把下面的代码复制其中，关闭代码窗口在B1中输入=hz(A1)C1中输入=hm(A1)即可。

Function hz(X)s= 0a = Len(X)For i = 1 To ac = Mid(X, i, 1)If Asc(c) < 48 Thens = s+ 1End IfNext ihz = Mid(X, 1, S - 1)End FunctionFunction hm(X)s = 0a = Len(X)For i = 1 To ac = Mid(X, i, 1)If Asc(c) < 48 Thens =s+ 1End IfNext ihm = Mid(X, S, a - S)End Function。