マクロ最大値取得

マクロで最大値を取得したいのですね。

↓こちらはワークシート関数を使う方法です。

●Excel VBAで指定した範囲の最大値・最小値を取得する：Max, Min | UX MILK
http://uxmilk.jp/50111

これぐらいでしたら、ループを回して最大を調べるのもいいかもしれません。そうすればどこのセルの値が最大なのかループ変数から取ってくる事ができますし。

荒削りですが、参考コードです。

Sub test()
    Dim a As Integer
    Dim b, c As Integer
    b = Cells(1, 1).Value
    c = 1
    'A1からA10まで探索します。
    For a = 1 To 10
        If Range("A" & a) > b Then
            b = Range("A" & a)
            c = a
        End If
    Next
    MsgBox "最大値は" + CStr(b) + "です。" + "A" + CStr(c) + "セルです。"
End Sub

Sub test()

Dim a As Integer

Dim b, c As Integer

b = Cells(1, 1).Value

c = 1

'A1からA10まで探索します。

For a = 1 To 10

If Range("A" & a) > b Then

b = Range("A" & a)

c = a

End If

MsgBox "最大値は" + CStr(b) + "です。" + "A" + CStr(c) + "セルです。"

End Sub