Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

221:デフォルトの名無しさん
08/06/27 00:49:59
>>218
もっと簡単な方法があるかもしれないけど、俺はプロじゃないからすぐ思いつくのはこの程度かな。
もし良かったらどうぞ。変数も今、適当に付けたから分かりにくいのはごめんね。

Sub 最大表示()
Dim MyRow As Integer
Dim MyRng As Range
Dim Res As Integer
Dim AnsRow As Integer

MyRow = Range("A65536").End(xlUp).Row

Res = 0
For Each MyRng In Range("A1:A" & MyRow)
If Res < MyRng.Value Then
Res = MyRng.Value
AnsRow = MyRng.Row
End If
Next MyRng

MsgBox AnsRow, vbOKOnly + vbInformation, "結果"
End Sub

次ページ

続きを表示

1を表示