|
▼超1 さん:
こんにちは。
>A1からA200までの値があったとき、
>その中で下から(A200から)数えて最初にMAXになった
>値を取得したいのですけど、どうしたらよいでしょうか?
>そしてそのMAXがどの行にあるかも調べたいです。
>どうやったらできますか?
新規ブックの標準モジュールで
試してみてください。サンプルデータもコードで用意しますから試してみてね
'=======================================================
Sub test()
Dim radd As String
With Range("a1:a200")
.Formula = "=int(rand()*200)+1"
.Value = .Value
'ここまでは、サンプルデータ作成
radd = .Address
MsgBox "最大値 : " & Application.Max(.Cells)
MsgBox "最大値の最大行 : " & Evaluate("max(if(" & radd & "=max(" & radd & "),row(" _
& radd & ")))")
' max(if($A$1:$A$200=max($A$1:$A$200),row($A$1:$A$200))) ↑こんな数式を評価します
End With
End Sub
確認してみてください
|
|