↑有限会社 パース さんのページへリンク ありがとうございます。
B1セルに =TRIM(MID(TEXT(Sheet1!$A$1,REPT("?",8)),COLUMN(A1),1)) と入力。あとはI1セルまでオートフィル。
入力された数字を一桁ずつ別のセルに表示する