Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13957 / 76734

←次へ　｜　前へ→


	【68277】指定した項目の最大値を求めたいのですが

江々 - 11/2/20(日) 9:09 -


	引用なし

	パスワード

以下のデータで指定氏名の最大値を取得したいのですが・・・

氏名　　　　第一回　　　　第二回　　　　第三回
AAA　　　　10　　　　34　　　　25
BBB　　　　12　　　　53　　　　23
CCC　　　　13　　　　90　　　　31
AAA　　　　42　　　　61　　　　22
BBB　　　　5　　　　13　　　　36
CCC　　　　12　　　　15　　　　45
AAA　　　　45　　　　2　　　　63

最大値の取得の方法はわかるのですが、
氏名AAAに制限して最大値を取得する方法はどのようにすれば良いのでしょうか。
tに《変数を》加えて…と思ったのですが、・・・アドバイスお願いします。
AAAが分かればBBBなどにも展開できるのですが、進みません。

Sub kzoeru()
Dim i, t, m
　　m = 1
For i = 6 To Range("A" & Rows.Count).End(xlUp).Row
　　If Cells(i, 1).Value = "AAA" Then
　　　　t = Range(Cells(i, 2), Cells(i, 4))
　　　　m = 1 + 1
　　End If
Next
　　MsgBox "最大値は" & Application.WorksheetFunction.Max(t)
End Sub

2 hits

▼

【68277】指定した項目の最大値を求めたいのですが 江々 11/2/20(日) 9:09

≪