Excelの関数で…

質問

店舗名　　１　２　３　４　５　６　７　８　９　　最大日数
Ａ支店　　５　０　０　０　０　１　０　０　０　　６
Ｂ支店　　０　０　０　１　０　０　０　０　０　　４

Ａ支店は１日が５つ、６日が１つあります。
Ｂ支店は４日が１つ、あります。

最大日数の行にそれぞれの店舗の最大日数を反映させる関数はどのようにしたら
いぃのでしょうか？
ちなみに上の表ではＡ支店が１日が５つ、６日が１つあるので最大日数は６になります。
Ｂ支店は４日がひとつなので最大日数は４になります。

宜しくお願いします

回答No.1

taisuke555 · ベストアンサー

配列数式です

最大日数のセルに
質問の例ではB2～J2にデータ、B1～J1に見出しがあるものとしてK2セルに

=MAX(IF(B2:J2>0,$B$1:$J$1,0))
と入力して、[Ctrl]+[Shift]+[Enter]を押してください。

B2～J2を検索し、0以上であれば、B1～J1の値を持ってきて、最大の数字を表示します。

回答No.5

comv

こんにちは

表の構成が以下として

＿ ＿Ａ＿　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ　Ｊ　Ｋ
１ 店舗名　１　２　３　４　５　６　７　８　９　最大
２ ○支店　５　０　０　０　０　１　０　０　０　式
３ □支店　０　０　０　１　０　０　０　０　０　↓

セルＫ２に式
　=SUMPRODUCT(MAX($B$1:$J$1*B2:J2))
と入力後、必要行まで複写

で試してみて下さい

回答No.4

taisuke555

＞ＶＢＡですが、あるいは配列変数がはじめてなら、それを理解するより速いかも知れない。

個人差はあるかもしれませんが、
ＶＢＡも配列数式もはじめてなら、配列数式の方が理解するのは簡単だと思います。

私も配列数式は、覚えてから２、３ヶ月ですので、配列数式のすべてを
理解しているとは言えませんが、ある程度の理解でかなりの応用が利くと思います。

回答No.3

imogasi

ＶＢＡですが、あるいは配列変数がはじめてなら、それを理解するより速いかも知れない。
Sub test01()
Worksheets("sheet1").Select
d = Range("a3").CurrentRegion.Rows.Count
s = 3
For i = 3 To s + d - 1
For j = 9 To 1 Step -1
If Cells(i, j) <> 0 Then
Cells(i, 9+1) = j
Exit For
End If
Next j
Next i
End Sub
（１）a3は表の計数開始する、左上隅セルに変えること。
（２）sは計数開始行の行数字に変える
（３）9は列数により変えること。
（４）スペースセルがないこと。

回答No.2

taisuke555

＃１で回答した者です。
見出しが全角の数字の場合は

=MAX(IF(B2:J2>0,COLUMN(B2:J2)-1,0))

と入力して[Ctrl]+[Shift]+[Enter]を押してください。
こちらは列番号を返します（B2セルなら2、C2セルなら3）ので
そこから１を引いた値の最大を表示します。

２度書きすみません。