「ごじら」をバラバラに(2)

(●`ε´●)：え～と・・・

　　　　　　A1に「ごじら」がいるとすると・・・

　　　　　　B１に=Mid($A1,Col(A1),1)と入力して右方向にコピペ!!

【´･ω･`】：さすがべべちゃん！！

　　　　　　なかなかだね。さすがだよ。

(●`ε´●)：おい、くまぷー、褒めてくれるのはいいけど

　　　　　　下の「カテゴリー」を見ると「文字列操作」の他に

　　　　　　「３行マクロ」にもなっているぞ！！

【´･ω･`】：う～ん、気がついてしまったか・・・。

　　　　　　今回のテーマはマクロでやるよりも

　　　　　　関数でやったほうが美しいので

　　　　　　知らんぷりしていようと思っていたんだが・・・

(●`ε´●)：そうはいかないな。

【´･ω･`】：では・・・

　　　　　For %i = 1 To Len(Cells(1,1))
　　　　　　　　Cells(1, %i +1) =Mid(Cells(1,1), %i, 1)
　　　　　Next

　　　　　これでどうだ？３行だけど・・・。