Nhờ các anh giải thích đoạn code dò tìm sau (1 người xem)

[lhthai]

Mình có đoạn code do thành viên trên diễn đàn viết
Nay muốn tìm hiểu thêm

Private Sub CommandButton21_Click()
Dim Dic As Object, Tam
Dim Arr(), I&, J&, c&, Rng As Range
Set Dic = CreateObject("scripting.dictionary")
Tam = [C4:J4].Value
[N5:U100].ClearContents
[COLOR=#ff0000]For J = 1 To UBound(Tam, 2)    'Mình không hiểu chỗ này[/COLOR]
[COLOR=#ff0000]   Dic(Tam(1, J)) = J ' [/COLOR][COLOR=#ff0000]hoặc như vậy Dic.Add Tam(1, J), J điều giống nhau phải không[/COLOR]
Next
Arr = Range("L4", [L65536].End(3)).Resize(, 10).Value
For I = 2 To UBound(Arr)
   Set Rng = [B:B].Find(Arr(I, 1), , , 1)
   If Not Rng Is Nothing Then
      For J = 3 To UBound(Arr, 2)
         If Dic.exists(Arr(1, J)) Then
[COLOR=#ff0000]            c = Dic.Item(Arr(1, J))         'phần này với phần màu đỏ ở trên có liên quan như thế nào[/COLOR]
            Arr(I, J) = Rng.Offset(, c) * Arr(I, 2)
         End If
      Next
   End If
Next
[L4].Resize(I - 1, 8) = Arr
End Sub
[code]