得用自定义函数:文字颠倒
Function againstly(t, n, a) As String
Dim First As String, Last As Variant
First = StrReverse(t)
Last = Split(First, a)
againstly = Last(n - 1)
End Function
按Alt+F11(进入VBE编辑器),插入模块,粘贴代码。
如字符串输入到A1,
B1=againstly(A1,1,"")
上述自定义函数为获取由特定字符分隔的字符串中的子字符串的函数,againstly()为从右向左取反字符的函数。
上述函数(x,y,z)的定义为:
x可以为一字符串或引用单元格,
y为要提出的子字符段的序号,
z为分隔子字符串的特殊符号。
参考资料:http://club.excelhome.net/thread-31526-1-1.html