Giải thích dùm em đoạn code này (1 người xem)

[bebeen]

Em tình cờ tìm được đoạn code này trên GPE của một ai đó (em không nhớ). Em xem qua nhưng cóvài chỗ em không hiểu lắm. Em đưa nó lên đây và nhờ mọi người giải thích thêm cho em?

Option Explicit
Public Sub LocLOc()
Dim D, Vung, I, J, Mg, K
Set D = CreateObject("scripting.dictionary") 'Sao lai phai dung cai nay?
Vung = S1.Range(S1.[B9], S1.[B65000].End(xlUp)).Resize(, 23)
ReDim Mg(1 To UBound(Vung), 1 To 16)
For I = 1 To UBound(Vung)
    If Not D.exists(Vung(I, 1)) Then 'Kiem tra su ton tai cua Vung?
        K = K + 1 'Bien K co y nghia nhu the nao?
        D.Add Vung(I, 1), K
        Mg(K, 1) = Vung(I, 1): Mg(K, 2) = Vung(I, 2)
            For J = 1 To 14
                If Vung(I, J + 9) <> "" Then Mg(K, J + 2) = Vung(I, J + 9) 'O day J + 9 la sao? Tai sao lai la J + 9?
            Next J
    Else
        For J = 1 To 14
                If Vung(I, J + 9) <> "" Then Mg(K, J + 2) = Vung(I, J + 9)
        Next J
   End If
Next I
[B9:Q1000].ClearContents
[B9].Resize(K, 16) = Mg
Range([B9], [B65000].End(xlUp)).Offset(, -1) = [Row(A:A)]
End Sub

Hiện tại em đang muốn tìm hiểu về mảng.
Chân thành cám ơn!