あるセルに入れた数字を別のセルに一桁ずつ表示する方法は？（Ｅｘｃｅｌ2000）

質問

皆さまのお知恵を貸していただきたく、質問いたします。
使用ソフトはExcel2000です。
以下のようなことを自動的にできるような方法（関数等を使って）はありますでしょうか？？

《例》

(1)Ａ１に「153962」と数字を入れると・・・

(2)Ａ４に「1」、Ｂ４に「5」、Ｃ４に「3」、Ｄ４に「9」
　Ｅ４に「6」、Ｆ４に「2」
　と、自動的に表示されるようにする。　

なにか良い方法がありましたら、教えて下さい。
よろしくお願いいたします。

回答No.12

april21 · ベストアンサー

■補足
参照させるのが不便なら↓のようにしてください。

C列からJ列のセルを使いたいのであればCOLUMN()の所をCOLUMN()-2とします。
=IF(MID(REPT(" ",8-LEN($A$1))&$A$1,COLUMN()-2,1)=" ","",VALUE(MID(REPT(" ",8-LEN($A$1))&$A$1,COLUMN()-2,1)))

Ｅ列からならCOLUMN()-4　（Ｅは５列目だから-4で1にしてる）

お礼

Aprilさん！お仕事でお忙しい、とのことでしたのに、何度も書き込んで頂いて本当に本当にありがとうございます。No.10～12のお礼を言わせてください。
早速書き込んでいただいた内容をコピーしてセルに貼り付け、実践してみました。ちゃんとできてただいま感激しています～w(゜o゜)w！！

使う側のことを考えてくださって、いろいろなパターンを提示していただき、本当にありがたく思っています。m(_ _)m
しっかりと仕事に生かしたいと思います。言葉尽くせませんが、本当に有り難うございました！！

回答No.11

april21

■前回のだと分かり図らかったと思うので補足しておきます。
ＡからＪ列（10桁の場合）に↓の数式をコピーして貼り付けてください。（COLUMN()を使ってるので）

=IF(MID(REPT(" ",10-LEN($A$1))&$A$1,COLUMN(),1)=" ","",VALUE(MID(REPT(" ",10-LEN($A$1))&$A$1,COLUMN(),1)))

10の部分が２ヶ所あります。
8桁にしたければ10を8に変更して数式を入力するセルもＡ～Ｈまで。

Ａ～Ｈの列ではなく別のセルに表示させたい場合はこれらのセルを参照させれば
良いと思います。（入力が楽ですから）

他の方法だとＶＢＡを使うのも良いと思いますが・・・。

回答No.10

april21

＞例えば銀行で書かされる伝票の金額の覧には右から「１」「十」「百」「千」・・・という感じでマス目が切ってありますよね？あんな感じで、数値を取り出したかったのです。

=IF(MID(REPT(" ",10-LEN($A$1))&$A$1,COLUMN(),1)=" ","",VALUE(MID(REPT(" ",10-LEN($A$1))&$A$1,COLUMN(),1)))

↑は１０桁の場合10のところ変えてください。
前回説明したので省きます。

仕事中で忙しいので分かり図らければ補足を要求してください。
夜でないと答えられないけど。^_^;

回答No.9

noname#598

ごめんなさい、Ｎｏ．８は、
前回と同じく、Ｂ１のセルに入れるものとします。
説明不足だったので補足します。

最大桁が6桁で、かつＡ４のセルに桁の先頭をおきたいのであれば、
7-COLUMN()
ではなくて、
6-COLUMN()
です。先頭列を左に動かすと1減り、右に動かすと１増えます。

お礼

No.８およびNo.９のお礼を。。。
何度もご回答いただき、本当にありがとうございます。お陰様で、不必要な０は表示されなくなり、「１００」などの数字はきちんと表示できるようになりました。
これはちょっとした感動です！友達にも教えてあげようと思っています（笑）。

最初の質問の仕方がイマイチだったために、いろいろお手数をおかけしてしまいましたが、こんな私にあきれずに丁寧に教えていただいて、ありがとうございました！言葉尽くせませんが、本当に感謝していますm(._.)m。

回答No.8

noname#598

言われてみれば確かに、１００だと下が切れてしまいますね（笑）

=IF($A1>10^(7-COLUMN()),MOD(INT($A1/10^(7-COLUMN())),10),"")

これならどうでしょう？やってみてください。
確認済みです。きっとこれが正解だと思います。

ちなみに最大桁が８桁の場合は7-COLUMN()
となっているところを9-COLUMN()　
に直してやってみてください（最大桁に１を加える）

自動車のナンバーが３桁になったときや、
携帯電話が１１桁になったときに社会問題（？）になったのを
思い出しました。最大桁を増やすのって、大変なんですね（笑）

回答No.7

comv

成る程・・・やっとご質問の最終形らしきものが解って来ました。
（１）数値を１セル１桁で取り出す。
（２）右寄せ（桁合わせ）
（３）無い桁は空白
これでよろしいでしょうか？
数値の分解数式は、今までの皆さんのどれを使っても可能
なので、チョット違う観点（表示）に拘って

例）見易くするために入力欄（Ａ列）と出力欄を同行にしてます

　　A　　B　　 C　　 D　　 E　・・　 K　　 L
1 入力欄　　=10^9 =10^8 =10^7 ・・=10^1 =10^0　←表示形式　[DBNum3]G/標準
2（数値）　 =IF(LEN($A2)>LOG10(C$1),MID($A2,LEN($A2)-LOG10(C$1),1),"")
3（数値）　（上記数式を複写）

・今回は１０億までの桁です
・桁の記入例は、解り易くするため乗数にしましたが、当然　1 10 100 1000　等
　（Ｌ列～）を入力してもＯＫです。
・表示形式　[DBNum3]G/標準　書式設定 → 表示 → ユーザー定義 で記入して下さい。
　[DBNum2]G/標準　や　[DBNum1]G/標準　もお好みに応じて変えてみて下さい。
・数式はセルＣ２に入力後、Ｌ列まで複写　及び　必要入力行数分　下行へ複写

こんな感じでしょうか？

お礼

再度お答えいただいて、本当にありがとうございます(^-^)。
表示形式の　[DBNum3]G/標準　というのは初めて知りました（不勉強なもので・・・（汗）。）
漢数字になったり、壱とか弐とかって表示できるんですね～～！素直にびっくりです（←あきれないで下さいね～～）。すごいすごい！！
なんだか、まったく別の角度から切り込んでいただいたりして、楽しく拝見いたしました。ありがとうございました！

回答No.6

yuhki_f

Ａ１に入力されている「153962」は、つぎのようにして一桁ずつの数値に変換できます。
MOD（153962,10）＝2
Int(mod(153962,100)/10)=6
Int(mod(153962,1000)/100)=9
Int(mod(153962,10000)/1000)=3
Int(mod(153962,100000)/10000)=5
Int(mod(153962,1000000)/1000000)=1

一般化するために、一番目の式を次のように書き換えます。
Int(mod(A1,10)/1)

つぎに10,100,1000などを一般式で得る方法を考えます。
10^0=1
10^1=10
10^2=100
ですからcell関数で列数を取り出すと、べき乗の計算がうまく作れます。これを組み合わせてA4に次のように入力して、右方向にコピーすると各桁の数値を
取り出すことができます。
=INT(MOD($A$1,10^(CELL("col",A1)))/10^(CELL("col",A1)-1))

こうすると、次のように数値が表示されます。
A4　　2
B4　　6
C4　　9
D4　　3
E4　　5
F4　　1

pinoko19さんの質問とは逆のならびになってしまいますが、何とか一桁ずつ取り出すことはできます。

お礼

ご回答、ありがとうございます。
逆の並びで取り出す方法もあるのですね～～！！！ビックリです。
べき乗を使うのですね。数学が苦手だったので（汗）、あんまり難しい式になってくるとなんだかドキドキしてしまいますが（笑）。
勉強になりました。本当にありがとうございました！！

回答No.5

noname#598

ほとんど回答済みのようですが、
下の例はあくまで、Ａ１とＡ４（つまり入力側と出力側の左端の列は同じ）の場合限定です。これだと、複数の数値を同時に扱いたいときには不便だと思うので、
さらに補足させてください。

本当は真横のＢ１セルからはじめたいという場合は
=MID($A1,COLUMN()-1,1)
いやいや、Ｃ１セルからはじめたいんだってときは、
=MID($A1,COLUMN()-2,1)　←離れた分引く数が大きくなることに注意
です。数値に直したい場合は更にvalue()で括ることは先人の方々のとおりです。
ただ、この方法では、数字は全て左端から始まるので、
一の位を揃えたい（右揃え）というときには適しているとはいえません。
その場合の対処法も書いておきます。

これは複数の数値の最大桁が６桁の場合、ということでよろしくお願いします。
値の結果は数値です。（valueを使う必要はない）
Ｂ１　=mod(int($a1/10^(7-column())),10) あとはこれを横にコピーすればＯＫです。（確認済）
６桁なので、「7-」があります。
このままの設定でＡ１に１２３４（４桁）を入力すると順に００１２３４となりますが、０表示をオフにしておけば問題ないでしょう。

お礼

ご回答、ありがとうございます。
なんとかできないものか、と思っていたことに、色々な方法があることを知ることができ、嬉しい限りです(^-^)。
masuo_kunさんの回答は、私の求めている内容に一番近いような気がします。

実は、私の質問の仕方が悪くて、以下のようなことが抜けていました。。。
(1)例としてあげた数値は６桁でしたが、実際には桁数が増えることも減ることもあります。
(2)例えば銀行で書かされる伝票の金額の覧には右から「１」「十」「百」「千」・・・という感じでマス目が切ってありますよね？あんな感じで、数値を取り出したかったのです。
（数値を一桁ずつセルに入れていくのは煩雑なので、一つのセルにある金額を入れるとそれを一桁ずつ別のセルに反映できるようにし、業務を効率化したいと思ったのです。）
というわけで、masuo_kunさんのおっしゃるように右揃えにしたかったのです。
私が質問に含めなかった内容にまで掘り下げて回答してくださったこと、感謝しています。早速やってみましたところ、うまくいきました！！

そこで、ここでさらに質問をするのはずうずうしいかも・・・と思いつつ、質問させてください。（スミマセン・・・。）
「このままの設定でＡ１に１２３４（４桁）を入力すると順に００１２３４となりますが、０表示をオフにしておけば問題ないでしょう。」
と、あるのですが例えば「１００」という数値を入れたい場合はどうしたらいいのでしょうか？
（ためしにやってみたのですが、０表示をオフにしてしまったら、１の位と十の位の０も表示されなくなってしまいます。）
わがまま言ってしまって、申し訳ございません。もし方法として無理ならかまわないのですが、なにか手があれば教えてください。よろしくお願いいたします。

回答No.4

comv

こんにちは

セルＡ４に
　=MID($A1,COLUMN(),1)
あとは最大必要桁数分だけ横（Ｂ４～）に複写

既に皆さんが提言済みですが
　文字型でよいのであれば　このまま
　数値型で扱たいのであれば
　=VALUE(MID($A1,COLUMN(),1))
　となりますね。

お礼

ご回答、ありがとうございます。
この式はAprilさんの方法に近いのでしょうか。A1を絶対参照ではなく列のみ固定して、横に複写できるようにしていただいているのですね。ナルホド～。
確かに、必要な桁数分、コピーできるのは非常に便利です！！
ありがとうございました。

回答No.3

april21

補足
VALUE（MID(元のセル，何番目から，何個））
「何番目から」は元となる数字の左から何番目という事です。
「何個」は例だと1ですね。
数値に直さなくてもいい場合はVALUE（　）は不要です。

お礼

No.２、および、こちらの補足のご回答、ありがとうございます。
No.１の方に教えていただいたのとはまた違う方法なのですね。きっと、エクセルに詳しい方にとっては、このようなこと一つ取っても、色々なやり方があるのでしょうね。
早速Aprilさんの方法も試してみます。
本当に、ありがとうございました！

回答No.2

april21

下記の数式をＡ4～はＦ4に
=VALUE(MID($A$1,COLUMN(),1))

VALUE（MID(元のセル，何番目から，何個））

1～6を入力が楽なのでCOLUMN()で列数を求めてますが
（Ａ4なら1、Ｂ4なら2・・・が求められるので。）
COLUMN()の所を1～6というように数字で指定して構いません。
（表示させたいセルの列が連続してないとCOLUMN()使っても仕方ないので(^^ゞ）