エクセルである１列にあるすべての名前を合計部分で表示させたいです。

出来ればエクセル関数で表示出来るようにしたいのですが、
不可能であればVBAでも構いません。

名前と点数の列名があるとします。
合計の部分ではすべての人物の表示と、それぞれの点数を合算したものを表示させたいです。

それぞれの人物の合計を出すのはSUMIFで出来そうなのですが、合計部分にすべての名前を表示し、重複する場合は一人だけ表示させるということがエクセル関数で可能でしょうか？

もしエクセル関数で無理ならvbaではどのようにすればよろしいでしょうか？

アドバイスよろしくお願い致します。

行動規範の内容に同意します

回答3件

ちょっとやぼったくなりますが、1列追加して2つ目以降の重複名前の行にチェックをつけ、チェックの無い行でオートフィルタすれば、見た目上は希望したような表示になると思います。

B12以降にB2～B8(元データ名前)をにコピー表示する関数(B12に =B2 等)
13行以降のA列に自身より下の行に同じ名前が無いかチェックし表示する関数

：外部ページこれを参考に、チェック対象を自身の行より下に
3. C13にsumifで同じ名前の点数の合計を表示する関数
4. 13行以降のA列にチェックが無いデータでのオートフィルタ

　　田中　70
　　鈴木　30
　　山田　30
　　木村　40
☆　田中　70
☆　鈴木　30

こういう表を作って、☆マークの行をオートフィルタで隠します。

投稿2015/11/02 06:33

編集2015/11/02 06:39

hirohiro

総合スコア2068

VBA使ったらなんとでもできますが、関数だけでなんとかする例を書きます

※画像のテーブルイメージのままの例です
※D列に間接データを作ります
※結果は元データとは別の列で、E列＝名前、Ｆ列＝合計、として作ります

★★★
★ 私の書いたコードに問題がありました
★ ここをご覧になった方に間違ったまま伝わるとご迷惑がかかるため
★ ta-kun 様のコードに差し替えます
★ ta-kun 様、ありがとうございました

D3のセル（間接データの作成）
=IF(COUNTIF(B$3:B3,B3)=1,ROW()-ROW(E$2),"")

E3のセル（名前の列を作成）
=IF(COUNT(E$3:E$8)<ROW()-ROW(F$2),"",INDEX(B$3:B$8,SMALL(E$3:E$8,ROW()-ROW(F$2))))

F3のセル（合計の列を作成）
=IF(F3="","",SUMIF(B$3:C$8,F3,C$3:C$8))

D3 ～ F3 を下方向にオートフィルコピー
★★★

（参考サイト）
重複のないリストを作成する

投稿2015/11/02 06:08

編集2015/11/05 09:12

takito

総合スコア3111

ta-kun

2015/11/05 07:55

takitoさん、横からすいません。合計列（F列）の式が違っているようなので、書き込みさせていただきました。あと、入力後に場所移動しても大丈夫なように、式を変更しています。 D3のセル（間接データの作成） =IF(COUNTIF(B$3:B3,B3)=1,ROW()-ROW(E$2),"") E3のセル（名前の列を作成） =IF(COUNT(E$3:E$8)<ROW()-ROW(F$2),"",INDEX(B$3:B$8,SMALL(E$3:E$8,ROW()-ROW(F$2)))) F3のセル（合計の列を作成） =IF(F3="","",SUMIF(B$3:C$8,F3,C$3:C$8)) D3 ～ F3 を下方向にオートフィルコピー