【エクセルVBA】重複排除処理が速いのはどっち？Dictionaryオブジェクト vs 複数ループ

Sub TestList()
Dim i As Long
Dim j As Long
Dim flgFind As Long
Dim maxRow  As Long
Dim Start as Variant
Dim Finish as Variant

Start = time

With ActiveSheet
    maxRow = .Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To maxRow
        flgFind = 0
        For j = 2 To .Cells(Rows.Count, 6).End(xlUp).Row
            If .Cells(i, 2).Value = .Cells(j, 6).Value Then
                .Cells(j, 7).Value = .Cells(j, 7).Value + .Cells(i, 3).Value
                flgFind = 1
                Exit For
            End If
        Next j
        
        If flgFind = 0 Then
            .Cells(j, 6).Value = .Cells(i, 2).Value
            .Cells(j, 7).Value = .Cells(i, 3).Value
        End If
    Next i
    
End With

Finish = time

MsgBox "処理時間は" & Finish - Start & "秒です"

End Sub

Sub ListWithDictionary()
Dim i As Long
Dim j As Long
Dim maxRow As Long
Dim dic As Dictionary
Dim Start As Variant
Dim Finish As Variant

Start = Time

Set dic = New Dictionary

j = 2 'リスト書き出し開始行

With ActiveSheet

    maxRow = .Cells(Rows.Count, 2).End(xlUp).Row

    For i = 2 To maxRow
        If dic.Exists(.Cells(i, 2).Value) Then
            .Cells(dic.Item(.Cells(i, 2).Value), 7).Value = .Cells(dic.Item(.Cells(i, 2).Value), 7).Value + .Cells(i, 3).Value
        Else
            dic.Add (.Cells(i, 2).Value), j
            .Cells(j, 6).Value = .Cells(i, 2).Value
            .Cells(j, 7).Value = .Cells(i, 3).Value
            j = j + 1
        End If
    Next i

End With

Finish = Time

MsgBox "処理時間は" & Format(Finish - Start, "nn分ss秒") & "です"

End Sub

計測方法