エクセルで次のような表がシートにあったとします。
グループ | 値 |
---|---|
A | 3 |
A | 4 |
A | 5 |
B | 4 |
B | 7 |
B | 8 |
この時、SQLで言う所の
select MIN(値)
from table
where グループ='A'
のようなことをエクセルVBAでやりたいのですが、どのようなコードを組めばよいでしょうか?
よろしくお願いします。
エクセルで次のような表がシートにあったとします。
グループ | 値 |
---|---|
A | 3 |
A | 4 |
A | 5 |
B | 4 |
B | 7 |
B | 8 |
この時、SQLで言う所の
select MIN(値)
from table
where グループ='A'
のようなことをエクセルVBAでやりたいのですが、どのようなコードを組めばよいでしょうか?
よろしくお願いします。
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