エクセルで一番大きな数字の列名を表示させいたい

■■セダン■ワゴン■スポーツ■カテゴリ
田中□１□■□１□■□□□□■
佐藤□１□■□２□■□□１□■
鈴木□１□■□２□■□□３□■
高橋□１□■□４□■□□４□■
山本□１□■□３□■□□１□■


エクセルでこんな感じの表があります。
カテゴリの列に、一番大きな数字の列名（セダン・ワゴン・スポーツ）を
表示させたいのですが、どのようにすればいいのでしょうか？

EX佐藤→ワゴン、鈴木→スポーツ、山本→ワゴン

それから同数のものがある場合には、（田中、高橋）の場合には、同数と
表示させたく思っています。また数字がはいったセルには、データがない
場合があります。

以上よろしくお願いいたします。

No.3 ベストアンサー 回答者： grumpy_the_dwarf 回答日時： 2003/07/01 09:50

A1から表が作ってあるとして、カテゴリはD列ですから同率一位を考

慮しなければ
D2: =INDEX($B$1:$D$1, 1,MATCH(MAX(B2:D2),B2:D2,0))
でいいんです。match関数とindex関数の組み合わせは表の検索で頻繁
に使いますから、憶えとくと便利ですよ。

で、「同数」の処理ですが、「最大値に一致するセルの個数が1を超
えたら」ですから、
D2 : =IF(COUNTIF(B2:D2,MAX(B2:D2))>1,"同数",INDEX(以下同文))
のように拡張します。

No.4 回答者： imogasi 回答日時： 2003/07/01 22:34

関数式の複雑さに飽きたら

ＶＢＡでどうぞ。
考えたとおりコーディングするだけです。
Sub test03()
For i = 2 To 6 '２行目から６行目まで繰り返し
Max = 0 '最大値をわざと小さくする
For j = 2 To 4 'Ｂ列からＤ列まで繰り返し
If Cells(i, j) > Max Then '今までの最大値より大なら
Max = Cells(i, j) '置き変える
nam = Cells(1, j) '列の見出しを取る
Else
End If
Next j
Cells(i, "E") = nam '列の見出しをＥ列にセット
Next i
End Sub
（テストデータ）Ａ１：Ｄ６
セダンワゴンスポーツ
田中132ワゴン
佐藤213スポーツ
鈴木331セダン
高橋231ワゴン
山本112スポーツ
（結果）Ｅ２：Ｅ６に上記のようにセットされます。

No.2 回答者： taisuke555 回答日時： 2003/07/01 09:39

関数を組み合わせて作成する数式には、いろいろな作り方があると思います。

一例ですが、

=IF(COUNTIF(B5:D5,MAX(B5:D5))>1,"同数",OFFSET($A$1,0,MATCH(MAX(B5:D5),B5:D5,0)))

でどうでしょう？

No.1 回答者： taknt 回答日時： 2003/07/01 09:30

まず 最大値の取得は

=MAX(C2:C6)
などというふうにすればいいでしょう。