将Excel同一单元格内的数字各个位数累加直到个位数

kllyex

各位老师，如何将Excel同一单元格内的数字各个位数累加直到个位数，比如：单元格A1=1234，1+2+3+4=10，1+0=1，最终结果是 1. 有什么公式可以达到这个目的？谢谢。

ws278106483

可以分开写，一个公司，建议用vba看下。