EXCEL セルに一つずつ表示させるには（応用）

質問

QNo.3005182で「EXCEL　セルに一つずつ表示させるには」と質問したものです。
―――――――――――――――――――――――――――――――――――――――――――――――――――――
EXCELについて教えてください。

一つのセルにA1に123456と入力されているとします。
それを一つずつ分解して、B1には1。C1には2。D1には3というような形にしたいのですが。
MID関数を使うと近い形にはなりましたが、A1が12となっている場合に、B1に1、C1に2という形になります。
A1は12で、B1・C1・D1・E1は空白で、F1に1・G1に2と表示させたいのですが、なにかいい方法がありますでしょうか。
―――――――――――――――――――――――――――――――――――――――――――――――――――――

数字入力セルと結果表示させるセルが隣あっていない場合ではどのようにしたら良いでしょうか？
なにか良い方法がありましたら教えて頂けると助かります。

前回の質問と同じような事で申し訳ございません。
お力を貸して頂けると幸いです。
宜しくお願い致します。

回答No.7

maron--5 · ベストアンサー

A　　　　　B　　　C　　　D　　　E　　　F　　　G
1　　123456　　　1　　　2　　　3　　　4　　　5　　　6
2　　　　12　　　　　　　　　　　　　　　　　　　1　　　2

B1=LEFT(RIGHT(" "&$A1,6-COLUMN(A1)+1))
★右と下にコピー

★別に、数字入力セルと結果表示させるセルが隣あっている必要はありません

お礼

＞★別に、数字入力セルと結果表示させるセルが隣あっている必要はありません
今回探していた条件を完璧に満たしています。
ありがとうございます。

回答No.6

mshr1962

数値がG1にあってK1:P1までに表示の場合
K1=TRIM(MID(TEXT($G1,"??????"),COLUMN(A1),1)
でP1までコピーする。
COLUMN(A1)のA1は値でなく列数(1)を取得する為に使っています。
L1ではこれがCOLUMN(B1)となり2を返すとういう按配です。

お礼

＞COLUMN(A1)のA1は値でなく列数(1)を取得する為に使っています。
ありがとうございます。
簡単な関数しかわからないのでA1はセルを意味しているのかとおもいましたが、説明をいれて頂いているのでとてもわかり易かったです。

回答No.5

redowl

６桁以下数値限定で
B１に下式。　これを、G1まで、コピペ
=IF(ISERROR(MID($A1,LEN($A1)-COUNTA(C1:G1),1)),"",MID($A1,LEN($A1)-COUNTA(C1:G1),1)*1)

この式を実行するにあたり、H～L列は未使用が条件。
というのは、セル　右列の数値表示セルをカウントしているので。

６桁の場合、右側５個の範囲
桁を増やしたければ、　C1:G1　の範囲を広げる（式中に２カ所）

お礼

ありがとうございます。
＞H～L列は未使用が条件。
気をつけます。
注意事項をあげてくださって助かります。

回答No.4

grumpy_the_dwarf

前回の質問でmshr1962さんの回答では、B列以降にcolumn()-1文字目
を持ってくることになっていました。つまり、結果をD列から書くの
であればcolumn()-3で、Z列からならcolumn()-25となります。
今回のzap35さんやmu2011さんの回答も同じです。自分が何文字目を
持ってくることになってるのかをcolumn関数で数えているので、1文
字目を担当する列が1になるように、式を調節する必要があります。

前回のnishi6さんの回答では、結果をどこに書こうと式の後ろの方
の数値が変化している部分が何文字目を拾ってくるかを直接示して
いるので、何も心配する必要はありません。結果を連続して書く必
要すらありません。

お礼

ありがとうございます。
関数は簡単なものしかわからないので、とても助かります。

回答No.3

suekun

要は表示させるセルの設定な訳です。

右詰めを考えるなら、文字数を検索して
Ｇはどの位置を拾うか？　Ｆはどの位置を拾うか？ですよね。

単純に、右端Ｇは
=RIGHT(A1,1)
で表示できます。
Ｆ列は文字数を数えて、右から2番目の文字を取るのですから
=MID(A1,LEN(A1)-1,1)

あとは、
LEN(A1)-1　の部分の「-1」を数字を変えていけばいい訳です。
Ｂ列
=MID(A1,LEN(A1)-5,1)
Ｃ列
=MID(A1,LEN(A1)-4,1)
Ｄ列
=MID(A1,LEN(A1)-3,1)
Ｅ列
=MID(A1,LEN(A1)-2,1)

そしてエラー回避でＩＦ関数を組めば、
=IF(ISERROR(MID(A1,LEN(A1)-5,1)),"",MID(A1,LEN(A1)-5,1))

となります。

お礼

関数の説明までして頂いてとてもわかり易かったです。
ありがとうございます。

回答No.2

mu2011

次の方法は如何でしょうか。
B1セルに=IF(RIGHT(INT($A$1/10^(7-COLUMN())),1)*1=0,"",RIGHT(INT($A$1/10^(7-COLUMN())),1)*1)を入力後、G1セルまでコピー

お礼

ありがとうございます。

B1に入力したら上手く表示できました。
数字入力セルと結果表示させるセルが隣あっていない場合には修正してみます。

回答No.1

zap35

＞一つのセルにA1に123456と入力されているとします。
桁数は６桁以下として回答します

B1セルに以下の式を貼り付けて右方向にコピーしてください
=IF(LEN($A1)>=8-COLUMN(),MID($A1,COLUMN()+LEN($A1)-7,1),"")

でも桁数がもっと多かったり、表示する位置が違う場合は式の修正が必要です。でも少し考えれば応用できると思いますよ

お礼

A1に入力して、B1からコピーすると表示できました。
時間のある時に修正して他のパターンにもチャレンジしてみます。

ありがとうございました。