最小値、最大値を求め、真横に表示させるには

質問

過去にも同じような質問がありますが、解答の通り行っても出来ませんでした。
　例えばA列にランダムに数値を入力し、その数値より最小値、最大値を求め
B列真横に「最小値」「最大値」と下記のように、マクロを使用して行いたいの
ですが、どなたかお教え願います。

　　　　　A列　　　　　B列
　　　　　57
　　　　 36
　　　　 78 　　　　 　最大値
　　　　 41
　　　　 12　　　　　　最小値
　　　 　 .....
　　　　 .....

回答No.2

tom04 · ベストアンサー

こんにちは！

関数で簡単にできそうですが、マクロでないとダメなのですか？

データは2行目以降にあるとします。
関数の場合はB2セルに
=IF(A2="","",IF(A2=MAX(A:A),"最大値",IF(A2=MIN(A:A),"最小値","")))
としてオートフィルでコピー！
これでOKだと思います。

どうしてもマクロでやりたい場合は
For～Nextでループする方法もありますが、上記数式をそのまま利用した方が早いと思いますので、

Sub Sample1()
Dim i As Long
i = Cells(Rows.Count, "A").End(xlUp).Row
With Range(Cells(2, "B"), Cells(i, "B"))
.Formula = "=IF(A2="""","""",IF(A2=MAX(A:A),""最大値"",IF(A2=MIN(A:A),""最小値"","""")))"
.Value = .Value
End With
End Sub

といった感じではどうでしょうか？m(_ _)m

お礼

教えてgooでの最初の質問に、早速の回答ありがとうございました。
関数も、マクロも初心者で何をどうしていいのか悩んでいましたが、
明快な回答をいただきほんとに助かりました。
マクロでなければ出来ないと思っていましたが、関数で簡単に出来るんですね。
マクロの方、最初入力に5・6行目のFormulaとValueの前に「.」をつけるの
落としてまして、それに気が付いてやっと出来るようになりました。
ほんとに有り難うございました。

回答No.1

m-nish

=IF(a1=MAX(a$1:a$5),"最大値",IF(a1=MIN(a$1:a$5),"最小値",""))
をB列の1行目から5行目全部にコピーすればOKです。

お礼

親切に有り難うございました。
関数だけで出来ることもわかりませんでした。
勉強します。