如何把EXECL中小写数字转换成中文大写？且要求分位。

如图例，数字金额所在位置为P2。
万位公式：=IF(INT($P$2/10000)=0,"×",MID("壹贰叁肆伍陆柒捌玖",INT($P$2/10000),1))

千位：=IF((INT($P$2/1000)-INT($P$2/10000)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖",(INT($P$2/1000)-INT($P$2/10000)*10),1))

百位：=IF((INT($P$2/100)-INT($P$2/1000)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖",(INT($P$2/100)-INT($P$2/1000)*10),1))

十位：=IF((INT($P$2/10)-INT($P$2/100)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖",(INT($P$2/10)-INT($P$2/100)*10),1))

元位=IF((INT($P$2/1)-INT($P$2/10)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖",(INT($P$2/1)-INT($P$2/10)*10),1))

角位：=IF((INT($P$2/0.1)-INT($P$2/100)*1)=0,"×",MID("壹贰叁肆伍陆柒捌玖",(INT($P$2/0.1)-INT($P$2/100)*1),1))

分位：=IF((INT($P$2/0.01)-INT($P$2/100)*0.1)=0,"×",MID("壹贰叁肆伍陆柒捌玖",(INT($P$2/0.01)-INT($P$2/100)*0.1),1))

只说思路吧
用if函数和取商函数还有case来做
总数 除以 10000 的商 取出万位。然后再用case来输出商的大写
以此类推