| |
▼ぴん さん：
> 条件
>Ｂ商会(株)とＤ販売(株)の合計金額
>Ａ物産とＣ商事(有)の合計金額
>Ａ物産を除いた合計金額
ピボットテーブルとかを使うのかもしれませんが、
好きな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("Ｂ商会(株)") + dic("Ｄ販売(株)")
Debug.Print dic("Ａ物産") + dic("Ｃ商事(有)")
Debug.Print Application.Sum(dic.Items()) - dic("Ａ物産")
End Sub
|
|
kanabun
- 12/8/25(土) 13:54 -
