|
▼ぴん さん:
> 条件
>B商会(株)とD販売(株)の合計金額
>A物産とC商事(有)の合計金額
>A物産を除いた合計金額
ピボットテーブルとかを使うのかもしれませんが、
好きなDictionary オブジェクトを利用して仕入先ごとの集計
してみました。
Sub try集計()
Dim r1 As Range
Dim r2 As Range
Set r1 = Range("B2", Cells(Rows.Count, 2).End(xlUp)) 'B列
Set r2 = r1.Offset(, 3) 'E列
Dim v1, v2
v1 = Application.Transpose(r1)
v2 = Application.Transpose(r2)
Dim i As Long
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
dic.CompareMode = TextCompare
For i = 1 To UBound(v1)
dic(v1(i)) = dic(v1(i)) + v2(i) '仕入先v1 ごとの v2集計
Next
Debug.Print dic("B商会(株)") + dic("D販売(株)")
Debug.Print dic("A物産") + dic("C商事(有)")
Debug.Print Application.Sum(dic.Items()) - dic("A物産")
End Sub
|
|