エクセルの抽出方法について

質問

エクセル２０００を使用してます。
　Ａ　　Ｂ
１　　　５
２　　１２　
３　　　８
４合計２５　　というような表計算で合計値の"２５"を桁ごとにセルに抽出
　　　　　　（例：Ｃ１に拾桁"２"Ｄ１に壱桁"５”）したいです。
　　　　　　　合計値は１桁～６桁くらいまで固定してません。
　　　　　　　Ｃ１、Ｄ１に入る関数は固定し、合計値が算出されると自動的に
　　　　　　　各桁セルへ入るというようにしたいです。
良い方法がありますでしょうか、教えて下さい。

回答No.3

nishi6 · ベストアンサー

A列に着目する方法と、B列に着目する方法例です。合計行はB列の何行目にあってもかまいません。

＜その１＞A列に『合計』の文字を入力すれば表示されます。

C1に
　=IF(ISERROR(MATCH("合計",$A:$A,0)),"",MID(INDIRECT("B"&MATCH("合計",$A:$A,0)),COLUMN()-2,1))
として、D1:H1にコピーします。（合計は最大6桁の場合）
　　１．MATCHで最終行を求めて、
　　２．INDIRECTで番地を特定し、
　　３．MIDを使い、COLUMN()-2で列番号-2に対応する数値を取りだしています。

＜その２＞A列の最下段の文字を合計欄とする。逐次表示が更新される。

C1に
　=IF(ISERROR(MATCH("",$A:$A,-1)),"",MID(INDIRECT("B"&MATCH("",$A:$A,-1)),COLUMN()-2,1))
として、D1:H1にコピーします。

＜その３＞B列の最下段を合計欄とする。逐次表示が更新される。

C1に
　=IF(ISERROR(MATCH(MAX($B:$B)+1,$B:$B,1)),"",MID(INDIRECT("B"&MATCH(MAX($B:$B)+1,$B:$B,1)),COLUMN()-2,1))
として、D1:H1にコピーします。（合計は最大6桁の場合）
未入力の場合や、合計を計算までの途中も意識しているため、少し長い算式になっています。ご理解を・・・

○６桁の数値を右の方に詰める場合は
=MID(RIGHT("******"&INDIRECT("B"&MATCH("",$A:$A,-1)),6),COLUMN()-2,1)
のようにします。
"******"は半角スペース６個です。（回答でスペースが詰められるため*で代用しています）

お礼

早々の回答ありがとうございます。非常に参考になり解決しました。

回答No.2

wolv

例えば合計が４桁の場合，

Ｃ１　　Ｄ１　　Ｅ１　　Ｆ１
千の位　百の位　十の位　一の位　　　……（１）
十の位　一の位　空欄　　空欄　　　　……（２）
千の位　一の位　空欄　　空欄　　　　……（３）

１～３のどれにしたいのでしょうか？
（No1方の回答は（３）の場合の解法ですね．）

合計の値の桁数が変わる可能性がある，というだけで，
合計値の入るセルは固定されているんですよね？

（１）の場合なら，

C2「6」
D2「5」
：
H2「1」
あるいはD2を「=C2-1」としてH2までコピー

C1「=int(mod($B$4,10^C2)/10^(C2-1))」
として，H1までコピー
とすると，できると思います．（動作未確認）

たとえば，下から３桁め，１００の位の計算は，
mod($B$4,10^C2)によって合計を１０００で割ったあまりを取り出し，
/10^(C2-1)によって１００でわった上で，
intによってその整数部分のみを取っています．

お礼

早々の回答ありがとうございます。（１）の例が非常に参考になりました。

回答No.1

Naodon1020

C1には　=+VALUE(LEFT(TEXT($B$4,"@"),1))

D1には　=+VALUE(RIGHT(TEXT($B$4,"@"),1))

と入れればいいと思いますが、
合計値が入るセルが固定されていないと難しいですね。

数値を入れるセルを大きめに取っておいて、

C1には　=+VALUE(LEFT(TEXT(SUM($B$1:$B$19),"@"),1))

D1には　=+VALUE(RIGHT(TEXT(SUM($B$1:$B$19),"@"),1))

とすればどうでしょう。

お礼

早々の回答ありがとうございます。参考になりました。