Sub 関数SUMIFSを使う()
    
    Set 会社名範囲 = Range("A1:A10")
    
        会社名 = "A社"
    
    Set 商品名範囲 = Range("B1:B10")
    
        商品名 = "あ"
    
    Set 合計範囲 = Range("C1:C10")
    
    Range("E2") = WorksheetFunction.SumIfs(合計範囲, 会社名範囲, 会社名, 商品名範囲, 商品名)
    
End Sub