- ベストアンサー
同一セル内の数値を合計する方法
添付に示しますように、 同一セル内に複数の数値が 改行（Ａｌｔ+Ｅｎｔｅｒ）しながら入力されています。 このセル内の合計値を求める方法を教えてください。 現在、セルの値をコピーして、 別のセルに張り付けることで 合計値を求めていいます。 しかし、対象となるセル数が多いため この方法では時間がかかりすぎて 困っています。 以上、よろしくお願いいたします
- 10samba
- お礼率80% (4/5)
- その他(業務ソフトウェア)
- 回答数3
- ありがとう数4
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
Excel2010での解答です。 セルA1から下に入力があって、B列に結果を出します。 セルB1に ="=" & SUBSTITUTE(A1,CHAR(10),"+") と入力して下にコピーします。 コピー結果の表示された算式をコピーして、同じ箇所（またはC列）に、形式を選択して貼り付け＞値 を実行します。式を値にするわけです。 貼り付けた結果、セルは選択されているはずなので、そのまま、データタブ＞区切り位置を実行し、表示されたダイアログボックスでOKします。 改行がない普通の数値入力も機能します。
その他の回答 (2)
- komekome2014
- ベストアンサー率50% (2/4)
Excel VBAマクロを使う方法と使わない方法があります。 なお、改行で複数の値の入っているセルがA1から縦に並んでいると仮定し、合計値をその左のB列のセルに入れると仮定します。 １．マクロを使う方法 まず、Alt+F11キーを押してVBAの画面を出します。 画面左の「VBAProject」と書かれている所を右クリックし、「挿入」－「標準モジュール」メニューをクリックします。 「標準モジュール」の下に「Module1」と出るのでここをクリックします。 画面中央の空欄のところに、以下のコードをコピーして貼り付けてください。 Public Function eval(src As Variant) As Variant eval = Application.Evaluate("=" & Replace(src, vbLf, "+")) End Function ワークシートに戻って、B1に「=eval(A1)」という式を入れます。 B1セルの値をB2以下のセルにコピーします。 これで全部計算されます。 ２．マクロを使わない方法 注意：この方法は文字列置換したときに元データがなくなるので、操作前に必ずシートまたはブックのコピー（バックアップ）を取ってください。 まず、ワークシートの画面で、CTRL+Hキーを押して文字列置換ダイアログ画面を出します。 「検索する文字列」の欄を一度クリックして（文字入力できる状態にして）から、CTRL+Jキーを押します。 画面には特に何も表示されませんが、そのまま「置換後の文字列」の欄を一度クリックして、ここに半角の「＋」を入力します。 入力できたら「すべて置換」ボタンをクリックして下さい。改行されていたセルの数字が改行のない足し算の式に変わります。 続いて、B1セルにすべて半角で「="=" & A1」と入力します。B1セルの値をデータの数だけ下にコピーして下さい。これでB列のセルはA列に書かれた数字を足し算する数式になったと思います。 コピーできたら、B列をすべて選択して右クリックし、「コピー」メニューをクリックします。 続いて、コピーした時と同じセルで右クリックし、「形式を指定して貼り付け」－「値」メニューをクリックして下さい。 見かけ上のセルの内容は変わりませんが、このセルをクリック（選択）してF2キーを押し、そのままエンターキーを押すと数式が計算結果に変わります。 エンターを押したとき、カーソルが一つ下のセルに移動する設定になっていれば、B列でF2キーとエンターキーを交互に連打していくことでどんどん計算されていきます。（件数が多いとちょっと面倒ですのでマクロのほうが簡単です）
お礼
ご回答、ありがとうございます。 マクロ実行ボタンを押さなくても答えが出てしまう回答１に驚きました。 回答２は、こんな技があるなんて、知りませんでした。 本当に勉強になります。ありがとうございました。
お礼
合算だけなく、計算の過程も表示されることによる確認もできることから、ベストアンサーとさせていただきました。 ありがとうございました