Phân tích code
thanhquyt > 15-01-16, 10:43 PM
Hi.Có ai giúp mình phân tích đoạn code với
Option Explicit
Public Sub GPE()
Dim Dic As Object, I As Long, J As Long, K As Long
Dim Tmp As String, Arr, dArr
Arr = Range(Sheet1.[A2], Sheet1.[A65000].End(3)).Resize(, 3)
ReDim dArr(1 To UBound(Arr), 1 To 3)
Set Dic = CreateObject("Scripting.Dictionary")
With Dic
For I = 1 To UBound(Arr, 1)
Tmp = Arr(I, 1)
If Not .Exists(Tmp) Then
K = K + 1
.Add Tmp, K
For J = 1 To UBound(Arr, 2)
dArr(K, J) = Arr(I, J)
Next J
Else
dArr(.Item(Tmp), 2) = dArr(.Item(Tmp), 2) + Arr(I, 2)
End If
Next I
End With
With Sheet1
.Range("E2").Resize(65000, 3).ClearContents
.Range("E2").Resize(K, 3) = dArr
End With
End Sub