【VBA】テーブル化された表の、条件に一致したデータの合計値を取得する

VBAコード

ここでは例として、
　・シート「data」上の
　・テーブル化された表「productテーブル」の
　・列「productName」が”りんご”の
　・列「price」の合計値
します。

Option Explicit

Sub sample()
    
    Dim productNameRange As Range
    Dim priceRange As Range
    Dim total As Long
    
    With Worksheets("data").ListObjects("productテーブル")
        '列「productName」のセル範囲を取得
        Set productNameRange = .ListColumns("productName").DataBodyRange
        '列「price」のセル範囲を取得
        Set priceRange = .ListColumns("price").DataBodyRange
    End With
    
    '列「productName」が「りんご」の列「price」の合計値を取得
    total = WorksheetFunction.SumIf(productNameRange, "りんご", priceRange)

    MsgBox ("りんごの合計値は『" & total & "』です。")
    
End Sub

実行結果

テーブル化された表の、条件の一致したセルの合計値を取得できました。

参考①

テーブル化されていない表でも、同様のことができます。

詳細は以下の記事をご確認ください。

参考②

上記で使用したワークシート関数「SumIf」の詳細は、公式サイトをご確認ください。