VBA小白求解析语句，从For循环开始语句不太懂

[qq_41682646]

Sub s()
arr = [a1].CurrentRegion 'choose a1-b35
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 5)
For i = 2 To UBound(arr)
If d.exists(arr(i, 2)) Then
d(arr(i, 2)) = d(arr(i, 2)) & "##" & arr(i, 1) & "#" & i
Else
d(arr(i, 2)) = arr(i, 1) & "#" & i
End If
Next
n = 2
For Each k In d.keys

If InStr(d(k), "##") > 0 Then
Cells(n, 9) = k
Cells(n, 8) = Split(Split(d(k), "##")(0), "#")(0)
Cells(n, 10) = Split(Split(d(k), "##")(0), "#")(1)
Cells(n, 11) = Split(Split(d(k), "##")(1), "#")(0)
Cells(n, 12) = Split(Split(d(k), "##")(1), "#")(1)
n = n + 1
End If
Next
End Sub