条件付の合計の計算の仕方

前提・実現したいこと

条件付の合計の計算の仕方をご教授ください。

●「データ」シート
ある売上の一覧です。
A10セルから始まり、AV列までデータがあります。行数はその時によって変わります。
コード列・・・Ｄ列
税抜金額・・・ＡＬ列

●「集計」シート・・・コードは現在35個あります。

この2シートがありまして、データシートをもとに、集計シートにコードごとの税抜金額を合計を出したいです。
sumif関数を使うやり方と、valueを使うやり方を試しましたがうまく行きませんでした。

宜しくお願い致します。

該当のソースコード

（valueを使ったコードです。めちゃくちゃなコードでしたらすみません）
Public Sub 作成()
    Const ORG_ROW As Long = 11 '「データ」シートのデータ開始行    
    Const SHUKEI_MIDASI As Long = 1 '「集計」シートの見出し行数
    
    Dim sh_date As Worksheet '「データ」シート
    Set sh_date = ThisWorkbook.Worksheets("データ")    
    Dim sh_shukei As Worksheet
    Set sh_shukei = ThisWorkbook.Worksheets("集計")    
    Dim codeRng As Range '「データ」シートの取引先コードセル    
    Dim basecell As Range '「データ」シートのデータ転記開始セル
    Set basecell = sh_date.Range("D11") 
    Dim gyosu As Long '「データ」シートの最終行
    gyosu = basecell.End(xlDown).Row   
    Dim shukeiKiten As Range '「集計」シート集計表の基点セル
    Set shukeiKiten = ThisWorkbook.Worksheets("集計").Range("A1")
     
    Dim uriagekin As Long '売上金額
    Dim i As Long '各コードの売上金集計用変数
    Dim cnt As Long
    cnt = 1
    Dim j As Long
    
    For j = 1 To shukeiKiten.CurrentRegion.Rows.Count - SHUKEI_MIDASI
    　For i = ORG_ROW To gyosu
        　If sh_date.Cells(i, 4) = sh_.Cells(j, 1).Value Then
        　　uriagekin = uriagekin + sh_date.Cells(i, 38)
        　End If
    　Next i
    　j = j + 1
    Next j
    
End Sub

補足情報（FW/ツールのバージョンなど）

SUMIFのコードです。
実行しても何も起きませんでした。

Worksheets("集計").Cells(2, 4).Value = _
        WorksheetFunction.sumif(Worksheets("データ").Range("E10:E73"), _
        Worksheets("集計").Range("A2"), Worksheets("データ").Range("AL11:AL73"))

行動規範の内容に同意します

回答1件

ベストアンサー

SUMIFによる数式です。

D2セル

=SUMIF(データ!D:D,A2,データ!AL:AL)

あとはこれを全行にコピペ。

編集された質問を確認しました。
範囲がE列を参照しています。
集計範囲も11行目からになっています。
これでいけます。

VBA
1Worksheets("集計").Cells(2, 4).Value = _
2        WorksheetFunction.sumif(Worksheets("データ").Range("D10:D73"), _
3        Worksheets("集計").Range("A2"), Worksheets("データ").Range("AL10:AL73"))

投稿2018/04/05 08:24

編集2018/04/05 08:30