エクセルSUM関数で文字列を計算させる方法

質問

WinXP＋エクセル2002です。

A1のセルに『100,200,30,50』と入っているとして
B1で=sum(A1)
とやっても380にはなってくれませんがなぜですか？
380にさせる方法はあるでしょうか？

※『100,200,300』だと100200300になりますがそれも困ります。
カンマ区切りでサマリーしたいです。

以前も良く似た質問をしましたが
なにかご存知の方よろしくお願いします。

回答No.2

nishi6 · ベストアンサー

ヘルプに『関数とは、引数という特定の値を使用し、構造と呼ばれる特定の順序で計算を行う数式で、
前もって定義されています。たとえば、SUM 関数は値またはセル範囲を加算します。』
と書いてあります。

Sum関数について考えると、引数になりえるのは値またはセル範囲ですから、
　=SUM(A1:A10,B1)　はセルA1:A10,B1の数値の加算
　=SUM(10,20,30)　 は数値10,20,30の加算の意味になります。

A1に文字列『100,200,30,50』を入力して、B1に　=SUM(A1)　とすると
　A1が数値であれば加算しますが、あいにく文字列『100,200,30,50』なので答えは『0』になってしまいます。

次に考えられるのが、文字列『100,200,30,50』を数値の集合と考えることができないかということになると思います。
配列数式、行列、INDIRECT　などを使ってみましたが、難しいですね。
『,』の個数が3個とかに限定されていれば長い算式でできるかもしれませんが、ユーザー定義関数を書けば数行で終わるのでこちらを使うでしょうね。
（前回書いていますので省略します。『;』→『,』の変更だけですね）

前回の回答とは違う方法を考えてみましたので書いてみます。
少しは質問の主旨にあっている？（2列使用しています）

A1のセルに『100,200,30,50』と入っているとして
（１）B1のセルに ="=SUM(" &A1&")" と入力します。『=SUM(100,200,30,50)』が表示されます。
（２）このB1セルをコピーして、C1に形式を選択して貼り付けの『値』を行います。
（３）C1にも『=SUM(100,200,30,50)』と表示されます。このまま、C1を選択した状態で、メニューから
　　　データ→区切り位置で元のデータの形式が『カンマやタブなどの区切り・・・』の
　　　オプションボタンが選択されている状態で完了ボタンを押します。

『380』が表示されるはずです。A列の複数行の操作も同じようにできます。
B列は削除してかまいません。
また、『100;200;30;50』の形式ならば、B1に="=SUM(" &SUBSTITUTE(A1,";",",")&")"
とすれば同じように処理できます。

ご参考に。

補足

nishi6さん、何度もご回答していただきありがとうございます。

今回のやり方も試してみました。
答えが出た瞬間は思わず声が出てしまいました。
どうしてそうなるかわからなかったからですが。。。

んが、もうあきらめて？マクロにしました。
前回のnishi6さんに教えていただいたマクロです。

実装しましたがかなりいい感じです。

何度もありがとうございました。
また何かありましたらまたよろしくお願いいたします。

回答No.1

imogasi

ご存知でしょうが挿入－関数クリックで関数一覧が出ます。
その中に、ストレートに質問の解答になる関数はないと思います。（ひょっとして、誰か知っている人がいて解答が出るかも知れませんが。）
それなら、エクセル内で自分自身が作る私家製の関数を作れるようです。実を言うと私も初めてなんです。また私の経験では市販の本にも私家製の関数の使い方の解説にほとんどお目にかかりません。（ＶＢＡが出きるという前提でないからでしょう。）
エクセルのワークシート上のセルで＝○○○とストレートに記入できるとは。しかしＶＢＡが組めれば出来るのです。
ツール－マクロ－ＶｉｓｕａｌＢａｓｉｃＥｄｉｔｏｒをクリックして、その後挿入－標準モジュールをクリックし、左のエクスプローラー部にＭｏｄｕｌｅ１があらわれるからそれをダブルクリックして右側白紙画面に下記を入力する。
「psub」は私が付けた、私家製の関数名です。なんでも良い（命名則は守ること）。
Function psub(a)
' a = "10,20,40"
s = 1
ll = Len(a)
' MsgBox ll
wa = 0
'-----
For i = 1 To 10
p = InStr(s, a, ",")
If p = 0 Then GoTo p01
st = Mid(a, s, p - s)
suu = Val(st)
wa = wa + suu
MsgBox st & "=" & s
s = p + 1
If s > ll Then GoTo p02
Next i
'----
p01:
st = Mid(a, s, ll - s + 1)
suu = Val(st)
' MsgBox st & "=" & s & "=" & ll - s + 1
wa = wa + suu
p02:
' MsgBox wa
psub = wa
End Function
MsgBoxはテストの為に入れたもので外しても結構です。
私が迷ったのは関数の値を返すやり方「psub=wa」の部分でした。（関数名は値を表すものなので、値を代入出きるのももっともなんですね。）
これでＡ１セルに１０，２０，５０と入力し、Ｂ１に「＝psub(a1)」
と入力すると、値の８０が入りました。

補足

ご回答ありがとうございます。

試させていただきました。
答えはＯＫでしたがロジックがどうもなじめず？
上のnishi6さんに教えていただいたマクロを使うことにしました。

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