Sub 関数SUMIFを使う()
    
    検索値 = "A社"
    
    Set 検索範囲_会社名 = Range("A:A")
    
    Set 検索範囲_販売数 = Range("B:B")
    
    Range("D2") = WorksheetFunction.SumIf(検索範囲_会社名, 検索値, 検索範囲_販売数)
    
End Sub