-1

エクセルで次のような表がシートにあったとします。

グループ  値
A 3
A 4
A 5
B 4
B 7
B 8

この時、SQLで言う所の

select MIN(値) 
from table
where グループ='A'

のようなことをエクセルVBAでやりたいのですが、どのようなコードを組めばよいでしょうか?
よろしくお願いします。

4
  • エクセル関数でもできると思いますが、「エクセルVBAでやりたい」理由は何でしょうか?データ(表)の範囲が固定されていないとかでしょうか?
    – merino
    Commented 2023年7月14日 5:17
  • エクセルVBAの処理の流れの中でこの計算が使いたかったのですが、そんなに不自然ですか?for文でデータを回してそれに対してこの計算をしたい。ちなみにエクセル関数ではどうやるのでしょうか?
    – Jogenara
    Commented 2023年7月14日 5:50
  • 「そんなに不自然ですか?」については、「エクセルVBAの処理の流れの中でこの計算が使いたかった」と質問に書いてないので、質問の内容であればVBAを使うまでもないのではないでしょうか?と思ったので最初のコメントを投稿いたしました。
    – merino
    Commented 2023年7月14日 12:11
  • 「ちなみにエクセル関数ではどうやるのでしょうか?」ですが、お使いのExcelのバージョンは何でしょうか?バージョンによっては使える関数に違いがあります。”エクセル グループ 最小値”などでネット検索すれば方法が出てきますのでお使いのExcelのバージョンに合った方法を確認されると良いかと思います。関数ではありませんがピボットテーブルを使っても良いかもしれません。
    – merino
    Commented 2023年7月14日 12:19

1 件の回答 1

0

Officeのバージョンが365または2019なら、MinIfs関数を使えばいいでしょう。

その表がA1から始まっているとして、

Public Sub Sample()
    Dim tbl As Range
    Set tbl = Cells(1).CurrentRegion
    
    Dim minValue
    minValue = WorksheetFunction.MinIfs(tbl.Columns(2), tbl.Columns(1), "A")
    MsgBox "グループAの最小値: " & minValue
End Sub

MinIfs関数が使えないバージョンならループで最小値を取得するといいでしょう。

Public Sub Sample2()
    Dim tbl As Range
    Set tbl = Cells(1).CurrentRegion
    
    Dim minValue, R As Range
    For Each R In tbl.Rows
        If R.Cells(1) = "A" Then
            If R.Cells(2) < minValue Or IsEmpty(minValue) Then
                minValue = R.Cells(2)
            End If
        End If
    Next
    MsgBox "グループAの最小値: " & minValue
End Sub

この質問に回答するには、ログインする必要があります。

求めていた回答ではありませんか? のタグが付いた他の質問を参照する。