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 As...
|