Excel の宛名印刷で、３桁と４桁のセルにそれぞれ入っている郵便番号を、１桁ずつに分解していく方法を考えてみる。
１．住所録というブックに、Adrtable というシートを作っておく。名前は何でもよい。
２．郵便番号の３桁の数字をＣ列に、４桁の数字をＤ列に入れる。
３．同じシートの中に、分解した番号を入れておく７列、たとえばＨＩＪＫＬＭＮを割り当てる。
４．郵便番号 974-8231 が、セル C1 と、セル D1 に入っているとする。
５．セルＨ1 に、セル C1 の３桁の左端の数字 9 を入れる数式を書き込む。
=INT(MOD(SIGN($C1)*$C1/100,10))
６．セルＩ1 に、３桁の左端から２番めの数字 7 を入れる数式を書き込む。
=INT(MOD(SIGN($C1)*$C1/10,10))
７．セルＪ1 に、３桁の右端の数字 4 を入れる数式を書き込む。
=INT(MOD(SIGN($C1)*$C1/1,10))
８．セルＫ1 に、セル D1 の４桁の左端の数字 8 を入れる数式を書き込む。
=INT(MOD(SIGN($D1)*$D1/1000,100))
９．セルＬ1 に、４桁の左端から２番めの数字 2 を入れる数式を書き込む。
=INT(MOD(SIGN($D1)*$D1/100,10))
10．セルＭ1 に、４桁の左端から３番めの数字 3 を入れる数式を書き込む。
=INT(MOD(SIGN($D1)*$D1/10,10))
11．セルＮ1 に、４桁の右端の数字 1 を入れる数式を書き込む。
=INT(MOD(SIGN($D1)*$D1/1,10))
これで結果はオーライなのだが、一度限りの操作と違い、繰り返し使うマクロでは、どこかで回りくどく余分なことをさせておくのは感心しない。
まだ追究の余地はありそうだ。