>>562
一部間違えたわ

if(iserror(value(right(a1,4)))=false,rghit(a1),if〜

で、数値の桁数ぶん積み重ね