Option Explicit Sub 合計額を集計() Dim i As Long '変数iを長整数型に設定 Dim s As String '変数sを文字列型に設定 Dim r1, r2 As Range '変数r1/r2をRange型に設定 Set r1 = Range("C6:C15") 'r1の範囲を取引先の記録されているセル範囲に設定 Set r2 = Range("F6:F15") 'r2の範囲金額の記録されているセル範囲に設定 For i = 19 To 23 '集計表のある範囲で一行ずつ19行~23行の間で処理する s = Cells(i, 3).Value '変数sを取引先名に設定 Cells(i, 4).Value = Application.WorksheetFunction.SumIf(r1, s, r2) 'ワークシート関数「SumIf」を使って一行づつ集計する 'sumif関数で集計された合計値が一行ずつ入力される Next i End Sub