主题：向大师请教一个提取尾号的办法

egd文件下载
如表,我想把各数据的尾号提取出来,并按数据的顺序排列,请各位帮助.谢谢.

这样写有什么问题.能不能再进一步简化?
Right([数据_1],1) + Right([数据_2],1) + Right([数据_3],1) + Right([数据_4],1) + Right([数据_5],1) + Right([数据_6],1)

Eval("Right([数据_"+Substitute("1|2|3|4|5|6","|","]) + Right([数据_")+"])")

谢谢。