配列（連想配列：ハッシュ）の使い方 （Ｄｉｃｔｉｏｎａｒｙ）

構文など

Set ◯◯ = CreateObject(Scripting.Dictionary )

Key（キー）とItem（値）の組みとなる連想配列（ハッシュ）を扱うＤｉｃｔｉｏｎａｒｙオブジェクトの使用方法です。
WorksheetFunctionのSumIfのような条件付きでの集計は、対象レコード数が多いと割りと時間がかかりますが、配列化してから加算するとより高速化することが可能かもしれないです。（サンプル１）

また、セル上からKey、及びItemの値を取得する場合はセルのaddressだけでなく.Valueとして値を指定します。

メソッド一覧

名前	説明
Add	レコードを追加する
Remove	レコードを削除する
Exists	指定されたキー(key)が存在するかどうか
RemoveAll	レコードを全て削除する
Keys	キーを配列にして返す
Items	値（Item)を配列にして返す

プロパティ一覧

名前	説明
Count	Dictionaryのレコード数を返す
Item	Itemに対するKeyを返す
Key	Keyに対するItemを返す
CompareMode	文字列比較キー比較モードの設定

サンプルコード

サンプル用Excelファイル

Sub DicTest2()
Dim Ws1 As Worksheet, DicT As Object, LR As Long, Ke, It

Set Ws1 = Workbooks("ハッシュ3ple.xls").Worksheets(1)
'Dictionaryオブジェクトをセット
Set DicT = CreateObject("Scripting.Dictionary")
'範囲の最終セル取得
LR = Ws1.Cells(Rows.Count, 1).End(xlUp).Row
    '配列化
    Dim i As Long
      '範囲内でKey取得を繰り返す
       For i = 2 To LR
       'Keyが既に配列にある場合は金額を加算する
        If DicT.Exists(Ws1.Cells(i, 1).Value) Then
            DicT.Item(Ws1.Cells(i, 1).Value) = _
            DicT.Item(Ws1.Cells(i, 1).Value) + Ws1.Cells(i, 4).Value
        Else
       'Keyがなければ配列に追加する
            DicT.Add Ws1.Cells(i, 1).Value, Ws1.Cells(i, 4).Value
        End If
       Next i
        
    '取得したKeyをセルに返す
    Ke = DicT.keys
    For i = 0 To DicT.Count - 1
    Ws1.Cells(2 + i, 8) = Ke(i)
    Next i
    
    '合計したItemをセルに返す
    It = DicT.Items
    For i = 0 To DicT.Count - 1
    Ws1.Cells(2 + i, 10) = It(i)
    Next i
    
End Sub

エクセル上のHにKey、JにItemを表示しています。
Itemの値の列を変更すれば数量、粗利のデータを取得出来ます。

関連・類似ページ

検索条件一致集計[SumIf]メソッド